| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

MoveFile, MoveFileEx [D6, WinXP]

Dok ©   (2006-09-05 15:45:00) 

Всем привет. Пишу так:

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 16:01:00) [1]

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

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

---

begin...end   (2006-09-05 15:56:00) [2]

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

---

Dok   (2006-09-05 15:55:00) [3]

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

спасибо.

---

begin...end   (2006-09-05 15:53:00) [4]

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

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

---

Dok   (2006-09-05 15:52:00) [5]

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

---

Dok   (2006-09-05 15:51:00) [6]

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

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

---

Elen   (2006-09-05 15:49:00) [7]

> 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:00) [8]

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

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

---

Dok   (2006-09-05 15:48:00) [9]

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

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

---

Dok   (2006-09-05 15:46:00) [10]

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


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


---

Наверх