Gibt's halt nicht.
Du kannst aber mal probieren, was passiert, wenn man etwas Gesperrtes nochmal versucht zu sperren.
Delphi-Quellcode:
function CheckLockMedia(ADriveLetter: Char): Boolean;
begin
Result := LockMedia(ADriveLetter, true);
if Result then LockMedia(ADriveLetter, false);
end;