Delphi Power button Ereigniss einstellein [gelöst]

Thema durchsuchen

Ansicht

Themen-Optionen

Power button Ereigniss einstellein [gelöst]

Ein Thema von CTV · begonnen am 20. Jan 2004 · letzter Beitrag vom 20. Jan 2004

Vorheriger Beitrag

Nächster Beitrag

Vjay

Registriert seit: 2. Dez 2003
Ort: Berlin/Eschede
481 Beiträge

Delphi 7 Professional

#13

Re: Power button Ereigniss einstellein

20. Jan 2004, 22:57

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.