|
Спасибо(-)
|
Posted by: Rook on June 24, 2001 at 23:06:50
Posters Details: [212.48.192.246] [212.48.192.246], X-Forwarded 4: []
[Mozilla/4.0 (compatible; MSIE 5.0; Windows 98) Opera 5.0 [en]]
In Reply to: Rook вот исходняк.
Posted by: XOR on June 24, 2001 at 14:41:15
: var
: sh : thandle;
: list : tstringlist;
: pe : tprocessentry32;
: f1 : integer;
: begin
: list := tstringlist.create;
: sh := createtoolhelp32snapshot(th32cs_snapprocess,0);
: pe.dwsize := sizeof(tprocessentry32);
: if (process32first(sh,pe)) then
: repeat
: list.add(pe.szexefile);
: until not process32next(sh,pe);
: closehandle(sh);
: for f1 := 0 to list.count - 1 do : тут получаешь процессы - list[f1]; : list.free;
: end;
Follow Ups:
|
|