Vários Executáveis ao mesmo tempo

13/02/2013

1

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á
Responder

Posts

14/02/2013

Klaus

Especifique quais são os executáveis e como pretende usá-los.
Responder
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!!
Responder
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!!
Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira