[poli-smen]

Сообщение от mrpit

Да код работоспособный, но проблема именно с файлом если есть иероглиф. Причем если просто русские буквы или тире он работает отлично.

Редактор кода в Delphi 7 не поддерживает юникод, поэтому нужно писать примерно так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  ws: WideString;
begin
  ws := WideString('D:\test\00000.XML_') + #$2500 + WideString('шЁхъ_юЁ');
  if MoveFileW(Pointer(ws), 'D:\test\1.txt') then
    ShowMessage('OK')
  else
    RaiseLastOSError;
end;

В новых версиях Delphi можно писать юникодные строки прямо исходном коде.

Сообщение от mrpit

Он даже в архив не хотел запаковываться, сначала в папку пришлось положить.

С архивацией этого файла ни в rar ни в 7z у меня проблем не возникло.