檢查一個文件是否從另一個進程打開

Question

如何檢查一個文件是否已被另一個來自Powerscript的進程使用？

Answer 1

我發現的最好方法是調用WinAPI CreateFile以獨佔模式打開給定的文件。

首先，聲明以下本地外部函數（PB10）

FUNCTION Long CreateFile(ref string lpszName, long fdwAccess, long fdwShareMode, long lpsa, & 
long fdwCreate, long fdwAttrsAndFlags, long hTemplateFile) LIBRARY "Kernel32.dll" & 
ALIAS FOR "CreateFileA;Ansi" 
FUNCTION boolean CloseHandle (long file_hand) LIBRARY "KERNEL32.DLL" 

然後從PowerScript的：

CONSTANT ulong GENERIC_ACCESS = 268435456 // &H10000000 
CONSTANT ulong EXCLUSIVE_ACCESS = 0 
CONSTANT ulong OPEN_EXISTING = 3 

long ll_handle 
String ls_file 

ls_file = "c:\temp\myfile.xls" 

ll_handle = CreateFile (ls_file, GENERIC_ACCESS, EXCLUSIVE_ACCESS, 0, OPEN_EXISTING, 0, 0) 
IF ll_handle < 1 THEN 
    MessageBox("", "Can't open, maybe missing or already opened ?!?") 
ELSE 
    MessageBox("","File can be opened") 
END IF 

CloseHandle(ll_handle) 

Answer 2

你可以嘗試打開它，如果它錯誤，那麼它可能已經被鎖定。