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
(thinking…)
Sign in with: Facebook Google
Signed in as (Sign out)
You have left! (?) (thinking…)
Gad D Lord shared this idea  ·   ·  Flag idea as inappropriate…  ·  Admin →

0 comments

Sign in
(thinking…)
Sign in with: Facebook Google
Signed in as (Sign out)
Submitting...

Feedback and Knowledge Base