procedure Tfrm_DBParamSet.CopyFile(const SrcFile, DestFile: string);
var
FileOp: TSHFileOpStruct;
begin
with FileOp do
begin
Wnd := 0;
wFunc := FO_Copy;//更换此参数可实现拷贝和更名
pFrom := PChar(SrcFile);
pTo := PChar(DestFile);
fFlags := FOF_NoConfirmation;
fAnyOperationsAborted := False;
hNameMappings := nil;
lpszProgressTitle := nil
end;
SHFileOperation(FileOp);
end;TSHFileOpStruct请问这属于什么类,我查过DELPHI帮助,没有该项资料,是不是第三控件啊,有谁知啊,请答我!
var
FileOp: TSHFileOpStruct;
begin
with FileOp do
begin
Wnd := 0;
wFunc := FO_Copy;//更换此参数可实现拷贝和更名
pFrom := PChar(SrcFile);
pTo := PChar(DestFile);
fFlags := FOF_NoConfirmation;
fAnyOperationsAborted := False;
hNameMappings := nil;
lpszProgressTitle := nil
end;
SHFileOperation(FileOp);
end;TSHFileOpStruct请问这属于什么类,我查过DELPHI帮助,没有该项资料,是不是第三控件啊,有谁知啊,请答我!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货