Bilgisayari istediginiz zaman kapatmak

 
Bu konu ile benzer olabilecek diğer forum sayfaları
 
 
 
 
Bilgisayarinizi istediginiz bir zamanda kapatir
 
 
PHP Kodu:
interface

uses
Windows
MessagesSysUtilsClassesGraphicsControlsFormsDialogs,
ExtCtrlsStdCtrls;

type
TForm1 
= class(TForm)
Button1TButton;
Label1TLabel;
Edit1TEdit;
Timer1TTimer;
procedure Timer1Timer(SenderTObject);
procedure FormCreate(SenderTObject);
procedure Button1Click(SenderTObject);
private
Private declarations }
public
Public declarations }
end;

var
Form1TForm1;
saat,dakika,saniye,milisaniye:word;
s,s1,s2,d1,d2:string;
implementation

{$R *.DFM}

procedure TForm1.Timer1Timer(SenderTObject);
begin
DecodeTime
(Time,saat,dakika,saniye,milisaniye);
if 
s1=inttostr(saatthen
if s2=inttostr(dakikathen
begin
exitwindowsex
(EWX_SHUTDOWN,0);
end;
end;

procedure TForm1.FormCreate(SenderTObject);
begin
edit1
.Text:=timetostr(Time);
end;

procedure TForm1.Button1Click(SenderTObject);
begin
s
:=edit1.text;
s1:=Copy(s,1,2);
s2:=copy(s,4,2);
Timer1.Enabled:=true;
Application.Minimize;
end;

end


ALINTIDIR
 
 

 
 

 ~ 

Bu konunun linki : 

Yukarıdaki linki arkadaşlarınıza göndermek için kullanabilirsiniz ve bu sayfada; Bilgisayari istediginiz zaman kapatmak hakkında bilgiler nedir yazıları veya şiirleri gibi sözleri veya resimleri Bilgisayari istediginiz zaman kapatmak siteleri gibi benzer birçok forum konularını bulabilirsiniz.

 ~ 

Son Forum Mesajları

Kaynak linkimizi belirtmek koşulu ile her türlü bilgiyi kopyalayabilirsiniz. Forum içerisinde yazılan tüm mesajların hukuki sorumlulukları mesajları yazanlara aittir. Üyeler, üyelik sözleşmesi gereği bu kuralı kabul etmiş sayılır. Ziyaretçilerimiz bu forumu kullanmadan önce Forum Kurallarını okumak zorundadırlar. Aksi durumda meydana gelecek bütün olumsuz durumlardan ziyaretçilerin bizzat kendileri sorumludur. Sitemizde telif, kişi haklarına; yasalara aykırı olduğunu düşündüğünüz bir konu görürseniz bize aşağıdaki iletişim adresinden ulaşabilirsiniz.

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60 100, 150, 200, 250, 300, 350, 400, 450, 500, 550, 600, 650, 700, 750, 800, 850, 900, 950, 960

© 2006-2020 ilgiliFORUM.com