Allow underscores in the Windows installation path. Fixes #5467

This commit is contained in:
Dave Page
2021-02-26 12:27:39 +00:00
parent 87b9549ff4
commit e8114b5dc6
2 changed files with 2 additions and 1 deletions

View File

@@ -161,7 +161,7 @@ begin
for I := 3 to Length(Path) do
begin
case Path[I] of
'0'..'9', 'A'..'Z', '\', ' ', '.', '-', '(', ')':
'0'..'9', 'A'..'Z', '\', ' ', '.', '-', '_', '(', ')':
else
begin
Ret := False;