Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.01.06;
Скачать: CL | DM;

Вниз

SHFileOperation ругается   Найти похожие ветки 

 
Kolan ©   (2007-12-10 15:26) [0]

Вроде провереный код:
procedure CopyDirectoryTree(AHandle: THandle; AFromDir,
 AToDir: string);
var
 SHFileOpStruct: TSHFileOpStruct;
begin
 with SHFileOpStruct do
 begin
   Wnd := AHandle;
   wFunc := FO_COPY;
   {I?i #0 ia iaai caauaaou.}
   pFrom := PChar(AFromDir+ #0);
   pTo := PChar(AToDir+ #0);
   fFlags := FOF_NOCONFIRMATION;
   fAnyOperationsAborted := False;
   hNameMappings := nil;
   lpszProgressTitle := nil;
 end;
 SHFileOperation(SHFileOpStruct);
end;


Ругается, что не удается произвести чтение с файла или с диска.


 
Kolan ©   (2007-12-10 15:45) [1]

А, блин, слеши в конце не нужны&#133



Страницы: 1 вся ветка

Текущий архив: 2008.01.06;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.014 c
8-1172385577
GrayFace
2007-02-25 09:39
2008.01.06
Оптимальная палитра с менее чем 256 цветами


2-1197363838
Molodoi
2007-12-11 12:03
2008.01.06
DBGridEh


2-1197264514
Александр Семак
2007-12-10 08:28
2008.01.06
Создание объекта с динамическим классом


2-1196877967
Student00
2007-12-05 21:06
2008.01.06
Строка таблицы - как кнопка


2-1197286618
Quart
2007-12-10 14:36
2008.01.06
Выгрузка