怎么赠送q币给好友:delphi+设置定时重新启动系统 用那个组件和函数啊

来源：百度文库 编辑：查人人中国名人网 时间：2024/04/28 02:30:34
用delphi 做个小程序，高手帮忙啊

API
这是重起的代码
OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,hToken);
LookupPrivilegeValue(nil,'SeShutdownPrivilege',tkp.Privileges[0].Luid);
// 设定权限为1
tkp.PrivilegeCount := 1;
tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
// 得到权限
AdjustTokenPrivileges(hToken, FALSE, tkp, 0,nil,rr);
// 重起计算机
ExitWindowsEx(EWX_REBOOT OR EWX_POWEROFF, 0)

在窗体上增加一个timer控件，在他的事件中写入以下代码就行了

ExitWindowsEx(EWX_REBOOT, 0);

这是windows api函数，在windows.pas中有声明

delphi+设置定时重新启动系统 用那个组件和函数啊 请问如何简单设置定时重新启动计算机? XP系统怎么设置定时开机? 请问XP系统怎么设置定时关机？？ 电脑不定时重新启动 请问通过什么办法定时自动关闭电脑？用软件？或在系统设置？ 怎样对计划任务栏进行设置重新启动，就是当定时时刻到来时，计算机就会重起！ 请问XP系统下如何设置定时关机啊～？谢谢 利用XP系统能不能设置定时提醒功能? 用优盘系统就重新启动