Как я понял, если вывести значение 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;
|