Список процессов в потоке [D4, Win95/98]
Cobalt © (2002-01-27 13:46:00)
Список процессов
Хочу получить список процессов, получаю AV;(
Вроде всё делаю правильно... Или не всё? Тогда что именно?
procedure TMyWinManager.FormActivate(Sender: TObject);
var AllProcs:array of TProcessEntry32W;
hSnapshoot:THandle;
i:integer;
TekProc:TProcessEntry32W;
begin
hSnapshoot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,
0);
if hSnapshoot=INVALID_HANDLE_VALUE then Exit;
TekProc.dwSize:=SIZEOF(TProcessEntry32W);
if not Process32FirstW(hSnapshoot,TekProc) then Exit;
выдаёт AV здесь/\
i:=1;
repeat
SetLength(AllProcs,i);
AllProcs[i].ProcInfo:=TekProc;
until not Process32NextW(hSnapshoot,TekProc);
CloseHandle(hSnapshoot);
end;
Что за фигня??!!!
Cobalt (2002-01-27 14:14:00) [1]
Дико извиняюсь, заменил TProcessEntry32W на TProcessEntry32 и
Process32First, всё Ок
Наверх 
ЧАТ |
Орешник |
|
