Ejecutar Archivo

[Diego9]

Buenas Noches

Para ejecutar un archivo utilizo


ShellExecute(MiForm.Handle,nil,('c:\Miarchivo.extension'),'','',SW_Shownormal);


Pero si este archivo no siempre va a ser el mismo y voy a coger la ruta y el archivo de un cuadro de dialogo, ¿como puedo hacerlo?.

Gracias

[dec]

Hola,

Siempre puedes utilizar variables:


var
rutaArchivo: string;
begin
rutaArchivo := 'C:\unarchivo.txt';
ShellExecute(MiForm.Handle, 'open', PChar(rutaArchivo),nil,nil,SW_SHOWNORMAL);
end;


Ahora tienes que investigar sobre el uso de un "TOpenDialog", pero, en definitiva, ya sabes que puedes guardar la elección del usuario en la variable "rutaArchivo", por ponerte un ejemplo, de modo que luego puedas usarla en la función "ShellExecute".

Una posible forma de hacerlo:


begin
with TOpenDialog.Create(Self) do
begin
if Execute then
begin
ShellExecute(Self.Handle, 'open', PChar(FileName), nil, nil, SW_SHOWNORMAL);
end;
Free;
end;


Otra posible forma:


var
dlg: TOpenDialog;
begin
dlg := TOpenDialog.Create(Self);
try
if dlg.Execute then
ShellExecute(Self.Handle, 'open',
PChar(dlg.FileName), nil, nil, SW_SHOWNORMAL);
finally
dlg.Free;
end;
end;


Y aún otra más:


begin
if OpenDialog1.Execute then
begin
ShellExecute(Self.Handle, 'open',
PChar(OpenDialog1.FileName), nil, nil, SW_SHOWNORMAL);
end;
end;

[Diego9]

Gracias David me has alegrado la noche, funciona correctamente.
Saludos,