procedure MyShellExecute(Path: String);
begin
  ShellExecute(Application.Handle,
              'open', PChar(Path),
              '', Nil, SW_ShowNormal);
end;