Добрый день, уважаемые!
Появилась такая проблемка: реализовал программу для завершения запущенных процессов (точь в точь диспетчер задач Windows).
Нужно, чтобы в столбце StringGrid'a отображался путь до запущенного файла. Как это можно реализовать?
Код самой процедуры забития инфы в грид прилагаю
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | var hsnap: Thandle;
procentry: TProcessEntry32;
k: byte ;
begin
k:= 1 ;
hsnap:=CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0 );
procentry . dwSize:=sizeof(procentry);
Process32First(hsnap,procentry);
repeat
with procinfogrid do
begin
if k>rowcount- 1 then
rowcount:=rowcount+ 1 ;
cells[ 0 ,k]:=procentry . szexefile;
cells[ 1 ,k]:=inttostr(procentry . th32ProcessID);
cells[ 2 ,k]:=inttostr(procentry . cntThreads);
cells[ 3 ,k]:=GetPriority(procentry . th32processid);
end ;
k:=k+ 1 ;
until Process32Next(hsnap,procentry)<> true ;
if k<procinfogrid . RowCount then procinfogrid . RowCount:=k;
CloseHandle(hsnap);
end ;
|