ShellExecute не хочет запускать файлы

[Terran]

Всем привет!
Есть код:

Uses
   ShellApi,...
---
Procedure TForm1.XPButton1Click(Sender: TObject);
Begin
ShellExecute(Application.Handle,'Open','Com.exe',Nil,Nil,SW_SHOWDEFAULT);
End;

Когда я нажимаю на кнопку, то файл прекрасно запускается и всё работает как надо, но когда я выполняю следующий код:

Procedure TForm1.XPButton2Click(Sender: TObject);
Begin
If OpenDialog1.Execute Then
Begin
Edit1.Text:=OpenDialog1.FileName;
End;
End;

Тоесть просто открываю компонент OpenDialog и присваиваю в Edit путь к выбранному файлу, то после этого при нажатии на кнопку запуска файла (XPButton1) файл не запускается. (ShellExecute и Edit1 в программе не имеют к друг другу ни кокого отношения.) Подскажите пожалуйста из за чего такое может быть??? И как сделать что бы после открытия OpenDialog и указания пути в Edit ShellExecute всё равно запускала файл?
За ранее благодарен!

[Трофимов Александр]

Попробуй указывать полный путь к файлу в
ShellExecute(Application.Handle,'Op en','C:\...\Com.exe',Nil,Nil,SW_SHOWDEFAULT);
потому, что после выполнения OpenDialog1.Execute у тебя меняется рабочий каталог, а 'Com.exe' скорее всего лежит в папке с твоей программой

[Terran]

Сообщение от Трофимов Александр

Попробуй указывать полный путь к файлу в
ShellExecute(Application.Handle,'Op en','C:\...\Com.exe',Nil,Nil,SW_SHOWDEFAULT);
потому, что после выполнения OpenDialog1.Execute у тебя меняется рабочий каталог, а 'Com.exe' скорее всего лежит в папке с твоей программой

Я пробовал указывать полный путь, но всё равно после присвоения эдиту пути из OpenDialog файл перестаёт запускаться...

[SNUPY]

Попробуй замутить через WinExec

[Terran]

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

Попробуй замутить через WinExec

Спасибо конечно за совет, но мне надо именно через ShellExecute.

[Nester]

Попробуй так:

Procedure TForm1.XPButton2Click(Sender: TObject);
 Var MemDir :String;
 Begin
  
  MemDir:=GetCurrentDir;

  If OpenDialog1.Execute Then
   Begin
    Edit1.Text:=OpenDialog1.FileName;
  End;

  SetCurrentDir(MemDir)
End;

[Terran]

Nester, БОЛЬШОЕ вам спасибо! Всё заработало! И спасибо всем за помощь!