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