unit RunDefApp;

interface

uses Forms,shellapi,sysutils,windows;

Procedure RunDefaultAppl( Parent : Tform;
                          Filename:string);

implementation

Procedure RunDefaultAppl( Parent : Tform;
                          Filename:string);
begin
   ShellExecute(Parent.handle,
                'open',
                pchar(Filename),
                Nil,
                Nil,
                sw_shownormal);
end;

end.