|
ｿｽ@ｿｽｿｽSHFileOperationｿｽﾖ撰ｿｽｿｽﾌ連ｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾅエｿｽｿｽｿｽ[
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
ｿｽｿｽｿｽc 2005/03/31(ｿｽｿｽ) 17:44:06
SHFileOperationｿｽﾖ撰ｿｽｿｽﾌ使ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾐとつ暦ｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽB
Button2Click()ｿｽ闡ｱｿｽｿｽｿｽﾌ抵ｿｽｿｽｿｽｿｽｿｽ CopyRootin()ｿｽ闡ｱｿｽｿｽｿｽｿｽﾄび出ｿｽｿｽｿｽﾄフｿｽ@ｿｽCｿｽｿｽｿｽｿｽRｿｽsｿｽ[ｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽｿｽﾍ撰ｿｽｿｽｿｽﾉコｿｽsｿｽ[ｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽRｿｽsｿｽ[ｿｽIｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽButton2Click()ｿｽ闡ｱｿｽｿｽｿｽﾌ抵ｿｽｿｽﾅテｿｽLｿｽXｿｽgｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽﾚ難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽB
ｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽｿｽﾌで、wndｿｽｿｽOｿｽﾉゑｿｽｿｽﾄみゑｿｽｿｽｿｽAhandleｿｽﾉゑｿｽｿｽﾄみゑｿｽｿｽ閧｢ｿｽいｿｽすｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽｿｽｿｽﾟでゑｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽwｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽか。ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽﾈど必ｿｽvｿｽﾈのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽB
procedure CopyRootin(const CopyFileName: string);//ｿｽRｿｽsｿｽ[ｿｽｿｽｿｽ[ｿｽ`ｿｽｿｽ
ｿｽEｿｽEｿｽEｿｽE
for i := 2 to num do
ｿｽEｿｽEｿｽEｿｽE
with hSHFileOpStruct doｿｽ@ｿｽ@ｿｽ@ｿｽ@//************* ｿｽRｿｽsｿｽ[ｿｽｿｽｿｽｿｽ
begin
wnd := handle;
wFunc := FO_COPY;
pFrom := PChar(FromFile + #0);
pTo := PChar(ToFile + #0);
fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMMKDIRｿｽG
fAnyOperationsAborted := False;
hNameMappings := nil;
lpszProgressTitle := nil;
end;
SHFileOperation(hSHFileOpStruct);//************* ｿｽRｿｽsｿｽ[ｿｽｿｽｿｽｿｽ
end;
ｿｽEｿｽEｿｽEｿｽEｿｽE
end;
procedure TfrmMain.Button2Click(Sender: TObject);
ｿｽEｿｽEｿｽEｿｽE
CopyRootin(frmMain.ListBox1.Items[0]);ｿｽ@ｿｽｿｽｿｽ闡ｱｿｽｿｽｿｽﾄび出ｿｽｿｽ
ｿｽEｿｽEｿｽEｿｽEｿｽE
with foStruct doｿｽ@ｿｽ@ｿｽ@ //********************
begin
wnd := 0; ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽGｿｽｿｽｿｽ[ｿｽﾉなゑｿｽ
wFunc := FO_MOVE;
pFrom := 'C:¥Temp¥test.txt' + #0;
pTo := 'C:¥aaa¥' + #0;
fFlags := FOF_FILESONLY or FOF_ALLOWUNDO;
fAnyOperationsAborted := False;
hNameMappings := nil;
lpszProgressTitle := nil;
end;
SHFileOperation(foStruct);ｿｽ@ｿｽ@//********************
ｿｽEｿｽEｿｽE
end;
ｿｽﾈゑｿｽﾄゑｿｽｿｽｿｽｿｽｿｽ 2005/03/31(ｿｽｿｽ) 22:19:13
> ｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽｿｽﾌゑｿｽ
ｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌは致ｿｽｿｽｿｽIｿｽBｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾃらいｿｽB
ｿｽ答ゑｿｽｿｽﾃらいｿｽB
ｿｽﾉゑｿｽｿｽｿｽ 2005/04/01(ｿｽｿｽ) 11:56:14
ｿｽ同奇ｿｽｿｽﾅ難ｿｽｿｽｿｽｿｽﾍゑｿｽｿｽﾅゑｿｽｿｽﾌで、ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽRｿｽsｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜで待ゑｿｽｿｽﾄゑｿｽｿｽ邇滂ｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾗゑｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽ 2005/04/01(ｿｽｿｽ) 12:43:43
SHFileOperation APIｿｽﾌ使ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌには厄ｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾌで、
ｿｽﾉゑｿｽｿｽﾌゑｿｽｿｽｿｽﾌ鯉ｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽB
ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾌ移難ｿｽｿｽAｿｽRｿｽsｿｽ[ｿｽﾉつゑｿｽｿｽﾄは、CopyFileｿｽADeleteFile
ｿｽｿｽgｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBSHFileOperationｿｽﾌようｿｽｿｽ
Windowsｿｽﾉ全ｿｽｿｽｿｽCｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾅはなゑｿｽｿｽﾌで、ｿｽｿｽｿｽｿｽｿｽIｿｽｿｽ
ｿｽiｿｽｿｽｿｽｿｽcｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽﾌで、ｿｽpｿｽrｿｽﾉゑｿｽｿｽｿｽﾄは厄ｿｽｿｽｿｽｿｽｿｽSHFileOperation
ｿｽｿｽgｿｽｿｽｿｽKｿｽvｿｽﾍなゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽc 2005/04/01(ｿｽｿｽ) 18:45:32
ｿｽVｿｽlｿｽﾅ、ｿｽﾜゑｿｽｿｽｿｽyｿｽｿｽｿｽﾉどのようｿｽﾉ撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ轤｢ｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽﾅ、ｿｽｿｽﾏゑｿｽｿｽｿｽｿｽfｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽAｿｽhｿｽoｿｽCｿｽXｿｽﾉ従ｿｽｿｽｿｽAｿｽｿｽｿｽいｿｽ試ｿｽﾝまゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾟでゑｿｽｿｽｿｽｿｽﾌで、ｿｽﾆりあｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽlｿｽﾌアｿｽhｿｽoｿｽCｿｽXｿｽｿｽCopyFileｿｽADeleteFileｿｽｿｽｿｽｿｽﾝまゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾆりあｿｽｿｽｿｽｿｽｿｽﾚ的ｿｽﾍ達ｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾅゑｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽが、ｿｽﾗ具ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌ厄ｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽしｿｽﾄゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ整暦ｿｽｿｽｿｽｿｽﾄまゑｿｽｿｽｿｽｿｽ竄ｳｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
SHFileOperationｿｽﾉ関ゑｿｽｿｽﾜゑｿｽｿｽﾄは、ｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
