InnoSetup杂记

那些个控件名

// 输出所有控件名
procedure InitializeWizard;
var
	i: integer;
	te: TMemo;
begin
	te := TMemo.Create(WizardForm);
	te.Parent := WizardForm.WelcomeLabel2;

	with WizardForm do
	begin
		for i:= ComponentCount - 1 downto 0 do
		begin
			if Components[i].Name <> '' then
			begin
				te.Text := te.Text + Components[i].Name + #13 + #10;
			end;
		end;
	end;
end;
BeveledLabel
FinishedHeadingLabel
FinishedLabel
YesRadio
NoRadio
RunList
WizardBitmapImage2
FinishedPage
PageNameLabel
PageDescriptionLabel
WizardSmallBitmapImage
MainPanel
InfoAfterClickLabel
InfoAfterMemo
InfoAfterPage
ProgressGauge
StatusLabel
FilenameLabel
InstallingPage
PreparingNoRadio
PreparingYesRadio
PreparingLabel
PreparingErrorBitmapImage
PreparingPage
ReadyLabel
ReadyMemo
ReadyPage
SelectTasksLabel
TasksList
SelectTasksPage
SelectStartMenuFolderLabel
SelectStartMenuFolderBrowseLabel
GroupEdit
GroupBrowseButton
NoIconsCheck
SelectGroupBitmapImage
SelectProgramGroupPage
SelectComponentsLabel
TypesCombo
ComponentsList
ComponentsDiskSpaceLabel
SelectComponentsPage
SelectDirLabel
SelectDirBrowseLabel
DirEdit
DirBrowseButton
DiskSpaceLabel
SelectDirBitmapImage
SelectDirPage
UserInfoNameLabel
UserInfoNameEdit
UserInfoOrgLabel
UserInfoOrgEdit
UserInfoSerialLabel
UserInfoSerialEdit
UserInfoPage
InfoBeforeClickLabel
InfoBeforeMemo
InfoBeforePage
PasswordLabel
PasswordEditLabel
PasswordEdit
PasswordPage
LicenseLabel1
LicenseMemo
LicenseAcceptedRadio
LicenseNotAcceptedRadio
LicensePage
InnerNotebook
Bevel1
InnerPage
WelcomeLabel1
WelcomeLabel2
WizardBitmapImage
WelcomePage
OuterNotebook
BackButton
NextButton
CancelButton
Bevel

注册表

开机启动
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run
文件右键使用my software打开
HKEY_CLASSES_ROOT\*\Shell\Open with My Software\command

例子来自Sublime Text 2的安装包

[Registry]
Root: HKCR; Subkey: "*\Shell\Open with Sublime Text 2\command"; ValueType: String; ValueData: "{app}\sublime_text.exe ""%1"""; Tasks: "contextentry"; MinVersion: 0.0,5.0; Flags: uninsdeletekey 
Root: HKCR; Subkey: "*\Shell\Open with Sublime Text 2"; Tasks: "contextentry"; MinVersion: 0.0,5.0; Flags: uninsdeletekey dontcreatekey
[Tasks]
Name: "contextentry"; Description: "Add to explorer context menu"; MinVersion: 0.0,5.0; 

标签: none

添加新评论