怎么实现自动关机啊? ( 积分: 100 )

我是菜鸟... 高手能告诉我怎么实现自动关机吗? 全文检索没不能用? 郁闷

下载 关机酷.或者在运行里输入"at 00:00 shutdown - *",其中*为参数.
00:00为时间,使用24小时制
下面是Shutdown.exe的参数，每个都具有特定的用途：
-s：表示关闭本地计算机
-a：表示取消关机操作
-i：显示图形用户界面，但必须是Shutdown的第一个选项
-t时间：设置关机倒计时
-c "消息内容"：输入关机对话框中的消息内容(不能超127个字符)
-l：注销当前用户
-r：关机并重启
-f：强行关闭应用程序
-m ＼＼计算机名：控制远程计算机
输入“shutdown -i”，可以对自动关机进行设置
输入“Shutdown.exe -s -t 300”，这里表示5分钟后自动关机，“300”代表5分钟
设置好自动关机后，如果想取消，则在运行中输入“shutdown -a”

一个Ttimer控件.一个函数ExitWindowsEX

老子哦。。也这样的问题也在问。。。。二楼的已经说得很清楚了。。。。

楼上说的那个方法必要求在电脑要有 shutdown.exe,没有就关不了机

建议用下面的方法,我也是下的

function Tmain.rs(flag: word): bool;
var
TokenPriv: TTokenPrivileges;
H: DWord;
HToken: THandle;
begin
if Win32Platform = VER_PLATFORM_WIN32_NT then
begin
OpenProcessToken(GetCurrentProcess,
TOKEN_ADJUST_PRIVILEGES,HToken);
LookUpPrivilegeValue(NIL, 'SeShutdownPrivilege',
TokenPriv.Privileges[0].Luid);
TokenPriv.PrivilegeCount := 1;
TokenPriv.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
H := 0;
AdjustTokenPrivileges(HToken, FALSE,
TokenPriv, 0, PTokenPrivileges(NIL)^, H);
CloseHandle(HToken);
end;
Result := ExitWindowsEx(Flag, 3);
end;

多人接受答案了。