请问如何做一个定时关机的程序 ( 积分: 100 )

luoyaowen · 2005-04-20

我的想法是这样 一个窗口中，选择你要关机的时间，到时间后会自动关机（包括显示器），重启，注销等功能

luoyaowen · 2005-04-20

我的想法是这样 一个窗口中，选择你要关机的时间，到时间后会自动关机（包括显示器），重启，注销等功能

dedema · 2005-04-20

现在显示器在主机关机的情况都会关机的吧! 如果在主机开机状态下可以用如下命令开关显示器: //True时唤醒 procedure SwitchMonitor(Open:Boolean);//开关显示器 begin SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER,IfThen(Open,-1,2)); end; 要进行关机.在Windows9X下使用API命令:ExitWindowsEx就可以了. 在NT系列下则要先获得权限.然后才能关机. 如下函数所示 function SetPrivilege(const sPrivilegeName: string; bEnabled: boolean): boolean; var  TPPrev, TP: TTokenPrivileges;  Token: THandle;  dwRetLen: DWord; begin  Result := False;  OpenProcessToken(GetCurrentProcess,    TOKEN_ADJUST_PRIVILEGES    or TOKEN_QUERY,    Token);  TP.PrivilegeCount := 1;  if (LookupPrivilegeValue(nil,    PChar(sPrivilegeName),    TP.Privileges[0].LUID)   &nbsp

then  begin    TP.Privileges[0].Attributes := IfThen(bEnabled, SE_PRIVILEGE_ENABLED, 0);    dwRetLen := 0;    Result := AdjustTokenPrivileges(Token, False,TP, SizeOf(TPPrev),TPPrev,dwRetLen);  end;  CloseHandle(Token); end; function WinExitInNT(iFlags: Integer): Boolean; begin  Result := True;  if (SetPrivilege('SeShutdownPrivilege', True)) then  begin    if (not ExitWindowsEx(iFlags, 0)) then    begin      Result := False;    end;    SetPrivilege('SeShutdownPrivilege', False)  end  else // handle errors...    Result := False; end;

delfier · 2005-04-20

if datetimetostr(now)=你所定时间 then ExitWindowsEx(EWX_SHUTDOWN and EWX_POWEROFF ,1);

xianguo · 2005-04-20

在win2k或winXP下定制计划任务执行shutdown.exe

oiwin · 2005-04-20

一个记时器TIMER 还需要下面的函数 下面的函数在98,2000,XP下都有效,你自己试试吧. procedure ShutDown(const tpye: integer); const  SE_SHUTDOWN_NAME = 'SeShutdownPrivilege'; var  hToken: THandle;  tkp: TTokenPrivileges;  tkpo: TTokenPrivileges;  zero: DWORD; function GetVersion: string; var  VersionInfo: TOSVersionInfo;  OSName: string; begin  VersionInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);  if Windows.GetVersionEx(VersionInfo) then  begin    with VersionInfo do    begin      case dwPlatformId of        VER_PLATFORM_WIN32s: OSName := 'Win32s';        VER_PLATFORM_WIN32_WINDOWS: OSName := 'Windows 95';        VER_PLATFORM_WIN32_NT: OSName := 'Windows NT';      end;      Result := OSName;    end;  end  else    Result := ''; end; begin  if Pos('Windows NT', GetVersion) = 1 then  begin    zero := 0;    if not OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then    begin      MessageBox(0, 'Exit Error', 'OpenProcessToken() Failed', MB_OK);      Exit;    end;    if not OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then    begin      MessageBox(0, 'Exit Error', 'OpenProcessToken() Failed', MB_OK);      Exit;    end;    if not LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid) then    begin      MessageBox(0, 'Exit Error', 'LookupPrivilegeValue() Failed', MB_OK);      Exit;    end;    tkp.PrivilegeCount := 1;    tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;    AdjustTokenPrivileges(hToken, False, tkp, SizeOf(TTokenPrivileges), tkpo, zero);    if Boolean(GetLastError()) then    begin      MessageBox(0, 'Exit Error', 'AdjustTokenPrivileges() Failed', MB_OK);      Exit;    end;  end;  ExitWindowsEx(tpye, 0); end; //tpye定义如下 {  EWX_LOGOFF = 0;  EWX_SHUTDOWN = 1;  EWX_REBOOT = 2;  EWX_FORCE = 4;  EWX_POWEROFF = 8;  EWX_FORCEIFHUNG = $10; }

请问如何做一个定时关机的程序 ( 积分: 100 )

luoyaowen

Unregistered / Unconfirmed

luoyaowen

Unregistered / Unconfirmed

dedema

Unregistered / Unconfirmed

delfier

Unregistered / Unconfirmed

xianguo

Unregistered / Unconfirmed

oiwin

Unregistered / Unconfirmed

Similar threads