Fórum Manipulacao de arquivos #209599
26/01/2004
0
Tenho 4 executaveis:
Teste.exe
Teste01.exe
Teste02.exe
Teste03.exe
Qdo executar o Teste.exe quero que este dispare o executavel com o mesmo nome mas com o maior numero, no caso, Teste03.exe (que esta na mesma pasta).
Alguem pode me ajudar?
Teste.exe
Teste01.exe
Teste02.exe
Teste03.exe
Qdo executar o Teste.exe quero que este dispare o executavel com o mesmo nome mas com o maior numero, no caso, Teste03.exe (que esta na mesma pasta).
Alguem pode me ajudar?
Drf
Curtir tópico
+ 0
Responder
Posts
27/01/2004
Nigro
Não é exatamente o que você quer mas ai vai um começo
Winexec(´Command.com /C Teste.exe´,Tipo_de_Janela);
Tipo_de_Janela :
SW_SHOWNORMAL - Visualização normal da janela
SW_MAXIMIZE - Janela maximizada
SW_MINIMIZE - Janela minimizada
SW_HIDE - Escondido
Winexec(´Command.com /C Teste.exe´,Tipo_de_Janela);
Tipo_de_Janela :
SW_SHOWNORMAL - Visualização normal da janela
SW_MAXIMIZE - Janela maximizada
SW_MINIMIZE - Janela minimizada
SW_HIDE - Escondido
Responder
Gostei + 0
27/01/2004
Isaque
Bom. . . bolei um a forma de esta situação ser resulvida. Aqui vai o exemplo:
procedure. . . . .
var
c_arq,
c_arq2 : String;
I : Integer;
Label Ponteiro;
begin
c_arq := Application.Exename;
c_arq := Copy(c_arq, 1, Length(c_arq) - 4);
For I := 5 downto 1 do begin
c_arq2 := ´´;
c_arq2 := c_arq + FormatFloat(´00´, I) + ´.exe´;
if FileExists(c_arq2) then
Goto Ponteiro
end;
Exit;
Ponteiro:
Winexec(c_arq2, SW_NORMAL);
end;
procedure. . . . .
var
c_arq,
c_arq2 : String;
I : Integer;
Label Ponteiro;
begin
c_arq := Application.Exename;
c_arq := Copy(c_arq, 1, Length(c_arq) - 4);
For I := 5 downto 1 do begin
c_arq2 := ´´;
c_arq2 := c_arq + FormatFloat(´00´, I) + ´.exe´;
if FileExists(c_arq2) then
Goto Ponteiro
end;
Exit;
Ponteiro:
Winexec(c_arq2, SW_NORMAL);
end;
Responder
Gostei + 0
28/01/2004
Drf
Básico!!!
Blz, era o que precisava. Obrigado.
Blz, era o que precisava. Obrigado.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)