kann rasch wer was für mich testen ??? [gelöst]

[CTV]

ich versuche raus zufinden ob die msg.Wparam und msg.msg die selben Werte haben für den powerbutton in unterschidlichen betriebssystemen.

ich hab hier einen source gemacht welcher das ausschalten ded pcs mit dem powerknopf verhindet und diese Werte ausgibt. Ihr könnt ein neues Projekt machen und einfach den source hier dort rein kopieren dann das teil starten und dann auf den poweknof drücken und mir dann sagen was ihr für Werte für MSG und WParam bekommen habt. Danke für eure Hilfe

PS. Macht das nur wenn ihr ein ATX Fehiges Board habt (Pentium3 höher) sonst schaltet der pc dann doch aus

Delphi-Quellcode:

interface 


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

type 
  TForm1 = class(TForm) 
    procedure WMPOWERBROADCAST( var Message: TMessage); message WM_POWERBROADCAST; 
    procedure WMPOWER( var Message: TMessage); message WM_POWER; 
  private 

    { Private-Deklarationen } 
  public 
    { Public-Deklarationen } 
  end; 

var 
  Form1: TForm1; 

implementation 

{$R *.DFM} 

procedure TForm1.WMPOWER( var Message: TMessage);  //win95/98 
begin 
  if Message.WParam=PWR_SUSPENDREQUEST then 
  begin 
    Message.Result := PWR_FAIL; 
    showmessage('MSG ='+inttostr(message.msg)); 
    showmessage('WParam ='+inttostr(message.WParam)); 
  end; 
end; 


procedure TForm1.WMPOWERBROADCAST( var Message: TMessage); //womMZ,2000,XP 
begin 
  if Message.WParam = 0 then 
  begin 
    Message.Result := BROADCAST_QUERY_DENY; 
    showmessage('MSG ='+inttostr(message.msg)); 
    showmessage('WParam ='+inttostr(message.WParam)); 
  end; 
end; 

end.

Greetz Cyrus