1. 新建乙個標籤,這裡使用的控制項是tnewstatictext ,完整的方法是
//該方法傳入兩個引數:2. 為標籤urllabel繫結點選事件(這個方法的定義必須在createurllabel()之前)//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;
procedure urllabelonclick(sender: tobject);3. 在procedure initializewizard()方法中呼叫 createurllabel()方法var errorcode: integer;
begin
shellexecasoriginaluser('open', '', '', '', sw_shownormal, ewnowait, errorcode);
end;
//該方法是innosetup自帶的方法,作用是初始化安裝介面wizardformprocedure 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...