[<<D>>]

Код:

Uses ShellAPI;

...
implementation

Procedure RunFile(FileName:String);
begin
    ShellExecute (Application.mainform.Handle, nil, PChar(FileName), nil, nil, SW_RESTORE);
end;

Пример использования

Код:

...
if OpenDialog1.execute then
RunFile(Opendialog1.FileName);
...