[Decoding]

Сообщение от 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;

Код работоспособный, проверил в XE (Win7 x64).

Как альтернативу, могу предложить такой вариант

Код:

function AddAccentToFilename( Path, OldName, NewName: WideString ): Boolean;
begin
   Result := MoveFileW( Pointer( Path + OldName ), Pointer( Path + NewName ) );
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   if not AddAccentToFilename( 'D:\test\', '00000.XML_─шЁхъ_юЁ', '1.txt' ) then
      ShowMessage( SysErrorMessage( GetLastError ) );
end;