Italian community of Lazarus and Free Pascal

Presentazioni => Presentazioni nuovi utenti => Topic aperto da: Sandro - Luglio 10, 2017, 09:00:36 pm

Titolo: Presentazione.
Inserito da: Sandro - Luglio 10, 2017, 09:00:36 pm
BuonaSera a Tutti; grazie di avermi accettato nel forum.
Ho 45 anni ... e quando ne avevo 20 facevo qualche programmino in Pascal ....
Ora, sto usando come OS Funtoo Linux; e vorrei "riacquisire" in primis conoscenze di base ... quindi conoscenze più avanzate.

Per ora come allenamento  sto usando fpc

Ho creato un software davvero banale tanto per "togliere un po' di ruggine" :)

Codice: [Seleziona]
Program Spegni;

uses
  Classes, sysutils, process,unix;

        VAR ore,minuti:string[2];
        comando:string;
        s:ansistring;

Procedure Clear_old;
    begin;
        fpsystem('clear');
        fpsystem('shutdown -c');
        writeln('ho annullato il precedente shutdown');
    end;

Begin
    Clear_old;
    writeln;
    write('Inserisci ora: ');
    readln(ore);
    write('Inserisci minuti: ');
    readln(minuti);
    comando:=' shutdown -hP '+ore+':'+minuti+'&';
    s:=comando;
    fpsystem(s);
    writeln('Il sistema verrà arrestato alle ore '+ore+':'+minuti);
end.

Grazie :)
Titolo: Re:Presentazione.
Inserito da: xinyiman - Luglio 11, 2017, 08:09:21 am
Benvenuto e bentornato alla programmazione, ho dato uno sguardo veloce. Il tuo programma funziona, ma hai usato fpsystem che dovrebbe funzionare solo su linux. Il metodo per eseguire un comando esterno che sia cross-platform è usare TProcess.

Guarda qui: http://wiki.freepascal.org/Executing_External_Programs
Titolo: Re:Presentazione.
Inserito da: nomorelogic - Luglio 11, 2017, 05:13:21 pm
benvenuto Sandro
lietissimo di sapere che c'è un altro Linuxiano in questo forum!!!  8)