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

Вниз

Подскажите, в чем ошибка?   Найти похожие ветки 

← →
fast2   (2005-12-14 18:55) [0]

Ругается на строку: From := _from;
Procedure TForm1.CopyFiless(_from,_to:string);
var
 SHFileOpStruct : TSHFileOpStruct;
 From : array [0..255] of Char;
begin
    From := _from;
   with SHFileOpStruct do
         begin
          Wnd := Handle;
          wFunc := FO_COPY;
          pFrom := @From;
          pTo := PChar(_to);
          fFlags := FOF_SIMPLEPROGRESS;
          fAnyOperationsAborted := False;
          hNameMappings := nil;
          lpszProgressTitle := Копирование...";
         end;
    SHFileOperation( SHFileOpStruct );
end;

Вызываю так: CopyFiless("C:\111\2.doc","c:\222\2.doc");

---

← →
alex_*** ©   (2005-12-14 19:22) [1]

разные типы присваиваешь

---

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

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

Наверх

Память: 0.46 MB
Время: 0.075 c