| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
можно используя только winAPI (без доп. компонентов) отследить . [D6, NT4, Win2k, WinXP]
demona © (2002-12-21 13:46:00)можно используя только winAPI (без допл. компонентов) отследить все процессы под 2000/XP?
bak (2002-12-23 11:12:00) [1]еще можно 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к и выше.
Cobalt (2002-12-22 01:02:00) [2]используй библиотеку PSAPI
http://www.delphikingdom.com/asp/answer.asp?IDAnswer=940
http://www.delphikingdom.com/asp/answer.asp?IDAnswer=5649
demona (2002-12-21 14:27:00) [3]http://delphi.mastak.ru/cgi-bin/faq.pl?look=1&id=988622454&n=15
с этим примером я разобралась...
А как сделать, что бы он выдавался не как имена окон, а как это сделано в диспетчере задач->Процесы?
Rouse_ (2002-12-21 13:51:00) [4]Конечно можно. Пример в факе
Желаю успехов
| |
