Un martello?
Ogni OS ha le sue ...
Se potessi accedere direttamente all'hw (come con il MS-DOS, per capirci) il reboot lo fai saltando alla posizione 0 con il program counter.
In Java ho trovato questo frammento ...
public static void shutdown() throws RuntimeException, IOException {
String osName = System.getProperty("os.name");
if (osName.startsWith("Win")) {
shutdownCommand = "shutdown.exe -s -t 0";
} else if (osName.startsWith("Linux") || osName.startsWith("Mac")) {
shutdownCommand = "shutdown -h now";
} else {
System.err.println("Shutdown unsupported operating system ...");
//closeApp();
}
Per l'esecuzione di processi esterni : http://wiki.freepascal.org/Executing_External_Programs/it
Per il riconoscimento della piattaforma ... o te la giochi con la solita pappardella degli IFDEF o trovi una stada migliore ;)
Potresti fare una cosa del genere :
Dichiari una unit (OSSystemUtils .. o simile)
Nella interface dichiari la firma del metodo.
interface
procedure OSShutdown;
implementation
{IFDEF Win}
{$INCLUDE OSShotDownWin.inc}
{$ELSE}{IFDEF MAC}
{$INCLUDE OSShotDownMac.inc}
{$ELSE}{IFDEF LINUX}
{$INCLUDE OSShotDownLin.inc}
L'alternativa è vedere (ma ho cercato rapidamente senza trovarlo) se hai la possibilità di avere il nome direttamente da qualche funzione / costante da testare.
Con questa strada ti riporti alla versione più simile a quella java...
Scusa, ma sono di fretta ... io uso questo che va su windows e Linux
{$IFDEF MSWINDOWS}
Comando:='ShutDown';
Parametri:='-s -f -t 0';
EseguiProcesso(Comando, Parametri, False);
{$ELSE}
MinutiStr:=IntToStr(Ritardo div 60);
//Comando:='/sbin/shutdown';
//Parametri:='-h now';
//EseguiProcesso(Comando, Parametri, False);
Comando:='/usr/bin/dbus-send';
Parametri:='--system --print-reply --dest=org.freedesktop.Hal /org/freedesktop/Hal/devices/computer org.freedesktop.Hal.Device.SystemPowerManagement.Shutdown';
EseguiProcesso(Comando, Parametri, False);
//Aspetto 30 secondi. Se il PC è ancora acceso, provo con lo shutdown
Sleep(30 * CstSecondi);
Comando:='/sbin/shutdown';
Parametri:='-h now';
EseguiProcesso(Comando, Parametri, False);
//Aspetto 30 secondi. Se il PC è ancora acceso, provo con lo shutdown che mi sono
//salvato nella directory uty
Sleep(30 * CstSecondi);
Comando:='/home/bonmario/uty/shutdown';
Parametri:='-h now';
EseguiProcesso(Comando, Parametri, False);
//Aspetto 30 secondi. Se il PC è ancora acceso, alzo bandiera bianca
//ed emetto un messaggio di errore !!!!
Sleep(30 * CstSecondi);
EmettiErrore(0, 'Impossibile spegnere il PC :-(((');
{$ENDIF}
Purtroppo richiama altre mie procedure mie, ma credo che in ogni caso sia capibile. Se ci sono problemi chiedi pure, appena torno a casa ti rispondo.
Ciao, Mario
Subito !!!
{Eseguo un comando ed attendo fino a quando non termina}
function EseguiProcesso(const Comando, Parametri:string;Visualizza:Boolean;
ForzaDirCorrente:String = ''):String;
var MyProcess:TProcess;
OraInizio, OraAttuale:DWord;
Appo:String;
begin
//Imposto un valore che faccia capire al chiamante se il comando non è stato eseguito
Result:=CstProcNonExec;
MyProcess:=TProcess.Create(nil);
MyProcess.CommandLine:=Comando + ' ' + Parametri;
if (ForzaDirCorrente = '') then begin
MyProcess.CurrentDirectory:=ExtractFileDir(Comando);
end else begin
MyProcess.CurrentDirectory:=AppendPathDelim(ForzaDirCorrente);
end;
//Faccio in modo che nel titolo della finestra venga scritto il comando lanciato.
//Questo dovrebbe funzionare solo quando viene eseguito un comando DOS
MyProcess.ConsoleTitle:=Comando + ' ' + Parametri;
if Visualizza then MyProcess.ShowWindow:=swoShow
else MyProcess.ShowWindow:=swoHIDE;
// Priorità dalla più bassa alla più alta:
// ppIdle
// ppNormal
// ppHigh
// ppRealTime
MyProcess.Priority:=ppIdle; // priorità bassa
try
try
MyProcess.Execute;
OraInizio:=GetTickCount;
while MyProcess.Running do begin
Sleep(100);
OraAttuale:=GetTickCount;
// Ogni 5 secondi aggiorno il video
if ((OraAttuale - OraInizio) >= (5 * CstSecondi)) then begin
OraInizio:=OraAttuale;
AggiornaVideo
end;
end;
//Comunico al chiamante il risultato dell/esecuzione
Result:=IntToStr(MyProcess.ExitStatus);
finally
// Libero la memoria
FreeAndNil(MyProcess);
end;
except
on E:Exception do begin
//Comunico al chiamante che qualcosa è andato storto
Result:=E.Message;
end;
end;
// Aggiorno il video
AggiornaVideo
end;
P.S. "AggiornaVideo" è un semplice "Application.ProcessMessages".
Ciao, Mario