[轉貼]如何得知某個檔案目前是開啟

有關Delphi 的語法, 程式, 等
回覆文章
頭像
tim
文章: 1379
註冊時間: 2008年 11月 26日, 00:49

[轉貼]如何得知某個檔案目前是開啟

文章 tim »

轉貼自: http://delphi.ktop.com.tw/topic.asp?topic_id=26986

代碼: 選擇全部

     
    function IsFileInUse(FileName: TFileName): Boolean;  
    var  
       HFileRes: HFILE;  
    begin  
       Result := False;  
       if not FileExists(FileName) then Exit;  
       HFileRes := CreateFile(PChar(FileName),  
                             GENERIC_READ or GENERIC_WRITE,  
                             0,  
                             nil,  
                             OPEN_EXISTING,  
                             FILE_ATTRIBUTE_NORMAL,  
                             0);  
       Result := (HFileRes = INVALID_HANDLE_value);  
       if not Result then  
          CloseHandle(HFileRes);  
    end;  
多多留言, 整理文章, 把經驗累積下來.....
回覆文章