怎么做到定时关机 1,timer 设置时间2,ExitWindowsEx(EWX_SHUTDOWN,0)如果是NT,2000还要设privilege 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 定好timer在2000不可以这样关闭电源点button2就可以了,自己用吧procedure TForm1.Button2Click(Sender: TObject);var VerInfo:TOSVersionInfo; hToken:THANDLE; tkp:TOKEN_PRIVILEGES; Nothing:Cardinal;begin VerInfo.dwOSVersionInfoSize:=SizeOf(VerInfo); GetVersionEx(VerInfo); if VerInfo.dwPlatformId=VER_PLATFORM_WIN32_NT then Begin OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,hToken); LookupPrivilegeValue(nil,'SeShutdownPrivilege',tkp.Privileges[0].Luid); tkp.PrivilegeCount:= 1; tkp.Privileges[0].Attributes:= SE_PRIVILEGE_ENABLED; AdjustTokenPrivileges(hToken, FALSE, tkp, 0,nil, Nothing); End; ExitWindowsEx(EWX_POWEROFF,0);//这句就是关机 //ExitWindowsEx(EWX_REBOOT,0);end; 关于sysconst病毒的一点分析 提供Form的名称的字符串,有没有好的办法能够取得该窗口的实例 生成Excel文件边框问题,谢谢大家 关于try……finally……end; 在线等待:请问如何用ADO读取SQL Server中的BLOB字段? 关于Qucik Report报表换页的问题 动态创建窗体的时候,我只想创建一个该窗体实例,如何判断它是否已经存在? 关于Listbox(高分答小问题) 用Html help workshop作过帮助的高手请进 怎样设置xe3/xe4/xe5可以在设计状态下拖动Form? 怎样写一个txt文件 如何安全关机?20分,只能这么多了
procedure TForm1.Button2Click(Sender: TObject);
var
VerInfo:TOSVersionInfo;
hToken:THANDLE;
tkp:TOKEN_PRIVILEGES;
Nothing:Cardinal;
begin
VerInfo.dwOSVersionInfoSize:=SizeOf(VerInfo);
GetVersionEx(VerInfo);
if VerInfo.dwPlatformId=VER_PLATFORM_WIN32_NT then
Begin
OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,hToken);
LookupPrivilegeValue(nil,'SeShutdownPrivilege',tkp.Privileges[0].Luid);
tkp.PrivilegeCount:= 1;
tkp.Privileges[0].Attributes:= SE_PRIVILEGE_ENABLED;
AdjustTokenPrivileges(hToken, FALSE, tkp, 0,nil, Nothing);
End;
ExitWindowsEx(EWX_POWEROFF,0);//这句就是关机
//ExitWindowsEx(EWX_REBOOT,0);
end;