★★★关于ＥｘｉｔＷｉｎｄｏｗＥｘ　函数的２个小问题。(100分)

Tempter · 2003-12-18

大伙都知道，点“开始”再点“关机”，就跳出了关机菜单，选择“重起动计算机”，然后在点“是”的同时按下键盘上的“Ｓｈｉｆｔ”键就可以实现【快速】重起动系统。 小弟想知道的就是如何用ＥｘｉｔＷｉｎｄｏｗ或ＥｘｉｔＷｉｎｄｏｗＥｘ来实现上诉功能。 另外，小弟还想问一下如何用ＥｘｉｔＷｉｎｄｏｗ或ＥｘｉｔＷｉｎｄｏｗＥｘ来实现 “重起动计算机器并切换到ＭＳ－ＤＯＳ状态”。 请各位大侠指教～　感激不尽～

andy263 · 2003-12-18

function GetWinVersion: String;  var     VersionInfo : TOSVersionInfo;     OSName      : String;  begin     // set the size of the record     VersionInfo.dwOSVersionInfoSize := SizeOf( TOSVersionInfo );       if Windows.GetVersionEx( VersionInfo ) then        begin           with VersionInfo do           begin              case dwPlatformId of                 VER_PLATFORM_WIN32s   : OSName := 'Win32s';                 VER_PLATFORM_WIN32_WINDOWS : OSName := 'Windows 95';                 VER_PLATFORM_WIN32_NT      : OSName := 'Windows NT';              end; // case dwPlatformId              Result := OSName + ' Version ' + IntToStr( dwMajorVersion ) + '.' + IntToStr( dwMinorVersion ) +                        #13#10' (Build ' + IntToStr( dwBuildNumber ) + ': ' + szCSDVersion + ')';           end; // with VersionInfo        end // if GetVersionEx     else        Result := '';  end;    procedure ShutDown;  const    SE_SHUTDOWN_NAME = 'SeShutdownPrivilege';   // Borland forgot this declaration  var    hToken       : THandle;    tkp          : TTokenPrivileges;    tkpo         : TTokenPrivileges;    zero         : DWORD;  begin    if Pos( 'Windows NT', GetWinVersion) = 1  then // we've got to do a whole buch of things       begin          zero := 0;          if not OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then             begin               MessageBox( 0, 'Exit Error', 'OpenProcessToken() Failed', MB_OK );               Exit;             end; // if not OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken)          if not OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then             begin               MessageBox( 0, 'Exit Error', 'OpenProcessToken() Failed', MB_OK );               Exit;             end; // if not OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken)              // SE_SHUTDOWN_NAME          if not LookupPrivilegeValue( nil, 'SeShutdownPrivilege' , tkp.Privileges[ 0 ].Luid ) then             begin                MessageBox( 0, 'Exit Error', 'LookupPrivilegeValue() Failed', MB_OK );                Exit;             end; // if not LookupPrivilegeValue( nil, 'SeShutdownPrivilege' , tkp.Privileges[0].Luid )          tkp.PrivilegeCount := 1;          tkp.Privileges[ 0 ].Attributes := SE_PRIVILEGE_ENABLED;            AdjustTokenPrivileges( hToken, False, tkp, SizeOf( TTokenPrivileges ), tkpo, zero );          if Boolean( GetLastError() ) then             begin                MessageBox( 0, 'Exit Error', 'AdjustTokenPrivileges() Failed', MB_OK );                Exit;             end // if Boolean( GetLastError() )          else             ExitWindowsEx( EWX_FORCE or EWX_SHUTDOWN, 0 );        end // if OSVersion = 'Windows NT'     else        begin // just shut the machine down          ExitWindowsEx( EWX_FORCE or EWX_SHUTDOWN, 0 );        end; // else  end

Tempter · 2003-12-20

ExitWindowsEx( EWX_FORCE or EWX_SHUTDOWN, 0 )好象是强制关闭所有进程然后关闭电源吧！ 这个不是我想要的，请看清楚问题啊！

app2001 · 2003-12-25

这样呢？？ use  ShlObj; procedure ShutDown(Send: integer);   procedure AdjustToken(); //获取关机控制权   var     hdlProcessHandle, hdlTokenHandle, lBufferNeeded: Cardinal;     tmpLuid: Int64;   //tkpPrivilegeCount: Int64;     tkp, tkpNewButIgnored: TOKEN_PRIVILEGES;     Privilege: array[0..0] of _LUID_AND_ATTRIBUTES;   begin     hdlProcessHandle := GetCurrentProcess;     OpenProcessToken(hdlProcessHandle,       (TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY),       hdlTokenHandle);   // Get the LUID for shutdown privilege.     LookupPrivilegeValue('', 'SeShutdownPrivilege', tmpLuid);     Privilege[0].Luid := tmpLuid;     Privilege[0].Attributes := SE_PRIVILEGE_ENABLED;     tkp.PrivilegeCount := 1; // One privilege to set     tkp.Privileges[0] := Privilege[0];   // Enable the shutdown privilege in the access token of this process.     AdjustTokenPrivileges(hdlTokenHandle,       False,       tkp,       Sizeof(tkpNewButIgnored),       tkpNewButIgnored,       lBufferNeeded);   end; begin   AdjustToken;   case send of     1: ExitWindowsEx(EWX_FORCE, 0); //在紧急情况下强制关机。 ;     2: ExitWindowsEx(EWX_LOGOFF, 0); //以其他用户身份登录。 ;     3: ExitWindowsEx(EWX_POWEROFF, 0); //关闭系统并关闭电源。     4: ExitWindowsEx(EWX_REBOOT, 0); //重启操作系统     5: ExitWindowsEx(EWX_SHUTDOWN, 0); //关机;   else     EXIT;   end; end;

wjh_wy · 2003-12-25

正在研究中...

Tempter · 2003-12-27

小弟要实现的其实就是不断电重启动 . 不过用 exitwindow 和 exitwindowex都无法实现啊?

app2001 · 2003-12-29

怎么个无法实现法？用了后有什么现象发生，讲清楚才行呀，老弟？

★★★关于ＥｘｉｔＷｉｎｄｏｗＥｘ　函数的２个小问题。(100分)

Tempter

Unregistered / Unconfirmed

andy263

Unregistered / Unconfirmed

Tempter

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

wjh_wy

Unregistered / Unconfirmed

Tempter

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

Similar threads

★★★关于 ＥｘｉｔＷｉｎｄｏｗＥｘ 函数的２个小问题。(100分)

Tempter

Unregistered / Unconfirmed

andy263

Unregistered / Unconfirmed

Tempter

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

wjh_wy

Unregistered / Unconfirmed

Tempter

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

Similar threads

★★★关于ＥｘｉｔＷｉｎｄｏｗＥｘ　函数的２个小问题。(100分)