Inno setup 如何强制目录编辑框大写的第一个字符？

在运行Inno安装程序时，我需要确保安装目录的驱动器号在用户输入后是大写的

原因：Apache需要它。如果驱动器号以小写形式输入，则它不起作用（在httpd.conf中）。并且只有驱动器号必须更改；如果路径的任何字符与文件系统中路径的大小写不匹配，Apache也无法处理它（尽管Windows不区分大小写）

---

如何使Inno设置

{app}

常量自动大写其第一个字符？

此代码应始终保持目录编辑框的第一个字母为大写：

[Code]
procedure DirEditChange(Sender: TObject);
var
  S: string;
  SelStart: Integer;
  SelLength: Integer;  
begin
  S := WizardForm.DirEdit.Text;
  if Length(S) > 0 then
  begin
    SelStart := WizardForm.DirEdit.SelStart;
    SelLength := WizardForm.DirEdit.SelLength;
    Insert(UpperCase(S[1]), S, 2);  
    Delete(S, 1, 1);
    WizardForm.DirEdit.Text := S;
    WizardForm.DirEdit.SelStart := SelStart;
    WizardForm.DirEdit.SelLength := SelLength;
  end;
end;

procedure InitializeWizard;
begin
  WizardForm.DirEdit.OnChange := @DirEditChange;
end;

---

但是，等等，你想保持目录编辑的第一个字母大写还是保持

{app}

常量？如果在向导中目录编辑的第一个字母强制为大写，这不保证{app}常量也有它的第一个字母大写吗？是的，当然！我不知道写那篇评论时我在想什么。然后，将其保存在编辑框的更改事件中就足够了。