我用delphi写了个关机程序（从以前的贴子里抄来的代码），但在2000 SERVER关机时只消失所有的图标和任务条，然后就死在那儿了，不知为什

Question

改后面的0，1，2，3试下。好象winddows2000的排列顺序不同

Answer 1

改后面的0，1，2，3试下。好象winddows2000的排列顺序不同

Answer 2

procedure reboot_computer;
var
        hToken:THandle;
        tkp : TOKEN_PRIVILEGES;
        ReturnLength : DWord;
begin        if (not OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES or TOKEN_ALL_ACCESS or  TOKEN_QUERY, hToken))then
        begin
                application.Terminate;
        end;
        LookupPrivilegeValue(nil,’SeShutdownPrivilege’,tkp.Privileges[0].Luid);
        tkp.PrivilegeCount := 1;
        tkp.Privileges[0].Attributes :=SE_PRIVILEGE_ENABLED;
        ReturnLength :=0;
        AdjustTokenPrivileges(hToken, FALSE, tkp, 0,nil,ReturnLength);
        if (GetLastError() <> ERROR_SUCCESS) then
        begin
                               application.Terminate;
        end;        if (not ExitWindowsEx(EWX_REBOOT, 0)) then
        begin
                               application.Terminate;
        end;
end; 
看看这段，这是一段关机程序，对nt,2000都实用！

Answer 3

我和这段代码一模一样，但还是不行！有时退出时，任务条和桌面的图标全不见，只剩下桌面的画面在那儿！一动不动，只能Reset机器，有时却是好的，不知什么原因啊