掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
コピーを停止するには？ (ID：32279)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
WindowsXP Delphi６Personalです。 ファイルやフォルダのコピーをあるサイトの見本の 下記の関数で行っていますが、 大きなファイルやフォルダのコピー中に停止するにはどうしたらいいのでしょうか。 察するにfAnyOperationsAborted:=False;にtrueを送るのではと思うのですが どのようなコードで渡すのか解りません。 よろしくお願いします。 function TForm1.CopyRoutine(FolderName: string; Path: string):Boolean; var foStruct: TSHFileOpStruct; begin with foStruct do begin wnd:=0; wFunc:=FO_COPY; pFrom:=PChar(FolderName+#0); //コピーもと pTo:=PChar(Path + #0); //コピー先 fFlags:= FOF_NOCONFIRMMKDIR or FOF_NOCONFIRMATION ; fAnyOperationsAborted:=False; hNameMappings:=nil; lpszProgressTitle:=nil; end; Result := (SHFileOperation(foStruct) = 0); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.