原来的问题:
//取消安装程序关于菜单
WizardForm.BORDERICONS := [biSystemMenu];
InnoSetup 安装程序标题菜单中的 “关于安装程序”已经屏蔽,但是产生以下问题:
1、授权说明中的“网址链接”全部失去链接效果(无下划线)。
2、安装类型默认为空,而不是原来排在最上面/已经安装的安装类型。
希望哪位高人指点一下,不胜感激。
以下是完善的脚本:
; -- test.iss --
; 脚本编写:zhfi
; 特别感谢:风铃夜思雨
[Setup]
AppName=我的程序
AppVerName=我的程序 版本 1.5
DefaultDirName={src}
Compression=lzma
Uninstallable=no
LicenseFile=test.txt
[Types]
Name: recommend; Description: 推荐
Name: custom; Description: 自定义; Flags: iscustom
[Components]
Name: main; Description: 测试; Types: recommend;
[code]
const MF_BYPOSITION=$400;
function DeleteMenu(HMENU: HWND; uPosition: UINT; uFlags: UINT): BOOL;
external 'DeleteMenu@user32.dll stdcall';
function GetSystemMenu(HWND: hWnd; bRevert: BOOL): HWND;
external 'GetSystemMenu@user32.dll stdcall';
procedure InitializeWizard();
begin
DeleteMenu(GetSystemMenu(wizardform.handle,false),8,MF_BYPOSITION);
DeleteMenu(GetSystemMenu(wizardform.handle,false),7,MF_BYPOSITION);
end;
[attachmentid=24558]