Gesperrte Dateien löschen

[Go2EITS]

Hallo, himitsu!

Der erste Teil wird ausgeführt wenn die kleiner als Len 3 sind, um Fehleingaben wie C:\ zu umgehen
der zweite Teil geht in Aktion wenn z. B. C: übergeben wurde.

Dieser Code ist aber meines Erachtens zweifach fehlerhaft, weil ja ein hier ein 'C:\' = Len 3 übergeben werden kann. Richtig muss es heißen, da ja ein FilePath mit der Laufwerksangabe wohl mindestens 4 Buchstaben haben muss und z. B. so aussieht: C:\a und wenn Len < 4 ist, wird nix gelöscht und result:=false; gesetzt.

Delphi-Quellcode:

if StrLen(PChar(ExtractFileDrive(aFileName))) < 4 then 
  Result := False; // Falls Filename z. B. nur aus C:\ besteht  
else 
  Result := MoveFileEx(PChar(aFileName), nil, MOVEFILE_REPLACE_EXISTING + 
      MOVEFILE_DELAY_UNTIL_REBOOT);

Ich hoffe, ich konnte Dir weiterhelfen!

Beste Grüße.
Go2EITS