Pascal

[Visitante]

Pessoal

      gostaria de saber como faço para executar comandos no pascal, comandos esse do dos. tipo : telnet, net use ou quallquer outa aplicação onde eu possa definir o caminho. Eu utilizo o Free pascal ou turbo pascal  versão 1.4 para windows.

Atenciosamente,

marcos.

[roy]

program oi;

{$M 8192,0,0}

uses Dos,crt;

var Command    : string[79];

begin.

   clrsrc;

   Command := '/C ' + 'dir c:';

   SwapVectors;

   Exec(GetEnv('COMSPEC'), Command);

   SwapVectors;

   readkey;

end.

Aqui tá um exemplo q acredito ser a forma mais fácil de se entender algo... onde tem " Command := '/C ' + 'dir c:'; "

você pode trocar o " 'dir c:' " por qualquer outro comando.

não ESQUEÇA DE COLOCAR ESSA DIRETIVA DE COMPILAÇÃO: " {$M 8192,0,0} "

O q faz o comando é, então repita-o qnts vezes quiser.

   Command := '/C ' + 'dir c:';

   SwapVectors;

   Exec(GetEnv('COMSPEC'), Command);

   SwapVectors;

falou