تشخيص باز بودن يك فايل

[smakhavan]

با سلام
چطور ميشه تشخيص داد كه يك فايل اكسل باز است يا نه!؟
ميخواهم قبل از Import فايل از طريق sql (كه در صورت باز بودن فايل خطا مي‌دهد) چك كنم و مطمئن شوم كه فايل باز نيست!

[lord_viper]

function IsFileInUse(fName : string) : boolean;
var HFileRes : HFILE;
begin
Result := False;
if not FileExists(fName) then
Exit;
HFileRes := CreateFile(pchar(fName),
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;