Текущий архив: 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.011 c