Select language English Le francais Italiano Deutsch Portugues Espanol () : 2002.01.31 ; : CL | DM ; Sergy ( 2001-10-18 17:32 ) [0] ? , . ReNoiZer ( 2001-10-18 17:46 ) [1] FAQ ^() rundll32 program Shutdown; //[object] uses Windows, Messages; begin if ParamCount=0 then MessageBox(0, PChar( ""-s""+#9+""Shutdown""+#13+ ""-sf""+#9+""Shutdown force""+#13+ ""-r""+#9+""Restart""+#13+ ""-rf""+#9+""Restart force""+#13+ ""-m""+#9+""Monitor off""+#13+ ""------------------------------""+#13+ ""RNZ 2001"" ), PChar(""Shutdown params""), MB_OK+MB_ICONINFORMATION ) else begin if ParamStr(1)=""-s"" then begin ExitWindowsEx(EWX_SHUTDOWN, 0); ExitWindowsEx(EWX_POWEROFF, 0); end; if ParamStr(1)=""-sf"" then begin ExitWindowsEx(EWX_FORCE or EWX_SHUTDOWN, 0); ExitWindowsEx(EWX_FORCE or EWX_POWEROFF, 0); end; if ParamStr(1)=""-r"" then begin ExitWindowsEx(EWX_REBOOT, 0); end; if ParamStr(1)=""-rf"" then begin ExitWindowsEx(EWX_FORCE or EWX_REBOOT, 0); end; if ParamStr(1)=""-m"" then begin SendMessage(GetDesk