unit1.pas

很好的东东

unit Unit1;
  //Download by http://www.codefans.net
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin, ExtCtrls, Mask,shellapi;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Button1: TButton;
    Label4: TLabel;
    Timer2: TTimer;
    Timer1: TTimer;
    Label3: TLabel;
    Label1: TLabel;
    Edit1: TEdit;
    Button3: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure guanji();
var
hToken:THandle;
tkp : TOKEN_PRIVILEGES;
ReturnLength : DWord;
begin
if (not OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES or TOKEN_ALL_ACCESS or TOKEN_QUERY, hToken))then
begin
application.Terminate;
end;
LookupPrivilegeValue(nil,'SeShutdownPrivilege',tkp.Privileges[0].Luid);
tkp.PrivilegeCount := 1;
tkp.Privileges[0].Attributes :=SE_PRIVILEGE_ENABLED;
ReturnLength :=0;
AdjustTokenPrivileges(hToken, FALSE, tkp, 0,nil,ReturnLength);
if (GetLastError() <> ERROR_SUCCESS) then
begin
application.Terminate;
end;
if (not ExitWindowsEx(EWX_POWEROFF, 0)) then
begin
application.Terminate;
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 form1.Label4.Caption:='现在是:  '+formatdatetime('yy/mm/dd',now)+'  ';
   label3.Caption:=formatdatetime('hh:mm:ss',now);
 end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 timer1.Enabled:=true;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
if timetostr(now)=edit1.Text then
 guanji();
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.Text='' then
 showmessage('请输入正确格式的时间！')
 else
 begin
 timer2.Enabled:=true;
  button1.Enabled:=false;
   button3.Enabled:=true;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
shellexecute(handle,'open','http://www.xuedelphi.cn',nil,nil,sw_show);
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
  if  timer2.Enabled=true  then
   button1.Caption:='取消';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 timer2.Enabled:=false;
 button1.Enabled:=true;
  button3.Enabled:=false;

end;

end.