I suggest you ...

Add TDirectory.IsReservedName

Add a missing class function
class function TDirectory.IsReservedName(DirectoryName: string): Boolean;
begin
DirectoryName := LowerCase(DirectoryName);
if (DirectoryName = 'con') or
(DirectoryName = 'aux') or
(DirectoryName = 'prn') or
(DirectoryName = 'nul') or
(DirectoryName = 'lpt0') or
(DirectoryName = 'lpt1') or
(DirectoryName = 'lpt2') or
(DirectoryName = 'lpt3') or
(DirectoryName = 'lpt4') or
(DirectoryName = 'lpt5') or
(DirectoryName = 'lpt6') or
(DirectoryName = 'lpt7') or
(DirectoryName = 'lpt8') or
(DirectoryName = 'lpt9') or
(DirectoryName = 'com0') or
(DirectoryName = 'com1') or
(DirectoryName = 'com2') or
(DirectoryName = 'com3') or
(DirectoryName = 'com4') or
(DirectoryName = 'com5') or
(DirectoryName = 'com6') or
(DirectoryName = 'com7') or
(DirectoryName = 'com8') or
(DirectoryName = 'com9') then
Result := True
else
Result := False;
end;

2 votes
Vote
Sign in
Check!
(thinking…)
Reset
or sign in with
  • facebook
  • google
    Password icon
    Signed in as (Sign out)
    You have left! (?) (thinking…)
    Gad D Lord shared this idea  ·   ·  Flag idea as inappropriate…  ·  Admin →

    0 comments

    Sign in
    Check!
    (thinking…)
    Reset
    or sign in with
    • facebook
    • google
      Password icon
      Signed in as (Sign out)
      Submitting...

      Feedback and Knowledge Base