arkadaşlar merhaba.bir arkadaşım windowsunun istedği zamanda kapatılması icin program yazmış delphi ile.bende buna bakarak yazacağım ama kodların arasında
datetimepicker ve suiradiobutton felan var.bunlar kafamı karıştı.yardımcı olursanız sevinirim.

kodlar

Kod:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, SUIButton, ExtCtrls, SUIForm, StdCtrls, ComCtrls; type TForm1 = class(TForm) suiForm1: TsuiForm; suiRadioButton1: TsuiRadioButton; suiRadioButton2: TsuiRadioButton; suiRadioButton3: TsuiRadioButton; suiRadioButton4: TsuiRadioButton; suiRadioButton5: TsuiRadioButton; Timer1: TTimer; Label1: TLabel; DateTimePicker1: TDateTimePicker; DateTimePicker2: TDateTimePicker; suiRadioButton6: TsuiRadioButton; suiRadioButton7: TsuiRadioButton; suiRadioButton8: TsuiRadioButton; suiRadioButton9: TsuiRadioButton; suiRadioButton10: TsuiRadioButton; suiButton1: TsuiButton; Label2: TLabel; suiButton2: TsuiButton; procedure Timer1Timer(Sender: TObject); procedure suiRadioButton1Click(Sender: TObject); procedure suiRadioButton2Click(Sender: TObject); procedure suiRadioButton3Click(Sender: TObject); procedure suiRadioButton4Click(Sender: TObject); procedure suiRadioButton5Click(Sender: TObject); procedure suiRadioButton6Click(Sender: TObject); procedure suiRadioButton7Click(Sender: TObject); procedure suiRadioButton8Click(Sender: TObject); procedure suiRadioButton9Click(Sender: TObject); procedure suiRadioButton10Click(Sender: TObject); procedure suiButton1Click(Sender: TObject); procedure suiButton2Click(Sender: TObject); private public end; var Form1: TForm1; implementation uses Unit2; procedure TForm1.Timer1Timer(Sender: TObject); begin if timetostr(datetimepicker1.Time-datetimepicker2.Time)='00:00:00' then begin timer1.Enabled:=false; winexec('cmd /c shutdown -s -t 0',sw_hide); exit; end; datetimepicker1.Time:=time(); if suiradiobutton1.Checked or suiradiobutton2.Checked or suiradiobutton3.Checked or suiradiobutton4.Checked or suiradiobutton5.Checked or suiradiobutton6.Checked or suiradiobutton7.Checked or suiradiobutton8.Checked or suiradiobutton9.Checked or suiradiobutton10.Checked then begin label1.Caption:='Kalan : '+timetostr(datetimepicker1.Time-datetimepicker2.Time); end else label1.Caption:='Saat : '+timetostr(time()); end; procedure TForm1.suiRadioButton1Click(Sender: TObject); begin datetimepicker2.time:=datetimepicker1.Time+encodet ime(00,01,00,00); end; procedure TForm1.suiRadioButton2Click(Sender: TObject); begin datetimepicker2.time:=datetimepicker1.Time+encodet ime(00,03,00,00); end; procedure TForm1.suiRadioButton3Click(Sender: TObject); begin datetimepicker2.time:=datetimepicker1.Time+encodet ime(00,05,00,00); end; procedure TForm1.suiRadioButton4Click(Sender: TObject); begin datetimepicker2.time:=datetimepicker1.Time+encodet ime(00,08,00,00); end; procedure TForm1.suiRadioButton5Click(Sender: TObject); begin datetimepicker2.time:=datetimepicker1.Time+encodet ime(00,10,00,00); end; procedure TForm1.suiRadioButton6Click(Sender: TObject); begin datetimepicker2.time:=datetimepicker1.Time+encodet ime(00,20,00,00); end; procedure TForm1.suiRadioButton7Click(Sender: TObject); begin datetimepicker2.time:=datetimepicker1.Time+encodet ime(00,25,00,00); end; procedure TForm1.suiRadioButton8Click(Sender: TObject); begin datetimepicker2.time:=datetimepicker1.Time+encodet ime(00,30,00,00); end; procedure TForm1.suiRadioButton9Click(Sender: TObject); begin datetimepicker2.time:=datetimepicker1.Time+encodet ime(01,00,00,00); end; procedure TForm1.suiRadioButton10Click(Sender: TObject); begin datetimepicker2.time:=datetimepicker1.Time+encodet ime(02,00,00,00); end; procedure TForm1.suiButton1Click(Sender: TObject); begin showmessage(timetostr(time()]#13+'xxxxxxxxxxxxxxxxxxxxxx'); end; procedure TForm1.suiButton2Click(Sender: TObject); begin form2.show; form1.enabled:=false; end; end.

__________________