Ну очень росто [D6, WinXP]
начинающий програмер © (2002-10-12 08:34:00)
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:00) [1]
uses shellapi
Наверх 
ЧАТ |
Орешник |
|
