{
Genellikle bilgisayarda müzik dinliyorum. (Yatarken bile)
Genellikle uyuyakalıyorum.....
Tabiii bilgisayar açık kalıyor. İstediğim zaman kapanması için bu kodu yazdım.
formunuza bir edit ve bir buton ve bir adet timer bırakın
timer in enablesini false yapmalısınız. Yoksa bilgisayarinizi birkaç saniye
içinde kapatir. ha bu arada Timerin interval değerini 10000 yapınki bilgisayarinizin
hizini pek düşürmesin. Daha büyükte yapabilirsiniz...Fakat dikkat edin interval
bir dakikadan daha büyük olmasın..Yoksa verdiğiniz zamanı karşılaştırma yapıp bulamayabilir..

}




unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Timer1: TTimer;
    BitBtn1: TBitBtn;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
     procedure BitBtn1Click(Sender: TObject);
  private
//  function ShutMeDown:string;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  ///BENIM KOD///
  hToken : THandle;
  tkp,p : TTokenPrivileges;
  RetLen : DWord;
  ExReply: LongBool;
  Reply : DWord;
  ///BITTI//
  saat,dakika,saniye,milisaniye:word;
  s,s1,s2,d1,d2:string;
implementation

{$R *.DFM}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
DecodeTime(Time,saat,dakika,saniye,milisaniye);
if s1=inttostr(saat) then
if s2=inttostr(dakika) then
    begin
       if OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,hToken) then
               begin
               if
LookupPrivilegeValue(nil,'SeShutdownPrivilege',tkp.Privileges[0].Luid) then
                       begin
                       tkp.PrivilegeCount := 1;
                       tkp.Privileges[0].Attributes :=
SE_PRIVILEGE_ENABLED;

AdjustTokenPrivileges(hToken,False,tkp,SizeOf(TTokenPrivileges),p,RetLen);
                       Reply := GetLastError;
               if Reply = ERROR_SUCCESS then
        begin
        ExReply:= ExitWindowsEx(EWX_POWEROFF or EWX_FORCE, 0);
        if ExReply then
//        Result:='Shutdown Initiated'
        else
//        Result:='Shutdown failed with ' + IntToStr(GetLastError);
        end;
       end;
       end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
//edit1.Text:=timetostr(Time);
Label1.Caption :=timetostr(Time);
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
s:=edit1.text;
s1:=Copy(s,1,2);
s2:=copy(s,4,2);
Timer1.Enabled:=true;
begin
   MessageDlg('GERİ SAYIM BAŞLADI', mtInformation,[mbOk], 0);
end;

Application.Minimize;
end;

kullanımı

win 7 de kapatıyor ...
yıllar önce biyerlerden bulduğum bi kod halen daha kullanırım :d:D