Delphi 2010 上運用 ATFileNotification |
|
尚未結案
|
|
nashbig2
一般會員   發表：2 回覆：1 積分：0 註冊：2011-01-27 發送簡訊給我 |
大家好, 我是 Delphi 2010 的新手
我最近在製作一個小程式去監測某個位置的檔案有沒有被修改/刪除. 我在網上看見一個 Component 名為 ATFileNotification 的, 我試過了, 但是當我修改被監測的檔案後, Notif 並沒有被觸發 請問該插件是不是不能用在 delphi 2010 呢? 我的作業系統是 XP Professional 謝謝!!! --------------------------------------------------- procedure TTest.NotifyFile(AFileName : String); begin with Notif do begin Stop; FileName:= AFileName; if FileExists(FileName) then WriteLog('ok!') else WriteLog(Format('cannot find %s ',[FileName])); Options:= []; Options:= Options [foNotifySize, foNotifyLastWrite, foNotifyCreation]; Start; end; end;
procedure TATFileNotification.Start; begin try EnterCriticalSection(FLock); FStarted := False; try if (not FStarted) then begin FDirThread := TDirThread.Create(FDirectory, FFileName, FSubtree, FNotifyOptionsToFlags(FOptions), FTimer); FStarted := True; end; finally LeaveCriticalSection(FLock); end; except MsgErr(sMsgNotifExceptionCreate); end; end; |
|
GrandRURU
站務副站長  發表：240 回覆：1680 積分：1874 註冊：2005-06-21 發送簡訊給我 |
發表時間：2011-01-27 15:31:19
IP:115.160.xxx.xxx 訂閱
系統時間：2024-11-25 16:52:12
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |