Bilgisayarı Zaman Ayarlı Kapatma

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, ComCtrls, StdCtrls, Buttons;

type
TForm1 = class(TForm)
Label2: TLabel;Label3: TLabel;s: TStatusBar; Button3: TButton;Edit3: TEdit;
Timer1: TTimer;Timer3: TTimer;Timer2: TTimer;Panel1: TPanel;a: TRadioButton;
b: TRadioButton;Panel2: TPanel;c: TRadioButton;d: TRadioButton;
e: TRadioButton;Panel3: TPanel;Edit1: TEdit;Edit2: TEdit;Panel4: TPanel;
Button1: TButton;Button2: TButton;SpeedButton1: TSpeedButton;
Panel5: TPanel;Label1: TLabel;procedure FormCreate(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Timer1Timer(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure Edit3Change(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin AlphaBlend := true;AlphaBlendValue := 230;end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin if not (key in ['0'..'9',#8]) then begin Key:=#0; Beep; end;end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin label1.Caption:=' Şuan Saat : '+FormatDateTime('tt',Now);end;

procedure TForm1.Button2Click(Sender: TObject);
begin Showmessage('Sadimba Software '+#13+#10+'Önerileriniz için : mkstyle@mynet.com');end;

procedure TForm1.Button3Click(Sender: TObject);
vartkHandle : THandle;BufferLun,ret : DWORD;tk,tkPrevious : TTokenPrivileges;
LID : TLargeInteger;LUID : TLuIDAndAttributes;versione : TOSVersionInfo;
begin
BufferLun := 1024;
ret := 0;
versione.dwOSVersionInfoSize := sizeof(versione);
GetVersionEx(versione);
if versione.dwPlatformId = VER_PLATFORM_WIN32_NT then
begin tkHandle := GetCurrentProcess;
OpenProcessToken(tkHandle,TOKEN_ALL_ACCESS,tkHandle);
LookupPrivilegeValue(PChar(''),PChar('SeShutDownPrivilege'),LID);
LUID.Luid := LID;
LUID.Attributes := SE_PRIVILEGE_ENABLED;
tk.PrivilegeCount := 1;
tk.Privileges[0] := LUID;
AdjustTokenPrivileges(tkHandle,False,tk,BufferLun,tkPrevious,ret);
end; ExitWindowsEx(EWX_SHUTDOWN or EWX_PowerOff,0);end;

procedure TForm1.Button1Click(Sender: TObject);
var w:integer;
begin if button1.Caption='KUR' then begin
timer3.Interval:=300;button1.Caption:='İPTAL';
label2.Caption:='0';if a.Checked=true then begin
w:=strtoint(edit1.Text);label3.Caption:=inttostr(W);
timer2.Interval:=1000;end;if b.Checked=true then begin
w:=strtoint(edit2.Text)*60;label3.Caption:=inttostr(W);
timer2.Interval:=1000;end; if c.Checked=true then begin
w:=30*60;label3.Caption:=inttostr(W);timer2.Interval:=1000;
end;if d.Checked=true then begin w:=60*60;label3.Caption:=inttostr(W); timer2.Interval:=1000; end;if e.Checked=true then begin w:=90*60; label3.Caption:=inttostr(W); timer2.Interval:=1000;end; end else begin
button1.Caption:='KUR';timer2.Interval:=0;timer3.Interval:=0;end;end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin if strtoint(label3.caption)<>strtoint(label2.caption) then
begin label2.Caption :=inttostr(strtoint(label2.Caption)+1);
end else begin edit3.Text:='E'; timer2.Interval:=0; end;end;

procedure TForm1.Edit3Change(Sender: TObject);
begin button3.Click; end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin Close;end;

end.