Запуск и переименование файла Опции

[AlexSCH]

У меня такой вопрос:
Программа написанная в делфи считывает файл, который перед этим преобразовывается другой программой, эта дополнительная программа запускается по событию через делфи программу. Получается что по нажатию кнопки в прге написанной на делфи запускается дополнительная программа на диске и преобразовывает файл формата 1 (например) в файл формата2, и только затем программа написанная на делфи считывает файл (формата 2). Получается что название файла для подпрограммы должно быть четко фиксированным, а самой прогой которая в делфи написана надо открывать файлы любого названия, но так как она использует перед открытием подпрограмму, этого сделать не получается. Вот что я придумал, при запуске основной программы (делфи) переименовывать файл нужный для открытия в то зафиксированное имя, нужное для работы подпрограммы. Как это можно сделать?

[Гость]

Действительно никто не знает как это делается?
нужно чтобы при открытии через opendialog программа переименовывала открываемый файл
Помогите пожалуйста.

[Malice]

Действительно никто не знает как это делается?
нужно чтобы при открытии через opendialog программа переименовывала открываемый файл
Помогите пожалуйста.

Насколько я понял из твои объяснений:

сделать копию-->переименовать копию в "hex.hex"-->записать на диск в ту же директорию где выполняется программа

Это значит скопировать открываемый файл в "hex.hex". Переименование не знаю для чего ты приплел. И если так, то вот, что тебе надо:

// процедура копирования файла
procedure CopyFile(Source, Destination: string);
 var
 FromF, ToF: file of byte;
 Buffer: array[0..4096] of char;
 NumRead: integer;
 FileLength: longint;
 begin
 AssignFile(FromF, Source);
 reset(FromF);
 AssignFile(ToF, Destination);
 rewrite(ToF);
 FileLength := FileSize(FromF);
  while FileLength > 0 do begin
  BlockRead(FromF, Buffer[0], SizeOf(Buffer), NumRead);
  FileLength := FileLength - NumRead;
  BlockWrite(ToF, Buffer[0], NumRead);
  end;
  CloseFile(FromF);
  CloseFile(ToF);
 end;

Использование в твоем случае:

If OpenDialog1.Execute
then begin
Test:=OpenDialog1.FileName;
  CopyFile(Test,'hex.hex'); // <--
............
Memo1.Lines.LoadFromFile("pb.txt");
end;
end;