Здравствуйте, уважаемые форумчане!
Обращаюсь к вам за помощью, очень надеюсь на то, что поможете решить проблему.
Задача: Есть файлы, в именах которые присутствуют левые символы неправильной кодировки. Половина символов - русские буквы, но с ними вроде не возникает проблема, а есть один символ "─" (тире длинное). Вот когда это тире присутствует в файле, программа не может его переименовать и выдает ошибку: "Не удается найти указанный файл".
Код которым переименовываю:
Код:
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'))
всё равно не помогает.
Помогите, пожалуйста, советом. Погуглить пытался ничего не нашел, может плохо искал, конечно.
Заранее спасибо!