simpelt delphi hjælp

program RestartWindows;
{$APPTYPE CONSOLE}
uses
  Windows, SysUtils;

VAR
  HToken: THandle;
  TP, OldTP: TTokenPrivileges;
  ReturnLen: Cardinal;
  Ok : Boolean;

begin
  if Win32Platform = VER_PLATFORM_WIN32_NT then
  begin
    //Get a token for this process
      Win32Check(OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,HToken));
    //Get the LUID for the shutdown privilege
    Win32Check(LookupPrivilegeValue(nil,'SeShutdownPrivilege', TP.Privileges[0].Luid));
    TP.PrivilegeCount := 1; //One privilege to set
    TP.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
    //Acquire shutdown privilege for this process
    Win32Check(AdjustTokenPrivileges(HToken,False, TP, SizeOf(OldTP), OldTP, ReturnLen));
  end;
  //Shut down the system and force all applications to close

  if ( ParamStr(1) = 'F' ) or ( ParamStr(1) = 'f' ) then
    Ok := ExitWindowsEx(EWX_REBOOT    or EWX_FORCE, 0)
  else
    Ok := ExitWindowsEx(EWX_REBOOT, 0);

  if not Ok then MessageBox(0,'Error !','Cannot shut Windows down',MB_OK);
end.

------------------------------------------------------------
En lille påske gave :)

/Martin

tak for hjælpen martin, lige hvae jeg stod og sku bruge

wil/