System Delphi

//bilgisayari kapatmak icin
exitwindowsex(EWX_SHUTDOWN,0);
//bilgisayari yeniden baslatmak icin
exitwindowsex(EWX_REBOOT,0);