[mrpit]

Здравствуйте, уважаемые форумчане!
Обращаюсь к вам за помощью, очень надеюсь на то, что поможете решить проблему.

Задача: Есть файлы, в именах которые присутствуют левые символы неправильной кодировки. Половина символов - русские буквы, но с ними вроде не возникает проблема, а есть один символ "─" (тире длинное). Вот когда это тире присутствует в файле, программа не может его переименовать и выдает ошибку: "Не удается найти указанный файл".

Код которым переименовываю:

Код:

  procedure TForm1.Button3Click(Sender: TObject);
  var path, filename: String;
  begin
  path := 'D:\test\';
  filename := '00000.XML_─шЁхъ_юЁ';
 
  if not(RenameFile(path+filename, path+'1.txt')) then
  showMessage(SysErrorMessage(GetLastError));
  end;

Если убираю это тире то нормально переименовывает. Пробовал UTF8Decode:

Код:

RenameFile(UTF8Decode(path+filename), UTF8Decode(path+'1.txt'))

всё равно не помогает.

Помогите, пожалуйста, советом. Погуглить пытался ничего не нашел, может плохо искал, конечно.
Заранее спасибо!