[royun]

Добрый день.

Есть код,

Код:

ShellExecute (Handle, nil, 'bin.exe', PChar(' /5 /g- /r- ' +'"'+ OpenDialog2.FileName +'"'+ ' c:\DeBoraF\DBF\'+ExtractFileName(OpenDialog2.FileName)+'.dbf'), 'c:\DeBoraF\', SW_SHOW);

который конвертирует бинарный файл в dbf-файл. Открываю бинарные файлы по одному, все отлично работает. Вот теперь хочу сразу открыть несколько бинарных файлов и одновременно конвертировать их. Проблема в том, что надо сделать так чтобы в OpenDialog2.FileName имена файлов выходили по очереди.

Код:

OpenDialog2.Options := [ofAllowMultiSelect, ofFileMustExist];
    if OpenDialog2.Execute then OpenDialog2.FileName else exit;
    for i:=0 to OpenDialog2.Files.Count-1 do
    begin
        ShellExecute (Handle, nil, 'bin.exe', PChar(' /5 /g- /r- ' +'"'+ OpenDialog2.FileName +'"'+ ' c:\DeBoraF\DBF\'+ExtractFileName(OpenDialog2.FileName)+'.dbf'), 'c:\DeBoraF\', SW_SHOW);
    end;

Спасибо.