Poço ou não posso executar um programa DOS
Preciso saber se posso executar um programa Dos passando e recebendo parametros. Se posso, como fazer???
Agradeço qualquer tipo de informação.
SDS
Rounilo
Agradeço qualquer tipo de informação.
SDS
Rounilo

Rounilo
Curtidas 0
Respostas

Jax
09/04/2004
Passabdo parâmetros:
Obs: Use o caracter de Aspas dupla para passar parâmetros que contenham espaços.
Avaliando parametros passados por outro programa:
ParamStr(N): Retorna uma string com o valor do parâmetro N.
ParamCount: Total de parâmetros passados.
begin WinExec(´C:\Windows\Command\Edit.com "C:\Meus Documentos\Lista.txt"´); End;
Obs: Use o caracter de Aspas dupla para passar parâmetros que contenham espaços.
Avaliando parametros passados por outro programa:
begin ShowMessage(Format(´Foram passados ¬d Parâmetros´, [ParamCount]) + 13 + Format(´O primeito parâmetro é: <¬s>´, ParamStr(1)); end;
ParamStr(N): Retorna uma string com o valor do parâmetro N.
ParamCount: Total de parâmetros passados.
GOSTEI 0

Rounilo
09/04/2004
Jax, agradecido pela sua informação.
Porem sera que este comando pode ser usado para programas não Windows (DOS) ??
SDs
Porem sera que este comando pode ser usado para programas não Windows (DOS) ??
SDs
GOSTEI 0

Martins_vicente
09/04/2004
Caro Rounilo,
Pode sim! Eu já usei a sintaxe informada para chamar programas DOS e passar parâmetros. Exemplo:
procedure Button1Click(Sender...);
var
comando: string;
begin
comando:=´command.com /c teste.exe -c arquivo.wav´;
WinExec(PChar(comando), sw_Show);
end;
Onde o aplicativo ´teste.exe´ manipula o ´arquivo.wav´ conforme o parâmetro ´-c´ (ambos no diretório da aplicação);
Boa sorte!
Pode sim! Eu já usei a sintaxe informada para chamar programas DOS e passar parâmetros. Exemplo:
procedure Button1Click(Sender...);
var
comando: string;
begin
comando:=´command.com /c teste.exe -c arquivo.wav´;
WinExec(PChar(comando), sw_Show);
end;
Onde o aplicativo ´teste.exe´ manipula o ´arquivo.wav´ conforme o parâmetro ´-c´ (ambos no diretório da aplicação);
Boa sorte!
GOSTEI 0