Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c