Komendy DOS w Pascal'u

Dla specjalistów Programowanie
#1

Witam,

chciałem się dowiedzieć jak się stosuje komendy DOS w Pascal’u, tak aby były wykonywane w programie. Na necie znalazłem kilka przykładów, lecz każdy inny i w dodatku mi nie działa. Przeszukałem dużo stron i nic sensownego nie znalazłem, dlatego proszę o pomoc. Wiem na pewno, że jest wymagana biblioteka DOS. Używam Turbo Pascala 7.0

Pozdrawiam, Dawid

#2

Poniższy program wykona dowolną komendę MS-DOS, także z opcjami :wink:

{$M $4000,0,0 }

uses Dos;

var

    Command: string;

begin

    Write('Enter command to execute: ');

    ReadLn(Command);

    Command := '/C' + Command;


    SwapVectors;

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

    SwapVectors;


    if DosError <> 0 then{ Error? }

      WriteLn('Dos error #', DosError)

end.