Solo para el registro... si quisiera
comprobar si un archivo se encuentra en uso, podrías probar con el código:
Código Delphi
[-]function FileIsInUse(aName : string) : boolean;
var
HFileRes : HFILE;
begin
if FileExists(aName) then
begin
HFileRes := CreateFile(pchar(aName), GENERIC_READ or
GENERIC_WRITE,0, nil,
OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL, 0);
Result := (HFileRes = INVALID_HANDLE_VALUE);
_lclose(HFileRes);
end
else
Result := false;
end;