易语言调用系统各种关机对话框源码

系统结构:取操作系统类别_,ShellShutdownDialog,GetUserName,InitiateSystemShutdown,RtlAdjustPrivilege,关机对话框_,关机对话框_W7,RestartDialog,GetProcAddress,LoadLibrary,FreeLibrary,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |------ 取操作系统类别_
           |  |
           |  |------ _按钮4_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   ShellShutdownDialog
           |  |
           |  |---[dll]------   GetUserName
           |  |
           |  |---[dll]------   InitiateSystemShutdown
           |  |
           |  |---[dll]------   RtlAdjustPrivilege
           |  |
           |  |---[dll]------   关机对话框_
           |  |
           |  |---[dll]------   关机对话框_W7
           |  |
           |  |---[dll]------   RestartDialog
           |  |
           |  |---[dll]------   GetProcAddress
           |  |
           |  |---[dll]------   LoadLibrary
           |  |
           |  |---[dll]------   FreeLibrary

调用的DLL命令:

.DLL命令 ShellShutdownDialog, 整数型, "msgina.dll"
    .参数 hParent, 整数型
    .参数 username, 文本型
    .参数 bHideLogoff, 逻辑型, , //是否隐藏注销

.DLL命令 GetUserName, 整数型, "advapi32.dll", "GetUserNameA"
    .参数 lpBuffer, 文本型
    .参数 nSize, 整数型, 传址

.DLL命令 InitiateSystemShutdown, 整数型, "advapi32.dll", "InitiateSystemShutdownA"
    .参数 lpMachineName, 文本型
    .参数 lpMessage, 文本型
    .参数 dwTimeout, 整数型, , 时间:单位秒
    .参数 bForceAppsClosed, 整数型, , 强制
    .参数 bRebootAfterShutdown, 整数型, , 0:关机,1:重启

.DLL命令 RtlAdjustPrivilege, 整数型, "ntdll.dll", , 公开, RtlAdjustPrivilege (X, 1, 0, 0)
    .参数 Privilege, 整数型
    .参数 Enable, 整数型
    .参数 CurrentThread, 整数型
    .参数 WasEnabled, 整数型, 传址

.DLL命令 关机对话框_, 整数型, "shell32.dll", "#60", , #60
    .参数 参数1, 整数型, , YourGuess

.DLL命令 关机对话框_W7, 整数型, "shell32.dll", "#60", , #60
    .参数 参数1, 整数型, , YourGuess
    .参数 参数2, 整数型

.DLL命令 RestartDialog, 整数型, "shell32.dll", "RestartDialog"
    .参数 hParent, 整数型
    .参数 pszPrompt, 字节集, , UNI字符串
    .参数 dwFlags, 整数型

.DLL命令 GetProcAddress, 整数型, "kernel32", "GetProcAddress"
    .参数 hModule, 整数型
    .参数 lpProcName, 文本型

.DLL命令 LoadLibrary, 整数型, "kernel32", "LoadLibraryA"
    .参数 lpLibFileName, 文本型

.DLL命令 FreeLibrary, 整数型, "kernel32", "FreeLibrary"
    .参数 hLibModule, 整数型