Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.028 c