Minimieren im Hook abfangen!

[Boombuler]

Hi Leute!

ich hab die boardsuche schon benutzt (bevor es hier gleich wieder stress gibt)...
Ich wollte n Message Hook schreiben der mir beim minimieren von programmen ne message schickt....

Meine Hook Funktion sieht atm so aus (i know man sollte dann noch den WParam der message nach SC_MINIMIZE abfragen):

Delphi-Quellcode:

type
 tagMSG = record
    hwnd:hwnd;
    msg :Cardinal;
    WPARAM: wParam;
    LPARAM: lParam;
    time:DWORD;
    POINT:  TPoint;
end;
 PTagMsg = ^TagMSG;
end;


function HookProc(nCode: Integer; wParam: WPARAM; lParam:Integer):
 LRESULT; stdcall;
begin
  case nCode < 0 of
    FALSE:
      begin
       if (PTagMsg(lparam).msg = WM_Syscommand) then
        begin
           MessageBox(my.Handle,'BLUB','a',0); //in my.Handle is das handle der Application und das geht auch prima
           SendMessage(My.Handle,WM_Minimize,PTagMsg(lparam).hwnd,0);
        end;
      end;
  end;
Result := CallNextHookEx(HookHandle, nCode, wParam, lParam);
end;

Also bei nem Restore bekomm ich ne Message... das is nich die sache aber sonst nich...


und noch was:
geh ich richtig in der annahme das im PTagMsg(lparam).hwnd das Handle der Ziel-Application drin steht?

Greetz
Boombuler