Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.47 MB
Время: 0.046 c
14-15837
Anton
2003-01-22 16:19
2003.02.06
Зачем сдесь последняя строчка


1-15624
Smok_er
2003-01-23 21:45
2003.02.06
И снова MDI


3-15520
Ihtiandr
2003-01-21 12:08
2003.02.06
UpdateSQL


14-15896
Shadow
2003-01-20 15:51
2003.02.06
Депресняк %((((


1-15536
Blacker77
2003-01-27 17:19
2003.02.06
Почему такое случается?