Einzelnen Beitrag anzeigen

Benutzerbild von Boombuler
Boombuler

Registriert seit: 14. Mär 2003
Ort: Osnabrück
244 Beiträge
 
Delphi 2009 Professional
 
#9

Re: Minimieren im Hook abfangen!

  Alt 7. Dez 2004, 14:38
So ich habs fertig!!!

Erst mal Danke an Assarbad!

Es ist ein WH_CALLWNDPROC Hook geworden...
Und hier der Code für alle die Intresse haben!

Delphi-Quellcode:
//----Hier wurd noch n fehler korrigiert... die Typen findet ihr weiter unten!----//

function HookProc(nCode: Integer; wParam: WPARAM; lParam:Integer):
 LRESULT; stdcall;
var aCopy:TCopyDataStruct;
begin
  case nCode < 0 of
    FALSE:
      begin
       if (PMsg(lparam).wparam = SC_Minimize) then
        begin
           with aCopy do
           begin
             dwData := PMsg(lparam).hwnd;
             cbData := 0;
             lpData := nil;
           end;
           SendMessage(ApplicationHandle, WM_COPYDATA, Longint(HookHandle),LongInt(@aCopy)); //Hab hier einfach mal das HookHandle übergeben....
        end;
      end;
  end;
Result := CallNextHookEx(HookHandle, nCode, wParam, lParam);
end;
  Mit Zitat antworten Zitat