Текущий архив: 2006.09.24;
Скачать: CL | DM;
Вниз
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 и использовать
> её.
спасибо.
← →
begin...end © (2006-09-05 15:56) [9]Кстати, она в Windows.pas уже импортирована. Поэтому просто замените в своём коде MoveFile на MoveFileW.
← →
Dok (2006-09-05 16:01) [10]
> Кстати, она в Windows.pas уже импортирована. Поэтому просто
> замените в своём коде MoveFile на MoveFileW.
от я балда. и не заметил :( еще раз огромное спасибо.
Страницы: 1 вся ветка
Текущий архив: 2006.09.24;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.049 c
