Manipulacao de arquivos
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
Curtidas 0
Respostas
Nigro
26/01/2004
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
GOSTEI 0
Isaque
26/01/2004
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;
GOSTEI 0
Drf
26/01/2004
Básico!!!
Blz, era o que precisava. Obrigado.
Blz, era o que precisava. Obrigado.
GOSTEI 0