L
lvzhijong
Unregistered / Unconfirmed
GUEST, unregistred user!
拷贝别人的程序，编译不过，提示没有声明fshfileOpStruct类
那位知道是为什么，谢了
程序如下：
function CopyFile1(SourceName,TargetName:String):Boolean;
var
F:tSHFILEOPSTRUCT;
begin
F.wnd:=frmfiledrag.Handle;
F.wFunc:=FO_COPY; {操作方式}
F.pFrom:=PChar(SourceName+#0#0);
F.pTo:=PChar(TargetName+#0#0);
F.fFlags:=FOF_ALLOWUNDO OR FOF_RENAMEONCOLLISION;
result:= ShFileOperation(F)=0;
end;
那位知道是为什么，谢了
程序如下：
function CopyFile1(SourceName,TargetName:String):Boolean;
var
F:tSHFILEOPSTRUCT;
begin
F.wnd:=frmfiledrag.Handle;
F.wFunc:=FO_COPY; {操作方式}
F.pFrom:=PChar(SourceName+#0#0);
F.pTo:=PChar(TargetName+#0#0);
F.fFlags:=FOF_ALLOWUNDO OR FOF_RENAMEONCOLLISION;
result:= ShFileOperation(F)=0;
end;