Текущий архив: 2003.02.06;
Скачать: CL | DM;
Внизможно используя только winAPI (без доп. компонентов) отследить . Найти похожие ветки
← →
demona (2002-12-21 13:46) [0]можно используя только winAPI (без допл. компонентов) отследить все процессы под 2000/XP?
← →
Rouse_ (2002-12-21 13:51) [1]Конечно можно. Пример в факе
Желаю успехов
← →
demona (2002-12-21 14:27) [2]http://delphi.mastak.ru/cgi-bin/faq.pl?look=1&id=988622454&n=15
с этим примером я разобралась...
А как сделать, что бы он выдавался не как имена окон, а как это сделано в диспетчере задач->Процесы?
← →
Cobalt (2002-12-22 01:02) [3]используй библиотеку PSAPI
http://www.delphikingdom.com/asp/answer.asp?IDAnswer=940
http://www.delphikingdom.com/asp/answer.asp?IDAnswer=5649
← →
bak (2002-12-23 11:12) [4]еще можно ToolHelp"ом попользоваться
procedure GetProcessList;
var
handler :thandle;
data :TProcessEntry32;
function return_name:string;
var
i:byte;
names:string;
begin
names:="";
i:=0;
while data.szExeFile[i]<>"" do
begin
names:=names+data.szExeFile[i];
inc(i);
end;
return_name:=names;
end;
begin
ProcessList.Clear;
handler:=createtoolhelp32snapshot(TH32CS_SNAPALL,0);
FillChar(data,SizeOf(TProcessEntry32),0);
data.dwsize:=SizeOf(TProcessEntry32);
if Process32First(handler,data) then
begin
ProcessList.Add(return_name);
while Process32next(handler,data) do
ProcessList.Add(return_name);
end
else
ProcessList.Add("Error getting Process List");
closeHandle(handler);
end;
штука эта крутая, но к сожалению, не пашет под нт, только под 2к и выше.
Страницы: 1 вся ветка
Текущий архив: 2003.02.06;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.01 c