[PASCAL] Comandi DOS in Pascal

[tanogae]

Diciamo che è possibile eseguire dei programmi, per quanto riguarda l'esecuzione di comandi DOS interni (come DIR, CD, ecc..) non so se la cosa è fattibile.

Per eseguire un programma da Pascal bisogna usare la funzione Exec:

procedure Exec(Path, CmdLine: String);

Un esempio, tratto dalla guida:

Program esecuzione;
{$M $4000,0,0 }   { 16K stack, no heap }
uses Dos;
var
  ProgramName, CmdLine: string;
begin
  Write('Programma da eseguire (path completo): ');
  ReadLn(ProgramName);
  Write('Parametri da passare a ',
        ProgramName, ': ');
  ReadLn(CmdLine);
  WriteLn('Esecuzione...');
  SwapVectors;
  Exec(ProgramName, CmdLine);
  SwapVectors;
  WriteLn('...tornato dall'esecuzione!');
  if DosError <> 0 then { Errori? }
    WriteLn('Errore Dos N°', DosError)
  else
    WriteLn('Eseguito con successo. ',
            'Exit-code del processo figlio = ',
            DosExitCode);
end.

Ciao.