Power button Ereigniss einstellein [gelöst]

[Vjay]

So geht det, auf eine der beiden Broadcast-Nachrichten hat windows nicht reagiert wenn ich mich genau erinnere, aber wenn du es so machst haut es hin.
Und dort wo du deine Suspendrequests behandelst kannste auch gleich winamp ansteuern, war so nett dir das gleich mit reinzuhauen, bin ich nicht toll? - Naja auch nur weil ich das schon in der Software drin hatte.

Einfach dort doWinampCommand so "doWinampCommand( 40048);" aufrufen. 40048 ist fürn nächsten Track.

Delphi-Quellcode:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

const
  PBT_APMQUERYSUSPEND       = 0; {Request for permission to suspend.}
  PBT_APMQUERYSUSPENDFAILED = 2; {Suspension request denied.}
  PBT_APMSUSPEND            = 4; {System is suspending operation.}
  PBT_APMRESUMECRITICAL     = 6; {Operation resuming after critical suspension.}
  PBT_APMRESUMESUSPEND      = 7; {Operation resuming after suspension.}
  PBT_APMBATTERYLOW         = 9; {Battery power is low.}
  PBT_APMPOWERSTATUSCHANGE  = 10; {Power status has changed.}
  PBT_APMOEMEVENT           = 11; {OEM-defined event occurred.}

type
  TMainForm = class(TForm)
    {...}
  private
    procedure WMPOWER( var Message: TMessage); message WM_POWER;
    procedure WMPOWERBROADCAST( var Message: TMessage); message WM_POWERBROADCAST;
    procedure doWinampCommand( const i1: integer);
  public
    { Public-Deklarationen }
  end;


procedure TMainForm.doWinampCommand( const i1: integer);
var
 h: integer;
begin
 h := FindWindow('Winamp v1.x', nil);
 sendMessage(h, WM_COMMAND, i1, 0);
 MainTimerTimer( MainTimer);
end;

procedure TMainForm.WMPOWERBROADCAST( var Message: TMessage);
begin
 case Message.WParam of
  PBT_APMQUERYSUSPEND:
  begin
   if canSuspend then Message.Result := 1
   else Message.Result := BROADCAST_QUERY_DENY;
  end;
  else defaultHandler( Message);
 end;
end;

procedure TMainForm.WMPOWER( var Message: TMessage);
begin
 case Message.WParam of
  PWR_SUSPENDREQUEST: Message.Result := PWR_FAIL;
  else defaultHandler( Message);
 end;
end;

Damit dürftest du es hinbekommen, denk daran in den Energieoptionen die Buttonfunktion einzustellen.

Alternativ kannst du die Powerbuttonfunktion auch auf beenden lassen und die Nachricht WM_QUERYENDSESSION abfangen, hat aber den Nachteil, dass manche Programme sich dann bereits beenden. Also machtes so ^

Mfg
Volker