本物のコピーダイヤログ
(ただし、ファイルコピーに時間がかかるときのみ表示されます。)
#uselib "shell32"
#func global SHFileOperation "SHFileOperation" sptr
#module
#deffunc fcopy str from_folder,str to_folder,int mode
from=from_folder:to=to_folder
SHFILEOPSTRUCT=hwnd,mode,varptr(from),varptr(to),0x150,-1,0,0
;↑0にすると画面がロックされない
SHFileOperation varptr(SHFILEOPSTRUCT)
return
#global
//fcopy コピー元, コピー先, コピーモード(1=移動 2=コピー 3=削除 4=リネーム(同一ドライブのみ有効))
//正常終了すると statに 0 が入ります。
;fcopy "コピー元","コピー先",2