Delphi for shutdown, compatible with all Windows systems

Transferred from: http://blog.sina.com.cn/s/blog_611ab6c50100mznx.html

{============================================================================================================== =========
To turn off the Windows function ExitWindowsEx (UINT uflag,dword:dwreserved) Description:

Switches that control windows: such as shutting down Windows, restarting Windows, and so on, ExitWindowsEx (UINT Uflags,dword dwreserved), an API function that implements this functionality. If the complile prompt ewx_xxxx is undefined, then manually define these constants, by default, without our manual definition.
Const
ewx_force=4; Close all programs and log in as a different user? （！！ should be "Enforce no" bar!! ）
ewx_logoff=0; Restart the computer and switch to MS-DOS mode
ewx_reboot=2; Restart your computer
ewx_shutdown=1;//shutting down the computer
ewx_poweroff=8;//Power off
ewx_forceifhung=$10;//don't remember, anyone kindly check out MSDN
Call Method:
ExitWindowsEx (ewx_reboot,0); Restart your computer
ExitWindowsEx (ewx_force+ewx_shutdown,0); Force shutdown

However, bloggers often hear that this API is only valid under Windows 95/98/98se/me, but not in Windows NT/2000/XP.
In fact, this is not true, this API is valid under the above platform, but we must get the shutdown privilege before executing this function under the Windows NT/2000/XP platform, in fact, the Windows NT/2000/XP system itself shutdown also must go this process.

View PlainPrint?

2. The Get Shutdown privilege function is as follows:
4. procedure Get_shutdown_privilege; //Get user shutdown privileges, only for Windows Nt/2000/xp
6. var
8. rl:cardinal;
10. htoken:cardinal;
12. Tkp:token_privileges;
14. begin
16. OpenProcessToken (getcurrentprocess, token_adjust_privileges or token_query, htoken);
18. if Lookupprivilegevalue (nil, ' SeShutdownPrivilege ', TKP. Privileges[0]. LUID) Then
20. begin
22. Tkp. Privileges[0]. Attributes: = se_privilege_enabled;
24. Tkp. Privilegecount: = 1;
26. AdjustTokenPrivileges (Htoken, False, TKP, 0, Nil, RL);
28. End;
30. End;

Another Shutdown Api,initiatesystemshutdown (PChar (computer_name), PChar (hint_msg), time,force,reboot); in Windows Nt/2000/ The Shutdown prompt window of the system itself is also automatically invoked under the XP platform.
InitiateSystemShutdown (PChar (computer_name), PChar (hint_msg), time,force,reboot);
Shutdown computer name, shutdown prompt information, length of stay, whether forcibly shutdown, whether to restart
When we set computer_name to nil, the default is native, such as InitiateSystemShutdown (nil,nil,0,true,false);//forced shutdown

Since we need to make a general shutdown program, it is relatively simple to judge the current operating system, and the function is as follows:

2. function Getoperatingsystem: string; //Get operating System Information
4. var osverinfo:tosversioninfo;
6. begin
8. Result: =';
10. Osverinfo.dwosversioninfosize: = SizeOf (Tosversioninfo);
12. if GetVersionEx (osverinfo) Then
14. Case Osverinfo.dwplatformid of
16. VER_PLATFORM_WIN32_NT:
18. begin
20. Result: = ' Windows nt/2000/xp '
22. End;
24. Ver_platform_win32_windows:
26. begin
28. Result: = ' Windows 95/98/98se/me ';
30. End;
32. End;
34. End;
38. Perform the main function of shutdown:
40. procedure Shutdowncomputer;
42. begin
44. if getoperatingsystem=' Windows nt/2000/xp ' Then
46. begin
48. Get_shutdown_privilege;
50. //Call this function to have the System Shutdown prompt window and allow the user to cancel the shutdown action
52. //initiatesystemshutdown (Nil, ' Shutdown tip: hate you so it's off you! ', 0,true,false);
54. ExitWindowsEx (ewx_shutdown+ewx_force+ewx_poweroff+ewx_forceifhung,0);
56. End Else
58. begin
60. ExitWindowsEx (ewx_shutdown+ewx_force+ewx_poweroff+ewx_forceifhung,0);
62. End;
64. End;
66. =============================================================================================================== ==========}
70. Use:
74. procedure Tshutdownform.btn_poweroffclick (Sender:object);
76. begin
78. Shutdowncomputer;
80. End;

Delphi for shutdown, compatible with all Windows systems