AnnUnlock example for Delphi

This is also the example for AnnGetLocked method.

If an object is found to be locked, using AnnGetLocked method, the object is unlocked, by AnnUnlock, using the key "LEADTOOLS".

Var
   ghObject: L_HANDLE;
   bLocked: Boolean;
begin
//.
//.
//.
   bLocked:= LEADAnn1.AnnGetLocked (ghObject);
   if bLocked= True then
      LEADAnn1.AnnUnlock ( ghObject, 'LEADTOOLS' ) ;
//.
//.
end;