| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Проблемка с памятю [D7, WinXP]

wader ©   (2008-02-20 11:12:00) 

Имеется процедура поиска процесов в 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;

---

Leonid Troyanovsky   (2008-02-20 19:44:00) [1]

> wader   (20.02.08 13:30) [2]

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

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

--
Regards, LVT.

---

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

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

---

Сергей М.   (2008-02-20 11:35:00) [3]

А где ListView.Items.Clear ?

---

Наверх