Programa Mini Unix.

adsonrenato
(usa Ubuntu)

Enviado em 06/04/2010 - 19:53h

Galera alguem sabe como executar esse codigo de forma que use com os comandos do linux. Interagindo com Bash..



program comando_dos;

{$M 8192,0,0}

uses Dos;

var
comando: string[127];

begin
repeat
writeln('Digite <sair> para sair');
Write('Digite o comando: ');
ReadLn(comando);
if comando <> '' then
begin
SwapVectors;
Exec(GetEnv('COMSPEC'), '/C ' + comando);
SwapVectors;
if DosError <> 0 then
WriteLn('naum pude executar');
WriteLn;
end;
until comando = 'sair';
end.