Форум: "Начинающим";
Текущий архив: 2008.03.23;
Скачать: [xml.tar.bz2];
ВнизПроблемка с памятю Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c