Форум: "Начинающим";
Текущий архив: 2006.01.29;
Скачать: [xml.tar.bz2];

Вниз

вопрос по ToolHelp32   Найти похожие ветки 

← →
RDS ©   (2006-01-10 19:52) [0]

Подскажите плиз, что может быть.

procedure TSnapShot.CreateSnap;
var
 hSnap: THandle;
 ....
begin
 hSnap:=CreateToolHelp32SnapShot(TH32CS_SNAPALL,0);
   |
   +- возвр. ~1792
 if Process32First(hSnap,Data) then begin
       |                
       +-  возвращает False

   while Process32Next(hSnap,Data) do begin
     ....
   end;
 end else begin
   // И переходит сразу сюда
   // получается список процессов пуст
 end;


Под W2k работает, а под WinXP нет. Не делает снимок. Интересно...

Подскажите плиз почему так.

---

← →
begin...end ©   (2006-01-10 19:59) [1]

Во-первых, приведите объявление переменной Data. Во-вторых, перед вызовом Process32First нужно инициализировать поле PROCESSENTRY32.dwSize.

---

← →
RDS ©   (2006-01-10 20:08) [2]

Сорри
var
hSnap: THandle;
Data: TProcessEntry32;


> Во-вторых, перед вызовом Process32First нужно
> инициализировать поле PROCESSENTRY32.dwSize.

В "Кулибе" по этому поводу ничего нет, или я не увидел.
получается, что нужно написать так :
Data.dwSize:= // ну а чего туда присваивать-то

---

← →
MBo ©   (2006-01-10 20:14) [3]

Data.dwSize:=SizeOf(TProcessEntry32)

---

← →
begin...end ©   (2006-01-10 20:16) [4]

> RDS ©   (10.01.06 20:08) [2]

> ну а чего туда присваивать-то

Data.dwSize := sizeof(Data)

---

← →
RDS ©   (2006-01-10 20:17) [5]

Кстати, я что-то не увидел в help"е ничего по поводу  TlHelp32, там что, действительно нету?

---

← →
begin...end ©   (2006-01-10 20:18) [6]

> RDS ©   (10.01.06 20:17) [5]

Help -> Windows SDK

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.01.29;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.066 c