помогите мелкую гадость выловить )

[asura013]

вот нутром чую что какая-то мелкая ошибка где-то, а найти не могу =\

есть 2 листбокса, в каждый добавляются файлы через Opendialog, в объект записывается отдельно путь, имя и расширение файлов.
нужно переименовать файлы одного листбокса по именам из второго, сохранив расширение. переименовываю через SHFileOperation :

procedure rm(FF,FT:string);
var
  sStruct: TSHFileOpStruct;
begin
  with sStruct do
   begin
    Wnd    := 0;
    wFunc  := FO_MOVE;
    pFrom  := PChar(FF);
    pTo    := PChar(FT);
    fFlags := FOF_FILESONLY or FOF_ALLOWUNDO or
                FOF_SILENT or FOF_NOCONFIRMATION;
  end;
  SHFileOperation(sStruct);
end;

дальше вытаскиваю из листбоксов имена для переименования

  
for I := 0 to OutList.Count - 1 do
    begin
      OutFile := OutList.Items.Objects[I] as TFileItem;
      InpFile := InpList.Items.Objects[I] as TFileItem;

      inf := OutFile.path + '\' + OutFile.name + '.' + OutFile.ext;
      ouf := OutFile.path + '\' + InpFile.name + '.' + OutFile.ext;

      rm(inf, ouf);
    end;

и вот тут собственно начинаются проблемы: файлы, в именах которых нет спец символов (то бишь только буквы и цифры) переименовываются на ура, а вот если в имени есть квадратные скобки, точки и т.п. допускаемое виндой, то тут уже как повезёт, либо переименовывает файлы через 1, либо только первый, либо вообще ничего. смотрел какая ошибка вылазит - пишет "Не удаётся перенести файл. Не удаётся произвести чтение из файла или с диска.".

где я не прав? =)

Comments

[asura013]

вспомнил про встроенный Rename и проблема, в принципе, решилась )
но всё таки интересно почему апишный ренейм не хочет нормлаьно работать >.<