سلام دوستان
هدف : اين برنامه ساعتي را كه مي خواهيد كامپيوتر خاموش شود و يا راه اندازي و يا
LogOff شود را دريافت كرده سپس سر ساعت مشخص شده برنامه وظيفه اي را كه انتخاب كرده ايد را انجام مي دهد .
مواد لازم :
2 عدد Timer - يك عدد EditBox - يك عدد Button - سه عدد RadioButton – يک عدد Lable
شروع كار :
مرحله اول ...
بروي تايمر (1) ، 2 بار كليك کنيد و سپس بين begin , end دستورات زير را بنوسيد :
کد:
IF Label3.Caption = Edit1.Text Then
BEGIN
if RadioButton1.Checked then
windows.ExitWindowsEx(ewx_shutdown,0)
else if RadioButton2.Checked then
windows.ExitWindowsEx(ewx_reboot,0)
else if RadioButton3.Checked then
windows.ExitWindowsEx(ewx_logoff,0);
END;
سپس مشخصه Enabel تايمر (1) را به False تغيير دهيد .
مرحله دوم ...
بر روي تايمر (2) ، دو بار كليك كنيد و سپس تابع زير را در آن بنوسيد :
کد:
Label3.Caption := (TimeToStr(Time));
مرحله سوم ...
در OnShow فرم کد روبرو را بنويسيد .
کد:
Edit1.Text := (TimeToStr(Time));
مرحله چهارم ...
بر روي هر كدام از RadioButton موجود روي فرم كليك كنيد و سپس Caption هاي آنها را به صورت زير تغيير دهيد :
(RadioButton1) : " خاموش كردن كامپيوتر"
(RadioButton1) : "راه اندزي مجدد كامپيوتر"
(RadioButton1) : "LogOff کردن ويندوز"
مرحله پنجم ...
بر روي Button دو بار كليك كنيد و دستور زير را درآن بنويسيد .
کد:
Timer1.Enabled := True;
مرحله آخر...
كليد F9 را بزنيد تا برنامه اجرا شود .
حالا يكي از 3 گزينه هاي انتخابي را به دلخواه انتخاب كنيد و سپس ساعت داخل EditBox را به دلخواه تغيير دهيد (توجه كنيد ساعت را بايد كاملا مانند ساعت بر روي فرم بنوسيد همراه با رعايت فاصله) و Button1 را كليك كنيد .
از آدرس زير مي توانيد برنامه ساخته شده را دانلود كنيد :
حجم : 285k
لينك دانلود :
http://ghasem.persiangig.com/other/Delp ... Delphi.rarموفق باشيد
باي