Bilgisayarı Kontrollü Bir Şekilde Kapatmak

Bilgisayariniz kaydedilmemis bilgileri kaydedip belirtilen sürede kapanir

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.