Einzelnen Beitrag anzeigen

Benutzerbild von CTV
CTV

Registriert seit: 20. Jan 2004
Ort: Zug CH
83 Beiträge
 
Delphi 7 Professional
 
#1

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

  Alt 4. Feb 2004, 14:17
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
Wer glaub er ist, hört auf zu werden!
Delphi Rulez!!!
  Mit Zitat antworten Zitat