Mega Code Archive

 

Categories / Delphi / System

 

Bilgisayarı istenilen vakitte kaydet kapat

procedure TForm1.Button1Click(Sender: TObject); begin InitiateSystemShutdown('0.0.0.0','kapatılıyor',10,true,false); end; //'0.0.0.0' yerine kapatılmak istenen bilgisayarın ipsi yazılır.Boş bir //string tanımı ana makineyi kapatacaktır //''Kapatılıyor' ifadesi yerine istenilen bir mesaj ekranda görüntülenebilir //10 yerine saniye cinsinden başka bir süre belirtebilirsiniz // true ifadesi bilgilerin save edilip edilmeyeceğini belirler //false ifadesi bilgisayarın yeniden başalatılıp başlatılmayacağını belirler,true yapılırsa bilgisayar yeniden başlatılır