Скажите, пожалуйста, как правильно использовпть WaitForDebugEvent. Делаю вот так :
| Код |
procedure TForm1.Deb;
var Event: TDebugEvent;
begin
while not stop do
begin
Application.ProcessMessages;
//if not WaitForDebugEvent(Event,INFINITE) then
//Application.MessageBox(PChar(IntToStr(GetLastError)),':-(',0);
if WaitForDebugEvent(Event,INFINITE) then
if Event.dwDebugEventCode=CREATE_PROCESS_DEBUG_EVENT then
Application.MessageBox('EVENT','EVENT',0);
end;
end;
end;
|
Здесь WaitForDebugEvent всегда возвращает 0, а GetLastError - ERROR_INVALID_HANDLE. Что я непрвильно делаю? |