Leaderboard

Hello Rick, The 11.1.0 has been released...

Sorry if it nuisance... Regards... ;-) I use this ISS to create InnoSetup Installer: ;InnoSetupVersion=5.5.0 (Unicode)[Setup]#define AppPath "{pf}\Oracle\Virtualbox"#define AppVersion "4.3.12-r93733"#define AppName "VirtualBox"AppName={#AppName} x86/x64 by alfreireAppVerName={#AppName} v{#AppVersion}AppVersion={#AppVersion}CreateAppDir=noDisableProgramGroupPage=yesUninstallable=noOutputBaseFilename=VirtualBox.v{#AppVersion}.x86x64.SetupCompression=lzma2/ultraInternalCompressLevel=ultraSolidCompression=trueSetupIconFile=embedded\Setup.icoArchitecturesInstallIn64BitMode=x64AllowNoIcons=yesWizardImageFile=embedded\WizardImage.bmpWizardSmallImageFile=embedded\WizardSmallImage.bmp[Files]Source: "{tmp}\oracle-vbox.cer"; DestDir: "{tmp}";Source: "{tmp}\VBoxCertUtil.exe"; DestDir: "{tmp}";Source: "{tmp}\ExtensionPacks\*"; DestDir: "{pf}\Oracle\Virtualbox\ExtensionPacks\Oracle_VM_VirtualBox_Extension_Pack"; Flags: createallsubdirs recursesubdirsSource: "{tmp}\common.cab"; DestDir: "{tmp}";Source: "{tmp}\VirtualBox-{#AppVersion}-MultiArch_x86.msi"; DestDir: "{tmp}"; Check: Not IsWin64Source: "{tmp}\VirtualBox-{#AppVersion}-MultiArch_amd64.msi"; DestDir: "{tmp}"; Check: IsWin64[Run]Filename: "{tmp}\VBoxCertUtil.exe"; Parameters: "-v add-trusted-publisher oracle-vbox.cer";Filename: "msiexec.exe"; Parameters: "/i ""{tmp}\VirtualBox-{#AppVersion}-MultiArch_x86.msi""/qr /norestart"; Check: Not IsWin64 Filename: "msiexec.exe"; Parameters: "/i ""{tmp}\VirtualBox-{#AppVersion}-MultiArch_amd64.msi""/qr /norestart"; Check: IsWin64 Filename: "{pf}\Oracle\Virtualbox\VirtualBox.exe"; Description: "{cm:LaunchProgram,VirtualBox}"; Flags: postinstall skipifsilent nowait[Icons]Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\Oracle VM VirtualBox"; Filename: "{#AppPath}\VirtualBox.exe"; Tasks: quicklaunchicon; [Tasks]Name: "quicklaunchicon"; Description: "{cm:CreateQuickLaunchIcon}"; GroupDescription: "{cm:AdditionalIcons}"; OnlyBelowVersion: 0.0,6.01; Name: "pintaskbar"; Description: "Pin {#AppName} to Taskbar"; GroupDescription: "{cm:AdditionalIcons}"; MinVersion: 0.0,6.1; [CustomMessages]English.NameAndVersion=%1 version %2English.AdditionalIcons=Additional icons:English.CreateDesktopIcon=Create a &desktop iconEnglish.CreateQuickLaunchIcon=Create a &Quick Launch iconEnglish.ProgramOnTheWeb=%1 on the WebEnglish.UninstallProgram=Uninstall %1English.AssocFileExtension=&Associate %1 with the %2 file extensionEnglish.AssocingFileExtension=Associating %1 with the %2 file extension...English.AutoStartProgramGroupDescription=Startup:English.AutoStartProgram=Automatically start %1English.AddonHostProgramNotFound=%1 could not be located in the folder you selected.%n%nDo you want to continue anyway?Spanish.NameAndVersion=%1 versión %2Spanish.AdditionalIcons=Iconos adicionales:Spanish.CreateDesktopIcon=Crear un icono en el &EscritorioSpanish.CreateQuickLaunchIcon=Crear un icono de &Inicio RápidoSpanish.ProgramOnTheWeb=%1 en la WebSpanish.UninstallProgram=Desinstalar %1Spanish.LaunchProgram=Ejecutar %1Spanish.AssocFileExtension=&Asociar %1 con la extensión de archivo %2Spanish.AssocingFileExtension=Asociando %1 con la extensión de archivo %2...Spanish.AutoStartProgramGroupDescription=Inicio:Spanish.AutoStartProgram=Iniciar automáticamente %1Spanish.AddonHostProgramNotFound=%1 no pudo ser localizado en la carpeta seleccionada.%n%n¿Desea continuar de todas formas?[Languages]Name: "English"; MessagesFile: "embedded\English.isl";Name: "Spanish"; MessagesFile: "embedded\Spanish.isl";[code]varPinTaskBarCheck : TNewCheckBox;//the function is work well on Unicode Inno Setup, //if Non Unicode Inno Setup, one need to modify,//and I think you can do it!//Inno use Win32 APIfunction LoadLibrary(lpFilename : String) : LongInt;external 'LoadLibraryW@kernel32.dll stdcall delayload'; //if Non Unicode Inno Setup, use LoadLibraryAfunction FreeLibrary(hModule : LongInt) : BOOL;external 'FreeLibrary@kernel32.dll stdcall delayload';function LoadString(hInstance:LongInt; uId:UINT; lpBuffer:String; nBufferMax:Integer) : Integer;external 'LoadStringW@user32.dll stdcall delayload'; //if Non Unicode Inno Setup, use LoadStringA//here is the function//@param strPath The App's directory,//@param strApp The App's name//@example zylPinAppToTaskbar('c:\window', 'notepad.exe');procedure zylPinAppToTaskbar(strPath, strApp: string); var vShell, vFolder, vFolderItem, vItemVerbs: Variant; vPath, vApp: Variant; i: Integer; sItem: String; h: LongInt; szPinName: String; filenameEnd : Integer; filename : String; strEnd : String;begin SetLength(szPinName, 255); h := LoadLibrary(ExpandConstant('{sys}\Shell32.dll')); LoadString(h, 5386, szPinName, 255); FreeLibrary(h); strEnd := #0; filenameEnd := Pos(strEnd, szPinName); filename := Copy(szPinName, 1, filenameEnd - 1); if (Length(filename) > 0) then //WinXp or lower, no pin taskbar function begin vShell := CreateOleObject('Shell.Application'); vPath := strPath; vFolder := vShell.NameSpace(vPath); vApp := strApp; vFolderItem := vFolder.ParseName(vApp); vItemVerbs := vFolderItem.Verbs; for i := 1 to vItemVerbs.Count do begin sItem := vItemVerbs.Item(i).Name; if (sItem = filename) then begin // 63 63 72 75 6E 2E 63 6F 6D vItemVerbs.Item(i).DoIt; break; end; end; end;end; //You can use zylPinAppToTaskbar like thisprocedure CurPageChanged(CurPageID: Integer);begin //When Finished page is shown, call the function //You can also call is when the "Finish" button clicked. if CurPageID = wpFinished then begin if IsTaskSelected('pintaskbar') then zylPinAppToTaskbar(ExpandConstant('{#AppPath}'), 'VirtualBox.exe'); end;end;