[dbtest]

Добрый день, уважаемые!
Появилась такая проблемка: реализовал программу для завершения запущенных процессов (точь в точь диспетчер задач Windows).

Нужно, чтобы в столбце StringGrid'a отображался путь до запущенного файла. Как это можно реализовать?

Код самой процедуры забития инфы в грид прилагаю

Код:

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);    //PID
  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;

[Admin]

Сообщение от dbtest

Добрый день, уважаемые!
Появилась такая проблемка: реализовал программу для завершения запущенных процессов (точь в точь диспетчер задач Windows).

Нужно, чтобы в столбце StringGrid'a отображался путь до запущенного файла. Как это можно реализовать?

Код самой процедуры забития инфы в грид прилагаю

Код:

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);    //PID
  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;

В разделе Система таких примеров масса, поищи там.