Запуск внешней программы (Delphi)

[Anerita]

Здравствуйте.Помогите с программой,пожалуйста.Необходимо создать приложение, выполняющие следующие действия:
– предложить пользователю с помощью стандартного блока диалога выбрать документ, который необходимо открыть;
– определить, какое приложение просматривает этот документ по умолчанию;
– если пользователь не согласен использовать приложение по умолчанию, то предложить ему выбрать приложение для открытия документа самостоятельно;
– открыть документ в приложении, выбранном пользователем, с помощью функции ShellExecute;
– режим показа главного окна приложения должен выбрать пользователь с помощью группы радиокнопок.
Со стандартным открытием нужного документа,я разобралась.Помогите с остальным разобраться,пожалуйста.

procedure TForm1.Button1Click(Sender: TObject);
begin
  if  OpenDialog1.Execute   then
  ShellExecute(Handle,'open',PChar(OpenDialog1.FileName), nil,nil,SW_Restore);

end;

end.

[Stilet]

определить, какое приложение просматривает этот документ по умолчанию;

http://www.programmersforum.ru/showthread.php?t=139066

[Anerita]

Спасибо!А как произвести открытие документа с самостоятельным выбором приложения, Вы не знаете?

[Iron Monk]

Выбирайте приложение для открытия и передавайте ему имя файла в качестве параметра командной строки.

[Anerita]

Можете поподробней объяснить?Как можно выбрать самому приложение,а не так чтобы файл открывался по умолчанию.

[Iron Monk]

Сообщение от Anerita

Можете поподробней объяснить?Как можно выбрать самому приложение,а не так чтобы файл открывался по умолчанию.

procedure TForm1.Button1Click(Sender: TObject);
begin
   if not OpenDialog1.Execute then exit;
   ShellExecute(Handle,'open','notepad.exe', PChar(OpenDialog1.FileName),nil,SW_Restore);
end;

Вместо блокнота можете свою программу выбрать.

Забирайте...)))

procedure TForm1.Button1Click(Sender: TObject);
var
_fName: string;
begin
   if not OpenDialog1.Execute then exit;
   _fName:= OpenDialog1.FileName;
    OpenDialog1.FileName:= '';
    OpenDialog1.Filter:= 'Программы|*.exe';
     if MessageDlg('Стандартной программой?', mtInformation, [mbYes, mbNo], 0) = mrYes then
     ShellExecute(Handle,'open', PChar(_fName),nil, nil, SW_Restore) else
       if not OpenDialog1.Execute then exit;
       ShellExecute(Handle,'open',PChar(OpenDialog1.FileName), PChar(_fName),nil,SW_Restore);
end;
end.

[Anerita]

Спасибо Вам большое!

[Iron Monk]

Пожалуйста)))