[dbtest]

Добрый день, уважаемые!
Появилась такая проблемка: реализовал программу для завершения запущенных процессов (точь в точь диспетчер задач 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);    //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 отображался путь до запущенного файла. Как это можно реализовать?

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

Код:

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