Was bedeutet "locked" in Deiner Situation?
Was soll es denn "scannen"?
Ein wenig mehr Informationen bitte.
Aus dem Bauch heraus:
Delphi-Quellcode:
TRY
fs := TFileStream.Create(fName, fmOpenRead OR fmShareDenyNone);
EXCEPT
// ON EFOpenError DO
BEGIN
(* .. zB Locked Files zaehlen *)
END;