如何用delphi写一个定时关机的程序

Question

你在system控件页上选一个timer控件，　将timer设为　1000,在它的ontimer事件里写到上if timetostr(now)='12:00:00' Then
ExitWindowsEx(Flage, 0);

Answer 1

你可以到http://www.embed.com.cn/download/upfile/abc03921下载一个，其中有定时关机功能

Answer 2

if timetostr(now)='12:00:00' Then
ExitWindowsEx(true, 0);

Answer 3

function ShutDown(uFlags: Cardinal):boolean;
const
  ADJUST_PRIV = TOKEN_QUERY or TOKEN_ADJUST_PRIVILEGES;
  SHTDWN_PRIV = 'SeShutdownPrivilege';
  PRIV_SIZE   = sizeOf(TTokenPrivileges);var
  Len: DWORD;
  TokenPriv, Dummy: TTokenPrivileges;
  Token: THandle;
  Error:integer;
begin
  error:=0;
  // 设置特权
  // Delphi2:
  //if not OpenProcessToken(GetCurrentProcess(), ADJUST_PRIV, @Token) then
  if not OpenProcessToken(GetCurrentProcess(), ADJUST_PRIV, Token) then
      Error := Error or 4;
  if not LookupPrivilegeValue(nil, SHTDWN_PRIV,TokenPriv.Privileges[0].Luid) then
    Error := Error or 8;
  TokenPriv.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
  TokenPriv.PrivilegeCount := 1;  // One privilege to set
  if not AdjustTokenPrivileges(Token, false, TokenPriv, PRIV_SIZE,Dummy, Len) then
    Error:=Error or 16;
  ExitWindowsEx(uFlags, 0);
  Result := (Error=0);
end;
调用：
ShutDown(EWX_POWEROFF + EWX_FORCE);//强制关机并无任何提示

Answer 4

datatostr(data)
timetostr(time)
显示当前日期和时间，data根据国家设定现实类型不同

Answer 5

www.billowsoft.net/download.asp?dtype=freecode

Answer 6

楼上的写错了吧，应该是date
delphi里的时间转换为字符串的function很多的：datetostr,datetimetostr,datetimetostring等。酌情挑选。

Answer 7

把 my_first(海浪) 兄写的程序放到计划任务中更好，到时间执行，呵呵

Answer 8

在主窗口上用一定时器不就可以了吗。你可以定时在一天的哪个时候关机或都定义开机多少时间关机。用这个函数吧：
ShutDown(EWX_POWEROFF + EWX_FORCE);强行关机。

Answer 9

用timer会不会造成系统开销过大影响效率啊？

Answer 10

直接写一个强行关机的程序，然后放的计划任务里就行了。
我觉得上面的人把方法都说了呀，随便那个都行的。
ShutDown(EWX_POWEROFF + EWX_FORCE）

Answer 11

如果是95，98，me直接调用ExitWindowsEx(Flage, 0);
如果是NT或者2000以上则必须取得系统特权，即楼上iceboy2000的方法！

Answer 12

怎么我直接调用ShutDown(EWX_POWEROFF + EWX_FORCE)函数，系统说[Error] Unit1.pas(98): Undeclared identifier: 'ShutDown'什么的问题？