was machen mit den Hangups ? Konsolenprobleme die zweite ^ ^

[hboy]

das ist doch gequirlte sch****

Wenn der Thread hängt wird auch die HookProc nicht mehr aufgerufen... jetzt hab ich den ganzen Müll umsonst gemacht. Windows ist scheiße ! jawohl.

HauptProgramm
  while true do; // hangup
Hook:

Delphi-Quellcode:

function MainHookProc(code: Integer ; wP:LPARAM ; lP: WPARAM): LRESULT; stdcall;
var msg: ^TMsg;
var winproc: Pointer;
var uintwndproc: Cardinal;
begin
  if code <0 then
      result := windows.CallNextHookEx(0,code,wp,lp)
  else
    begin
      msg := Pointer(lP);
      if msg^.message = wm_char then windows.TerminateProcess(windows.GetCurrentProcess,0); 
    end;
end;

also müsste das gute stück beenden wenn ich auch nur eine taste drück. Tuts aber nicht.