Question

While running Inno Setup, I have the need of making sure the drive letter of the install directory is uppercase after being entered by a user.

The reason: Apache’s mod_xsendfile requires it. It doesn’t work (in httpd.conf) if the drive letter is entered in lower case. And only the drive letter must be changed; Apache can’t handle it either if any characters of a path don’t match the case of the path in the file system (despite Windows being case-insensitive).

How do I make the Inno Setup {app} constant automatically capitalize its first character?

Answer 1

This piece of code should keep the first letter of the directory edit box always upper case:

[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;