Fórum Poço ou não posso executar um programa DOS #225035
09/04/2004
0
Agradeço qualquer tipo de informação.
SDS
Rounilo

Rounilo
Curtir tópico
+ 0Posts
10/04/2004
Jax
1 2 3 | 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:
1 2 3 4 | 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
12/04/2004
Rounilo
Porem sera que este comando pode ser usado para programas não Windows (DOS) ??
SDs
Gostei + 0
12/04/2004
Martins_vicente
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
Clique aqui para fazer login e interagir na Comunidade :)