exec da unit DOS no pascal

[marlonCampos]

Já procurei pelo fórum algumas informações sobre a instrução exec da unit DOS no pascal, porém sem suceso.

Se alguém souber de alguma apostila que fale completamente sobre a unit DOS eu agradeço, pode até ser em inglês.

O meu objetivo é descobrir como apagar um arquivo gerado por um jogo que criei e, o exec do DOS permite apagar o arquivo. Até achei alguma coisa por outros blogs só que não funcionou.

Editado Agosto 2, 2008 por marlonCampos

[Guest Snikeer]

Então, não conheço nenhuma apostila detalhada, mas eis o q tenho:

Comando Exec (unit DOS): Este comando carrega e executa um determinado

programa (path) com argumentos em CmdLine.

Deve-se chamar SwapVectors antes e depois de sua execução. Os argumentos são do tipo string.

Sintaxe: Exec (Path,CmdLine);

Obs: Caso ocorra erro, o mesmo retorna na variável DOSError.

Utilizando o Exec, é necessário reduzir o tamanho máximo do heap (diretiva de compilação $M), caso

contrário não haverá memória suficiente (DosError = 8).

Comando SwapVectors (unit DOS): Troca os valores de interrupção atuais guardados

na variável pré-definida saveintxx. Deve ser chamado antes e depois do Exec.

Sintaxe: SwapVectors;

Exemplos:

{$M 16384,0,0}

Program Exemplo1;

Uses DOS;

Begin

SwapVectors;

{ Executar o programa MENU.EXE }

Exec ('menu.exe','');

{ Exec ('\winnt\system32\command.com','/c menu'); }

SwapVectors;

If DOSError <> 0 Then

WriteLn('Dos error #', DosError);

End.

{$M 16384,0,0}

Program Exemplo2;

Uses DOS;

Begin

SwapVectors;

{ Executar um comando do sistema }

Exec ('\winnt\system32\command.com','/c dir');

SwapVectors;

If DOSError <> 0 Then

WriteLn('Dos error #', DosError);

End.

{$M 16384,0,0}

Program Exemplo3;

Uses DOS;

Begin

SwapVectors;

{ Sair para o DOS }

Exec ('\winnt\system32\command.com','');

SwapVectors;

If DOSError <> 0 Then

WriteLn('Dos error #', DosError);

End.

Espero ter ajudado!