简单的工作室

delphi写的定时关机程序[源码]

软件类型:国产软件 授权方式:共享软件 界面语言:简体中文 软件大小:0.17 MB 文件类型:.rar 运行环境:Win2003,WinXP,Win2000,Win9X 软件等级:☆☆☆☆☆ 发布时间:2011-02-19 官方网址:http://www.jiandande.com 演示网址:http://www.jiandande.com 下载次数:
软件介绍

     本程序不是使用了网上流传的shutdown 来进行关机,而是采用windows api 函数 exitwindowsex函数进行退出,这个程序也是为自己写的,网上睡觉前躺在床上看电影,或者听英语的时候,设置好关机的时间,然后就可以躺在被窝里了。。。

主要源代码如下:

 

  1.    www.jiandande.com 简单的工作室 
  2. unit Unit1; 
  3.  
  4. interface 
  5.  
  6. uses 
  7.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  8.   Dialogs, StdCtrls, ExtCtrls; 
  9.  
  10. type 
  11.   TForm1 = class(TForm) 
  12.     Label1: TLabel; 
  13.     Editshutdowntime: TEdit; 
  14.     Label2: TLabel; 
  15.     Label3: TLabel; 
  16.     Timer1: TTimer; 
  17.     Timershutdown: TTimer; 
  18.     btn_stop: TButton; 
  19.     btn_start: TButton; 
  20.     procedure Timer1Timer(Sender: TObject); 
  21.     procedure TimershutdownTimer(Sender: TObject); 
  22.     procedure btn_stopClick(Sender: TObject); 
  23.     procedure btn_startClick(Sender: TObject); 
  24.   private 
  25.     { Private declarations } 
  26.   public 
  27.     { Public declarations } 
  28.   end; 
  29.  
  30. var 
  31.   Form1: TForm1; 
  32.  
  33. implementation 
  34.  
  35. {$R *.dfm} 
  36.  
  37. procedure TForm1.Timer1Timer(Sender: TObject); 
  38. begin 
  39.    self.Label3.Caption :formatdatetime('yyyy-mm-dd hh:mm:ss',now); 
  40. end; 
  41.  
  42. procedure AdjustToken(); 
  43. var 
  44.   currToken :THandle; 
  45.   prevState,newState:TTokenPrivileges; 
  46.   prevStateLen :DWORD; 
  47.   uid : TLargeInteger; 
  48. begin 
  49.   OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,currToken); 
  50.   LookupPrivilegeValue(nil,'SeShutdownPrivilege',uid); 
  51.   newState.PrivilegeCount :1
  52.   newState.Privileges[0].Attributes :SE_PRIVILEGE_ENABLED
  53.   newState.Privileges[0].Luid :uid
  54.   windows.AdjustTokenPrivileges(currToken,False,newState,sizeof(TTokenPrivileges),prevState,prevStateLen); 
  55. end; 
  56.  
  57. procedure TForm1.TimershutdownTimer(Sender: TObject); 
  58. var 
  59.   hour,minuter,sec:DWORD; 
  60. begin 
  61.   if strtodatetime(Trim(Editshutdowntime.Text)) - strtodatetime(formatdatetime('hh:mm',now))<=0 then 
  62.   begin 
  63.     AdjustToken; 
  64.     windows.ExitWindowsEx(EWX_POWEROFF or EWX_FORCE ,0); 
  65.   end; 
  66. end; 
  67.  
  68. procedure TForm1.btn_stopClick(Sender: TObject); 
  69. begin 
  70.   self.Timershutdown.Enabled :=False
  71. end; 
  72.  
  73. procedure TForm1.btn_startClick(Sender: TObject); 
  74. begin 
  75.   self.Timershutdown.Enabled :True
  76. end; 
  77.  
  78. end. 

 

下载地址
下载说明

☉推荐使用迅雷下载本站软件,使用 WinRAR v3.10 以上版本解压本站软件。
☉如果这个软件总是不能下载,请选择主站服务器下载,或者后面的迅雷高速下载!!
☉下载本站资源,如果服务器暂不能下载请过一段时间重试!
☉如果遇到什么问题,可以发布留言提问,我们将在那里提供更多 、更好的资源!
☉本站提供的一些商业软件是供学习研究之用,如用于商业用途,请购买正版。

顶一下
(1)
100%
踩一下
(0)
0%
------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
用户名: 验证码:点击我更换图片
栏目列表
推荐软件