Funktionen in Windows7

[Freiwilderer]

thank you,
ill check it out as fast as possible (I've got a additional Task for an update program...)

Windows herunterfahren läuft jetzt auch (für interessierte hier kurz der quelcode zum Windows runter fahren)

Delphi-Quellcode:

procedure TfMain.SpeedButton1Click(Sender: TObject);
begin
   if (MessageDlg('Wollen Sie den PC wirklich Herunterfahren?', mtConfirmation, [mbYes, mbNo], 0) = mrYes) then
   begin
      Shutdown(EWX_POWEROFF or EWX_FORCE);
   end;
end;

function TfMain.Shutdown(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;