Innosetup中在安裝介面左下角新增超連結

2022-02-17 11:07:18 字數 1497 閱讀 1330

1. 新建乙個標籤,這裡使用的控制項是tnewstatictext ,完整的方法是

//該方法傳入兩個引數:

//1. parentform:將這個urllabel新增到那個介面上,這裡新增到整個安裝wizardform去

//2. cancelbutton:使用wizardform的cancelbutton來輔助這個urllabel作相對定位

procedure createurllable(parentform: tsetupform; cancelbutton: tnewbutton);

var urllabel: tnewstatictext;

begin

urllabel := tnwestatictext.create(parentform);//這個urllabel實際即使乙個文字標籤,將它新增到wizardform中去

urllabel.caption := 'www.innosetup.com';//設定顯示的文字

urllabel.cursor := crhand;//滑鼠移上去時顯示為手形

urllabel.onclick := @urllabelonclick;//繫結點選事件

urllabel.parent := parentform;

urllabel.font.style := urllabel.font.style + [fsunderline];//檔案顯示下劃線

urllabel.font.color := clblue;

urllabel.top := cancelbutton.top;//直接使用cancelbutton的top來定位

urllabel.left := scalex(20);//與左邊相距20個畫素

end;

2. 為標籤urllabel繫結點選事件(這個方法的定義必須在createurllabel()之前)

procedure urllabelonclick(sender: tobject);

var errorcode: integer;

begin

shellexecasoriginaluser('open', '', '', '', sw_shownormal, ewnowait, errorcode);

end;

3. 在procedure initializewizard()方法中呼叫 createurllabel()方法

//該方法是innosetup自帶的方法,作用是初始化安裝介面wizardform

procedure initializewizard();

begin

//.....其他**

createurllabel(wizardform, wizardform.cancelbutton);

end;

Inno setup定製安裝介面

原文 inno setup定製安裝介面 innosetup功能很強大,可以通過它提供的wizard介面來定製介面,但我對pascal語言不熟悉,也不清楚通過那種介面可改動的範圍有多大,最後做出來的效果是否好,所以選擇了通過乙個dll來實現我的介面。首先,指令碼中增加如下設定,以禁至所有inno se...

inno setup檢測安裝路徑是否包含中文

後面了解到inno setup的 code 部分使用pascal語法,然後寫了乙個可以檢測中的pascal方法,邏輯很簡單,如下 檢測字串中是否存在中文 function ischinesestr txt string boolean varval integer len integer i int...

Inno Setup 安裝製作應用

在inno setup安包製作的時候 會發展專案下的子資料夾會 生成到主檔案下面。導致程式無法使用。setup 生成新的guid,點選 工具 在ide中生成guid。defaultdirname defaultgroupname outputdir e testsetup outputbasefil...