Текущий архив: 2008.03.23;
Скачать: CL | DM;

Вниз

Проблемка с памятю   Найти похожие ветки 

← →
wader   (2008-02-20 11:12) [0]

Имеется процедура поиска процесов в WinXP. Всё нормально пашет да вот токо при каждом использовании она съедает 8 кб памяти. Подскажите пожалуста в чём косяк как с ним боротца ?

procedure TForm1.Button1Click(Sender: TObject);
 var
  i: Integer;
  B: BOOL;
  Item: TListItem;
begin
  aSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  aProcessEntry32.dwSize := SizeOf(aProcessEntry32);
  B:= Process32First(aSnapshotHandle, aProcessEntry32);
  while Integer(b) <> 0 do
  begin
    Item:= ListView1.Items.Add;
    Item.Caption := ExtractFileName(aProcessEntry32.szExeFile);
    Item.subItems.Add(IntToHex(aProcessEntry32.th32ProcessID, 4));
    Item.subItems.Add(aProcessEntry32.szExeFile);
    b:= Process32Next(aSnapshotHandle, aProcessEntry32);
  end;
  CloseHandle(aSnapshotHandle);
end;

---

← →
Сергей М. ©   (2008-02-20 11:35) [1]

А где ListView.Items.Clear ?

---

← →
wader   (2008-02-20 13:30) [2]

Точно... нету... спс...

---

← →
Leonid Troyanovsky ©   (2008-02-20 19:44) [3]

> wader   (20.02.08 13:30) [2]

> Точно... нету... спс...

Хорошая болезнь - склероз.
Ничего не болит, а каждый день - что-то новое.

--
Regards, LVT.

---

Страницы: 1 вся ветка

Текущий архив: 2008.03.23;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.02 c