請問各位高手們: 我用了hagar 版大的範例 http://delphi.ktop.com.tw/topic.php?topic_id=26986 去判讀某個TXT檔是否已被開啟(事實上我己經用記事本開啟了) 但是結果確是傳回False 不知道要如何才能真正判斷某TXT檔已經被開啟了

Hi Jack0323,    以下幾篇討論供你參考 http://delphi.ktop.com.tw/topic.php?topic_id=40148 http://delphi.ktop.com.tw/topic.php?topic_id=45245 http://delphi.ktop.com.tw/topic.php?topic_id=45830 ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

謝謝Fishman兄的回應: 您提供的這些範例我都已看過 但是我還是不明白 雖然以NotPad開啟後,檔案在Locked狀態 如果用專用開啟,那理論上來說不是應該開不起來才對嗎 但是我用NotPad開啟後,用下面的function測試確仍為False 不是應該會有錯誤代碼嗎 真的是很不了解 還希望各位大大幫忙 是不是我的觀念那裡不對 先謝謝大家了 function FileLocked(Fn: string): Boolean; var I : Integer; Struct: TOfStruct; Style: Cardinal; Hdl: Hfile; Drive: String; begin Style := OF_Share_Exclusive; //排它方式打開 Drive := UpperCase(Fn[1]); Struct.fFixedDisk := Ord(Drive <> 'A'); //判斷是否是硬碟 Struct.cBytes := SizeOf(Struct); For I := 1 to Length(Fn) do Struct.szPathName[I-1] := Fn[I]; Struct.szPathName[I] := Chr(0); //填充文件名 Hdl := OpenFile(Pchar(Fn), Struct, Style); if Hdl = HFILE_ERROR then begin Result := True; //文件被鎖定 Showmessage(SysErrorMessage(GetLastError)); //顯示錯誤原因 end else Result := False; CloseHandle(Hdl); end;

Hi Jack0323,    請參見 http://delphi.ktop.com.tw/topic.php?topic_id=45245 中，william 版大的說明

引言: For Notepad and Wordpad, the WHOLE file is being read into the application's memory and closed. You can even delete the file afterwards. So I think the best you can do is detecting whether the file is being opened (i.e. fail in acquiring an exlusing lock) or not. Refering to your original question, please test if your ftp server should hold a lock on the file during transfer (probably yes). Or you could use the file creation/modification datetime for some kind of additional reference.

我想這就是無法偵測該檔案已被 NotePad,WordPad 開啟的主因吧！ ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------