Fórum Vários Executáveis ao mesmo tempo #434583
13/02/2013
0
Gostaria de saber como faço pra abrir vários executáveis um por vez, eu tentei usar o WinExec, mas ele executa tudo de uma vez só. Agradeço desde já
Matheus Santos
Curtir tópico
+ 0
Responder
Posts
14/02/2013
Klaus
Especifique quais são os executáveis e como pretende usá-los.
Responder
Gostei + 0
14/02/2013
Perivaldo Martins
Boma dia!
Tente algo como o que segue abaixo, faça suas adaptações e melhorias.
Boa sorte e bons códigos!!
Tente algo como o que segue abaixo, faça suas adaptações e melhorias.
var
Lista: TStringList;
i: integer;
Aux: AnsiString;
begin
Lista := TStringList.Create;
OpenDialog1.Execute;
Lista.Assign(OpenDialog1.Files);
for I := 0 to Lista.Count -1 do
begin
Aux:= Lista[i];
WinExec(PAnsiChar(AnsiString(Aux)), SW_ShowNormal);
end;
Boa sorte e bons códigos!!
Responder
Gostei + 0
14/02/2013
Perivaldo Martins
Bom dia!
tente algo como o que segue abaixo, faça suas adaptações e melhorias.
var
lista: tstringlist;
i: integer;
aux: ansistring;
begin
lista := tstringlist.create;
opendialog1.execute;
lista.assign(opendialog1.files);
for i := 0 to lista.count -1 do
begin
aux:= lista[i];
winexec(pansichar(ansistring(aux)), sw_shownormal);
end;
boa sorte e bons códigos!!
tente algo como o que segue abaixo, faça suas adaptações e melhorias.
var
lista: tstringlist;
i: integer;
aux: ansistring;
begin
lista := tstringlist.create;
opendialog1.execute;
lista.assign(opendialog1.files);
for i := 0 to lista.count -1 do
begin
aux:= lista[i];
winexec(pansichar(ansistring(aux)), sw_shownormal);
end;
boa sorte e bons códigos!!
*Bom dia!!
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)