Главная страница
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.013 c
2-1197161141
O.Snopok
2007-12-09 03:45
2008.01.06
Как приостановить выполнение процедуры до изменения Clipboard


2-1197368334
Alexandr Malygin
2007-12-11 13:18
2008.01.06
округление


2-1197369129
Washington
2007-12-11 13:32
2008.01.06
WinAPI - закрашивание круглой кнопки


2-1197273900
Alexandr Malygin
2007-12-10 11:05
2008.01.06
Edit


15-1196771663
Игорь Шевченко
2007-12-04 15:34
2008.01.06
Новости CodeGear, Декабрь 2007