Запуск exe-файла с переменными параметрами

[royun]

Хочу запустить exe-файл с параметром: выбираю файл нажимаю "Открыть", затем отрабатывает "Запускаемая_программа.exe" с параметрами, а в параметрах "открываемый_файл" и "файл_который_получится" изменялись в зависимости от того какой файл открываю и к "файл_который_получится" добавляется .dbf
Параметры /1 /a- /b- никогда не меняются.

if OpenDialog1.Execute then OpenDialog1.FileName else exit;
    WinExec ('Запускаемая_программа.exe /1 /a- /b- открываемый_файл файл_который_получится.dbf', SW_SHOW);

В общем надо так, если схематично:

if OpenDialog1.Execute then OpenDialog1.FileName else exit;
    WinExec ('Запускаемая_программа.exe /1 /a- /b- OpenDialog1.FileName OpenDialog1.FileName.dbf', SW_SHOW);

Думаю WinExec-ом это никак не реализовать, а вот ShellExecute наверное поможет, но не могу это дело реализовать. Прошу помощи.

[Shouldercannon]

ShellExecute
Только пример!

ShellExecute(0, open, 'C:\Запускаемая_программа.exe', PChar('/1 /a- /b-' + OpenDialog1.FileName + '.dbf'), nil, SHOWNORMAL);

[Serge_Bliznykov]

или я чего-то не понял, или нужно имя из диалога просто подставить в строку:

if Not OpenDialog1.Execute then exit
else
   WinExec ('Запускаемая_программа.exe /1 /a- /b- '+OpenDialog1.FileName + ' ' + OpenDialog1.FileName+'.dbf', SW_SHOW);

[royun]

Да так и есть

[royun]

Как я понял, если вывести значение OpenDialog2.FileName в Edit, то получаем не имя файла а путь_к_файлу\сам_файл. А мне нужно именно имя самого файла. Сделал вот так не работает. Проморгнет быстро и все.

procedure TForm1.OpenBinFileClick(Sender: TObject);
begin
    if OpenDialog1.Execute then OpenDialog1.FileName else exit;
    ShellExecute(0, 'open', 'c:\PBX\DeBoraF\dbf.exe', PChar('/1 /a- /b-' + OpenDialog1.FileName +' '+ OpenDialog1.FileName + '.dbf'), nil, SW_SHOW);
end;

[royun]

Разобрался, спасибо всем