MoveFile, MoveFileEx

← →
Dok (2006-09-05 15:45) [0]

Всем привет. Пишу так:
var fn1: WideString; fn2: WideString; begin fn1 := "c:\1.txt"; fn2 := "c:\test\1.txt"; MoveFile(@fn1[1], @fn[1]); end;
Не переносит файл. И MoveFileEx с MOVEFILE_COPY_ALLOWED юзал. И к PChar приводил. Все рано не хочет.GetLastError возращает - 2.
Если руками - файл переносится...
Что делать.
Спасибо.

← →
Dok (2006-09-05 15:46) [1]

> MoveFile(@fn1[1], @fn[1]);

... MoveFile(@fn1[1], @fn2[1]); ...

← →
Dok (2006-09-05 15:48) [2]

> var
> fn1: WideString;
> fn2: WideString;

А вот если String , то все ок. Как быть с юникодом?

← →
Elen © (2006-09-05 15:49) [3]

> Dok

procedure TForm1.FormCreate(Sender: TObject); var fn1: pchar; fn2: pchar; begin fn1 := "d:\q.bak"; fn2 := "c:\temp\1.txt"; if MoveFile(fn1, fn2) then Application.MessageBox("ok",""); end;

← →
Elen © (2006-09-05 15:49) [4]

> Как быть с юникодом

Зачем тебе Юникод?

← →
Dok (2006-09-05 15:51) [5]

> Зачем тебе Юникод?

у меня все в системе юникодное.

← →
Dok (2006-09-05 15:52) [6]

Чего это переместили к начинающим? хм... простой вопрос что-ли?

← →
begin...end © (2006-09-05 15:53) [7]

> Dok (05.09.06 15:48) [2]
> Как быть с юникодом?

Импортировать из kernel32.dll функцию MoveFileW и использовать её.

← →
Dok (2006-09-05 15:55) [8]

> Импортировать из kernel32.dll функцию MoveFileW и использовать
> её.

спасибо.

Кстати, она в Windows.pas уже импортирована. Поэтому просто замените в своём коде MoveFile на MoveFileW.

← →
Dok (2006-09-05 16:01) [10]

> Кстати, она в Windows.pas уже импортирована. Поэтому просто
> замените в своём коде MoveFile на MoveFileW.

от я балда. и не заметил :( еще раз огромное спасибо.

MoveFile, MoveFileEx Найти похожие ветки