ShutDhown, Restart Komputermu dengan Delphi

Untuk melakukan shutdown, restart logoff komputer, sebenarnya gak susah2 amat kok. Cukup dengan menggunakan fungsi ExitWindowsEx.

Pertama design form sesukamu, setelah itu tambahkan deklarasi fungsi ExitWindowsEx sebagai berikut :

function ExitWindowsEx (uFlags : word ; dwReserved : DWORD) : BOOL ;

Parameter pertama diatas menerangkan apa yang harus dilakukan komputer. Jadi parameter ini dapat bernilai :

1. EWX_RESTART (Melalukan restart dengan menampilkan peringatan)
2. EWX_SHUTDOWN (Melakukan shutdown dengan menampilkan peringatan)
3. EWX_LOGOFF (Melakukan logoff dengan menampilkan peringatan)
4. EWX_FORCE (Melakukan shutdown tanpa menampilkan peringatan. Sehingga ada kemungkinan Anda kehilangan data yang belum di save)

Untuk paramater kedua Anda cukup memberikan nilai 0.

Kalau Anda ingin melakukan shutdown cukup tuliskan script di bawah ini :

exitWindowsEx (EWX_SHUTDOWN, 0);