Anwendung im Tray = Rechner fährt nicht runter???

[Schucki]

Also eigendlich klappt das so wie ich es wollte.
Anwendung wird minimiert und neben der Uhr angezeigt. Toll... ;)

Delphi-Quellcode:

procedure HideTheApplication;
begin
  ShowWindow(Application.Handle, SW_HIDE);
  frmMain.TrayIconMain.Visible:=True;
end;

procedure ShowTheApplication;
begin
  frmMain.TrayIconMain.Visible:=False;
  ShowWindow(Application.Handle, SW_SHOW);
  Application.Restore;
end;

procedure TfrmMain.ApplicationEventsMinimize(Sender: TObject);
begin
  HideTheApplication;
end;

Was allerdings nicht geht und deshalb meld ich mich hier zu Wort ist wenn die Anwendung neben der Uhr liegt und ich den Rechner runterfahren möchte.

Dann muß ich die Anwendung erst aus dem Tray holen, diese dann beenden und dann nochmal auf Runterfahren drücken.

Warum ist das so? Wie kann meine Anwendung mitbekommen das Feierabend ist?

Gruß Frank

[SaFu]

Probier dasmal

Delphi-Quellcode:

function MyExitWindows(RebootParam: Longword): Boolean;
var
  TTokenHd: THandle;
  TTokenPvg: TTokenPrivileges;
  cbtpPrevious: DWORD;
  rTTokenPvg: TTokenPrivileges;
  pcbtpPreviousRequired: DWORD;
  tpResult: Boolean;
const
  SE_SHUTDOWN_NAME = 'SeShutdownPrivilege';
begin
  if Win32Platform = VER_PLATFORM_WIN32_NT then
  begin
    tpResult := OpenProcessToken(GetCurrentProcess(),
      TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,
      TTokenHd);
    if tpResult then
    begin
      tpResult := LookupPrivilegeValue(nil,SE_SHUTDOWN_NAME,TTokenPvg.Privileges[0].Luid);
      TTokenPvg.PrivilegeCount := 1;
      TTokenPvg.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
      cbtpPrevious := SizeOf(rTTokenPvg);
      pcbtpPreviousRequired := 0;
      if tpResult then
        Windows.AdjustTokenPrivileges(TTokenHd,False,TTokenPvg,cbtpPrevious,rTTokenPvg,pcbtpPreviousRequired);
    end;
  end;
  Result:= ExitWindowsEx(RebootParam, 0);  
end; 


MyExitWindows(EWX_POWEROFF or EWX_FORCE);

Gruß Sascha

[worker]

Ein einfaches

Delphi-Quellcode:

procedure TForm1.WMQueryEndSession(var Message: TWMQueryEndSession);
begin
   inherited;
   Message.Result := 1;
end;

tut's auch ;)