Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];




Вниз

Список процессов в потоке 


Cobalt   (2002-01-27 13:46) [0]

Список процессов

Хочу получить список процессов, получаю 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) [1]

Дико извиняюсь, заменил TProcessEntry32W на TProcessEntry32 и Process32First, всё Ок




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.024 c
3-90732           Yakudza               2002-02-28 11:54  2002.03.28  
Ошибка при исполнении процедуры.


14-91050          Дмитрий               2002-02-14 11:48  2002.03.28  
Мистика


1-90973           der                   2002-03-15 08:15  2002.03.28  
Как можно организовать перетаскивание строк в ListBox?


6-91017           Surf                  2002-01-06 09:55  2002.03.28  
Ладно, спрошу по-другому.


3-90766           Malder                2002-02-27 16:58  2002.03.28  
Создание обзоров