Enviar Varios archivos susesivamente a ap. externa?

[jonydread]

Hise la prueba y funciona de lujo ahora a trabajar en mi codigo para añadirlo
una consulta
en esta parte del codigo para insertar mediante opendialog los archivos, se puede?
y 1 al 3 se puede poner algo asi asta el ultimo archivo cargado

Código Delphi [-]
for i:= 1 to 3 do

Código Delphi [-]
for i:= 1 to 3 do
    Listbox1.Items.Add('C:\TEMP\ARCHIVO'+IntToStr(i)+'.reg');

Gracias por la ayuda

[jonydread]

Empezado por jonydread

Hise la prueba y funciona de lujo ahora a trabajar en mi codigo para añadirlo
una consulta
en esta parte del codigo para insertar mediante opendialog los archivos, se puede?
y 1 al 3 se puede poner algo asi asta el ultimo archivo cargado

Código Delphi [-]
for i:= 1 to 3 do
    Listbox1.Items.Add('C:\TEMP\ARCHIVO'+IntToStr(i)+'.reg');

Gracias por la ayuda

que pregunta ya solucione eso

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
Opendialog1.Execute;
for i:= 0 to Opendialog1.Files.Count-1 do
    Listbox1.Items.Add(opendialog1.files[i]);
end;

[jonydread]

disculpa tantos post pero he ido avanzando y me surgen dudas que no he podido realizar solo, es si puedo modificar esta funcion para obtener nombre corto conservando el nombre completo porque he probado en otra parte del codigo con getshortname funciona pero el nombre lo tira con esos tildes

Código Delphi [-]
function CambiarExt(Nom: string): string;
begin

  nom:= AnsiReplaceStr(nom,' ','');
  SetLength(Nom, Length(Nom)-Length(ExtractFileExt(Nom)));
  Result:= Nom+'.inf';
end;

antes lo hacia asi

Código Delphi [-]
Path:=GetshortName(ExtractFilePath(Opendialog1.FileName));
Filename := Extractfilename(opendialog1.FileName);
Origen := GetshortName(opendialog1.FileName);
Filename:= AnsiReplaceStr(Filename,' ','');

y colocaba origen, path+filename pero ahora no da resultados...