Форум: "Начинающим";
Текущий архив: 2006.01.01;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.01 c