怎样在计算机开机后两小时自动关机(两小时内一直在玩游戏
解决方案 »
- bpl里的Frame如何引用
- 在线等待-50分 有兄弟知道如何让我的程序能随winamp一起启动吗?就像迷你歌词那个程序一样!!
- 在线等待 50分--怎么挨个返回listview1的各个元素
- 条码扫描问题
- 再次给分!
- 报表中的自增内容。
- 关于Socket的问题,请大家帮忙????????????
- 如何如下要求自动替换memo.text中的内容
- ----------------------我想这真是个难题,难道我水平太差?!!!需要这样的控件:form的背景是图片,在form上放置按钮,这个按钮要透明
- 大家帮帮我,用Delphi做了一个CORBA程序(三层),在发布时客户端应发布什么文件,发布时应用程序服务器应发布什么文件??
- 请问高手,如何修改选中listview的item中子项的内容?多谢了
- 如何把DELPHI运行下的所有文件打包成一个exe的文件
记录时间差。。然后关机!//下边是个关机程序。。
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject); private
{ Private declarations }
procedure AdjustToken;
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.AdjustToken();
var
hdlProcessHandle : Cardinal;
hdlTokenHandle : Cardinal;
tmpLuid : Int64;
tkpPrivilegeCount : Int64;
tkp : TOKEN_PRIVILEGES;
tkpNewButIgnored : TOKEN_PRIVILEGES;
lBufferNeeded : Cardinal;
Privilege : array[0..0] of _LUID_AND_ATTRIBUTES;
begin
hdlProcessHandle := GetCurrentProcess;
OpenProcessToken(hdlProcessHandle,
(TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY),
hdlTokenHandle); // Get the LUID for shutdown privilege.
LookupPrivilegeValue('', 'SeShutdownPrivilege', tmpLuid);
Privilege[0].Luid := tmpLuid;
Privilege[0].Attributes := SE_PRIVILEGE_ENABLED;
tkp.PrivilegeCount := 1; // One privilege to set
tkp.Privileges[0] := Privilege[0];
// Enable the shutdown privilege in the access token of this
// process.
AdjustTokenPrivileges(hdlTokenHandle,
False,
tkp,
Sizeof(tkpNewButIgnored),
tkpNewButIgnored,
lBufferNeeded); end;
procedure TForm1.Button1Click(Sender: TObject);
begin
AdjustToken;
ExitWindowsEx((EWX_SHUTDOWN Or EWX_FORCE Or EWX_REBOOT), $FFFF);
end;end.