セットアップ中にINFファイル[.inf]から値を読み取る方法を知る必要があります。インストーラーに、更新するプログラムのバージョンを確認してもらいたい。このプログラムのバージョンは、レジストリやその他のファイルには保存されず、.infファイルにのみ保存されます。次に、そこからバージョンを取得する必要があります。
私はあなたの答えを得ました、@Tlamaと私はソフトウェアのバージョンを取得するためにDLLを使用することはできません。このプログラムは、現在のバージョンのみをINFファイルに保存します。
私がやりたいのは、インストーラーに、使用しているソフトウェアの現在のバージョンを確認させ、そのバージョンをラベルテキストで表示させることです。
inf情報は次のとおりです。
NetVersion=1.1.1.1
PatchVersion=2.0.1
ProductName=SoftwareX
バージョンが表示された後に表示するPatchVersionが必要です:####:
これは私が修正しようとしているコードです:
function GetInfsam: String;
var
sVersion : String;
Begin
sVersion := '';
GetIniString('', 'PatchVersion', 'sVersion', '{app}\Sam.inf');
Result := sVersion;
end;
Procedure InitializeWizard7();
var
L2Ver1 : Tlabel;
L2Ver2 : Tlabel;
Begin
L2Ver1:= TLabel.Create(WizardForm);
L2Ver1.Transparent:= True;
L2Ver1.AutoSize:= False;
L2Ver1.WordWrap:= True;
L2Ver1.Font.name:= 'Agency FB';
L2Ver1.Font.Size:= 12;
L2Ver1.Font.Color:= clwhite;
L2Ver1.Caption:= 'Version:';
L2Ver1.Parent:= WizardForm.SelectdirPage;
L2Ver1.Left := 5;
L2Ver1.top := 260;
L2Ver1.Width := 150;
L2Ver1.Height := 40;
L2Ver2:= TLabel.Create(WizardForm);
L2Ver2.Transparent:= True;
L2Ver2.AutoSize:= False;
L2Ver2.WordWrap:= True;
L2Ver2.Font.name:= 'Agency FB';
L2Ver2.Font.Size:= 12;
L2Ver2.Font.Color:= clwhite;
L2Ver2.Caption:= GetInfsam;
L2Ver2.Parent:= WizardForm.SelectdirPage;
L2Ver2.Left := L2Ver1.Width + L2Ver1.Left + 8;
L2Ver2.top := 260;
L2Ver2.Width := 100;
L2Ver2.Height := 40;
End;
コードを修正するために助けが必要です。