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