取消搬檔?? |
|
尚未結案
|
|
epard
一般會員   發表：23 回覆：18 積分：8 註冊：2004-01-09 發送簡訊給我 |
|
|
Mickey
版主  發表：77 回覆：1882 積分：1390 註冊：2002-12-11 發送簡訊給我 |
|
|
epard
一般會員 發表：23 回覆：18 積分：8 註冊：2004-01-09 發送簡訊給我 |
Mickey 你好: procedure TForm1.Button1Click(Sender: TObject);
begin
with FOS do begin
Wnd := Self.Handle;
wFunc := FO_COPY;
pFrom := 'C:\Documents and Settings\MicroKit\桌面\test1.vob';
pTo := 'c:\bbb';
fAnyOperationsAborted := false;
fFlags := FOF_SILENT;
end;
SHFileOperation(FOS);
end; procedure TForm1.Button2Click(Sender: TObject);
begin
FOS.fAnyOperationsAborted := True;
end;
我這樣做會被吃的死死的
無法再按Button2
請問我要如何解決
謝謝
|
|
Mickey
版主 發表：77 回覆：1882 積分：1390 註冊：2002-12-11 發送簡訊給我 |
"SHFILEOPSTRUCT"."fAnyOperationsAborted" 只是回傳 Progress 是否 Canceled, 如:
procedure TForm1.Button1Click(Sender: TObject);
var FOS:SHFILEOPSTRUCT;
begin
with FOS do begin
Wnd := Self.Handle;
wFunc := FO_COPY;
pFrom := 'C:\西洋棋\dev-warc.bin';
pTo := 'e:\bbb.bin';
fAnyOperationsAborted := false;
fFlags := FOF_SIMPLEPROGRESS; // 顯示 Progress Dialog
lpszProgressTitle := 'Coping File...';
end;
SHFileOperation(FOS);
if FOS.fAnyOperationsAborted then ShowMessage('File Copy Action Canceled.')
else ShowMessage('File Copy Completed.');
end;
PS. 建議你搜尋一下本站 "CreateProcess", 應該也能達到你要的功能.
不一定要用 "SHFileOperation" API 吧. |
|
epard
一般會員 發表：23 回覆：18 積分：8 註冊：2004-01-09 發送簡訊給我 |
發表時間：2004-07-15 00:00:51
IP:61.61.xxx.xxx 未訂閱
系統時間：2024-05-18 22:40:12
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |