[Pyro]

ShellExecute помоему тяжелая функция

вроде этого можно

Код:

procedure run(filename: string; para: string = ''; dir: string = '');
  function pchar2(s: string): pchar;
  begin
    if s = '' then
      result := nil
    else
      result := pchar(s);
  end;
begin
  ShellExecute(0, 'open', PChar(filename), pchar2(para), pchar2(dir), SW_SHOWNORMAL);
end;