Vários Executáveis ao mesmo tempo

Delphi

13/02/2013

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

Matheus Santos

Curtidas 0

Respostas

Klaus

Klaus

13/02/2013

Especifique quais são os executáveis e como pretende usá-los.
GOSTEI 0
Perivaldo Martins

Perivaldo Martins

13/02/2013

Boma 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!!
GOSTEI 0
Perivaldo Martins

Perivaldo Martins

13/02/2013

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!!

*Bom dia!!
GOSTEI 0
POSTAR