Lukning af XP

Jeg har en batch fil der lukker XP med kommandoen

c:\WINDOWS\system32\shutdown /s

Ja, den bedste løsning jeg kan komme på, er at bruge Winexec til at køre en Bat-fil.

Åbn notepad, skrive c:\WINDOWS\system32\shutdown /s (som doubele-g skriver),
gem den som LukWinXP.bat

Skriv så følgende kode for at lukke:
Winexec('LukWinXP.bat');

sorry det var winexec('LukWinXP',1);

Du kan bruge denne funktion. Der er kommenteret et check for ikke-nt ud..Men kig i Windows API'en under ExitWindowsEx

/doc

function ShutDownPC : Boolean;

  function SetPrivilege (sPrivilegeName: string; bEnabled: Boolean) : Boolean;
  var
    TPPrev,TP : TTokenPrivileges;
    Token    : THandle;
    dwRetLen  : DWORD;
  begin
    result := False;
    OpenProcessToken (GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,Token);
    TP.PrivilegeCount := 1;
    if LookupPrivilegeValue (nil, PChar (sPrivilegeName), TP.Privileges[0].LUID) then
    begin
      if bEnabled then
        TP.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED
      else
        TP.Privileges[0].Attributes := 0;
      dwRetLen := 0;
      result := AdjustTokenPrivileges (Token, False, TP, SizeOf (TPPrev), TPPrev,dwRetLen)
    end;
    CloseHandle (Token)
  end;

begin
  result := true;
  {
  if not WinInfo.IsNT then
    ExitWindowsEx(EWX_REBOOT,0)
  else
  }
    begin
      if SetPrivilege ('SeShutdownPrivilege', true) then
        begin
          if (not ExitWindowsEx (EWX_POWEROFF    , 0)) then result := False;
          SetPrivilege ('SeShutdownPrivilege', False)
        end
      else
        result := False
    end;
end;

hvis man har tænkt sig at bruge windows kommandoen er det vidst ingen grund til at lave en bat fil først...

winexec('cmd.exe c:\WINDOWS\system32\shutdown /s', sw_hide);

OK. Jeg prøver lige jeres forslag... og så ser vi på det

doc404>> kan man force den til at lukke ned...altså lukke alle kørende programmer, uden at den venter på at de bliver færdige med at lukke ned?

Kald med EitWindowsEx(EWX_POWEROFF or EWX_FORCE,0)... Men du risikerer at miste data

doc404>> det er også pointen. eller rettere sagt: det er meningen at den skal (i tilfælde af at windows fryser) lukke ned

Jeg glemte at acceptere - dooh!