Форум: "Основная";
Текущий архив: 2002.10.24;
Скачать: [xml.tar.bz2];
ВнизНу очень росто Найти похожие ветки
← →
начинающий програмер (2002-10-12 08:34) [0]function WindowsCopyFile(FromFile, ToDir : string) : boolean;
Здравствуйте!
Есть простой кусок кода, но в нём естьошибка-ругается на
F : TShFileOpStruct;
В чём проблема, ведь TShFileOpStruct-стандартный тип. Или я неправ??
var
F : TShFileOpStruct;
begin
F.Wnd := 0;
F.wFunc := FO_COPY;
FromFile:=FromFile+#0;
F.pFrom:=pchar(FromFile);
ToDir:=ToDir+#0;
F.pTo:=pchar(ToDir);
F.fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION;
result:=ShFileOperation(F) = 0;
end;
← →
TTCustomDelphiMaster (2002-10-12 09:59) [1]uses shellapi
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.24;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c