Главная страница
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.012 c
15-1196676782
vajo
2007-12-03 13:13
2008.01.06
Стоит ли брать эту видеокарту?


2-1197278553
malyar
2007-12-10 12:22
2008.01.06
stringgrid какая яцейка находится под курсором мыши


15-1196426548
Автор
2007-11-30 15:42
2008.01.06
О разделе "Статьи"


2-1197288574
alshtam
2007-12-10 15:09
2008.01.06
firbird


3-1188654911
-novice-
2007-09-01 17:55
2008.01.06
индексы в связанных таблицах