Arkadaşlar Delphi'ye ilk başladığım zamanlarda yaptığım basit bir program. Sistemi belirttiğiniz saatte kapatıyor. O zamanlar internette bulamamıştım kendim yaptım.
Gece Pc de müzik dinlerken uyuyakalanlar için yararlı olabilir. Gerçi şuan piyasada çok gelişmişleri var ama siz de biraz geliştirmek isterseniz işe yarar...

O dizini değiştirebilir, silebilir yada yerine başka bir *.wav dosyası koyabilirsiniz.
Program dosyaları
http://ul.to/2ekbqk
iyi çalışmalar... :)
Gece Pc de müzik dinlerken uyuyakalanlar için yararlı olabilir. Gerçi şuan piyasada çok gelişmişleri var ama siz de biraz geliştirmek isterseniz işe yarar...

if a=b then
BEGIN
SendMCICommand('open waveaudio shareable');
SendMCICommand('play "D:\Belgeler\kapat.wav"');
delay(3000);
SendMCICommand('close waveaudio');
ShutMeDown;
end;
end;Yalnız bu kod kısmında görüldüğü üzere kapatma saati geldiğinde; "Bilgisayar 5 Sn içinde kapatılacak." diye bir ses çalıyor sonra kapanıyor.O dizini değiştirebilir, silebilir yada yerine başka bir *.wav dosyası koyabilirsiniz.
Program dosyaları
http://ul.to/2ekbqk
iyi çalışmalar... :)