unti shellobj und WM_ message

[Rociel]

also das forward geht irgendwie nicht.....

der code sieht so aus, und geht nich, hab die procedur schon so weit wie möglich nach oben gesetzt:

Delphi-Quellcode:

      procedure WMclose(var Msg:TMessage);message WM_CLOSE;
    procedure Abmelden1Click(Sender: TObject);
    procedure Ruhezustand1Click(Sender: TObject);
    procedure Standby1Click(Sender: TObject);
    procedure Neustart1Click(Sender: TObject);
    procedure Herunterfahren1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Prozessbeenden1Click(Sender: TObject);
    procedure Computersperren1Click(Sender: TObject);
    procedure Abmelden3Click(Sender: TObject);
    procedure Neustart3Click(Sender: TObject);
    procedure Herunterfahren3Click(Sender: TObject);
    procedure Abmelden2Click(Sender: TObject);
    procedure Neustart2Click(Sender: TObject);
    procedure Herunterfahren2Click(Sender: TObject);
    procedure Ruhezustand3Click(Sender: TObject);
    procedure Standby3Click(Sender: TObject);
    procedure Standby2Click(Sender: TObject);
    procedure PopupMenu1Popup(Sender: TObject);
    procedure Ruhezustand2Click(Sender: TObject);
    procedure Einstellungen1Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure TrayDblClick(Sender: TObject);
    procedure showtimer(art : tdown);
  private
    closable : boolean;
  public
        procedure shutdown(typ : Tdown);


  end;

var
  shutdown_061025: Tshutdown_061025;

implementation

  uses hib,  ShlObj;

{$R *.dfm}

function SetSuspendState(Hibernate,ForceCritical,DisableWakeEvent:boolean):boolean;stdcall;
external 'powrprof.dll';
function IsPwrSuspendAllowed():boolean;stdcall;
external 'powrprof.dll';
function IsPwrHibernateAllowed():boolean;stdcall;
external 'powrprof.dll';
function LockWorkStation():boolean;stdcall;
external 'User32.dll';

procedure WMclose(var Msg:TMessage);
begin
Showmessage('ok');
end;

ich arbeite mit VCL

wenn ich da n forward stehen hab, passt dann da noch n "message WM_CLOSE" hin?