function IsPathValid(Path: string): Boolean;
var
I: Integer;
begin
Path := Uppercase(Path);
Result :=
(Length(Path) >= 3) and
(Path[1] >= 'A') and (Path[1] <= 'Z') and
(Path[2] = ':') and
(Path[3] = '\');
if Result then
begin
for I := 3 to Length(Path) do
begin
case Path[I] of
'0'..'9', 'A'..'Z', '\', ' ', '.', '-', '(', ')':
else
begin
Result := False;
Break;
end;
end;
end;
end;
end;
1条答案
按热度按时间czq61nw11#
不,Inno安装程序不支持正则表达式。
您也许可以为此调用PowerShell,但这有点过头了。
检查不需要正则表达式:
(The代码requires Unicode version of Inno Setup,你应该使用无论如何,它是唯一的版本,截至目前的Inno安装6)。
类似问题: