Главная страница
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.012 c
1-15680
explorer
2003-01-27 12:39
2003.02.06
MDI -форма


6-15793
1g0r
2002-12-14 13:32
2003.02.06
Вопрос по стандартным TClient(Server)Socket-ам (ошибка 10054 WSAE


1-15667
don-do
2003-01-27 08:10
2003.02.06
Form.Print


1-15706
SergeN
2003-01-27 14:11
2003.02.06
Компоненты


14-15938
IronHawk
2003-01-13 15:38
2003.02.06
Приветствую ВСЕХ, ВСЕХ, ВСЕХ ....