1

Inno Setup の実行中に、ユーザーが入力したインストール ディレクトリのドライブ文字が大文字であることを確認する必要があります。

理由: Apache のmod_xsendfileで必要です。ドライブ文字を小文字で入力すると (httpd.conf で) 機能しません。ドライブ文字だけを変更する必要があります。パスの文字がファイル システム内のパスの大文字と小文字に一致しない場合、Apache はそれを処理できません (Windows では大文字と小文字が区別されないにもかかわらず)。

Inno Setup{app}定数の最初の文字を自動的に大文字にする方法を教えてください。

4

1 に答える 1

2

このコードでは、ディレクトリの編集ボックスの最初の文字を常に大文字にする必要があります。

[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;
于 2012-08-06T17:13:07.390 に答える