Power button Ereigniss einstellein [gelöst]

[Vjay]

Machstes noch so, dann ists korrekt.

procedure TForm1.WMPOWER( var Message: TMessage);
var hWnd:integer;
begin
case Message.WParam of
PWR_SUSPENDREQUEST: begin
doWinampCommand(40048);
hWnd:=FindWindow(pchar('#32770'),nil);
SysFoucs(hWnd);
keybd_event(Ord(13), 0, 0, 0);
Message.Result := PWR_FAIL;
end;
else defaultHandler( Message);
end;
end;

Viel Spass damit.