Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.069 c
5-1139839358
Святослав
2006-02-13 17:02
2006.09.24
Как запустить процедуру после установки Parent?


1-1155108859
Kiloper
2006-08-09 11:34
2006.09.24
Чем отличается в классах Free от Destroy?


2-1157121160
Beginer2
2006-09-01 18:32
2006.09.24
Представить байт в двоичном виде


15-1157038248
Sergey Masloff
2006-08-31 19:30
2006.09.24
offtop:Меломаны, кому нужен бы Atomic Rooster? Их есть у меня


2-1157104819
RebroFF
2006-09-01 14:00
2006.09.24
Работа с PopUpMenu