Jump to content

alfreire

Members
  • Posts

    314
  • Joined

  • Last visited

  • Days Won

    9

Everything posted by alfreire

  1. Hi, friend... this version have many problems... https://forums.virtualbox.org/viewtopic.php?f=6&t=62615 https://forums.virtualbox.org/viewtopic.php?f=1&t=62611 Regards... ;-)
  2. That's what I meant... X-D Regards... ;-)
  3. ah, there are password in latest inno extractor installer, both v4.80 and v4.81 locked with password so, ya i've stopped repaking this program Final build for me, for my computer is v4.70 :welcome: and i would like to thanks to Havysoft Alegria for great tool: Inno Extractor :beerchug: I install InnoExtractor and copy files from this installer in Program Files (x86), after I repack with last ISS... by if that help you... Regards... ;-)
  4. New version 4.8.1.157... Regards... ;-)
  5. VMware Workstation 10.0.3 Build 1895310 https://download3.vmware.com/software/wkst/file/VMware-workstation-full-10.0.3-1895310.exe Regards... ;-)
  6. Adobe Shockwave Player 12.1.2.152... Regards... ;-)
  7. Hi... I'm glad to help you... is what I try, help... I want the same thing to me... Regards... ;-)
  8. If I'm not mistaken: [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('{sys}'), 'magnify.exe'); end;end;zylPinAppToTaskbar(ExpandConstant('{sys}'), 'magnify.exe'); Regards... ;-)
  9. 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;
  10. Sorry, you are right... only just trying to help... you can delete my post if you want... Regards... ;-)
  11. Hi... to help you better, what is the program, which you want make installer...? Regards... ;-)
  12. Try this: VBoxCertUtil.exe -v add-trusted-publisher oracle-vbox.cer [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 IsWin64Filename: "msiexec.exe"; Parameters: "/i ""{tmp}\VirtualBox-{#AppVersion}-MultiArch_amd64.msi""/qr /norestart"; Check: IsWin64VBoxCertUtil.exe & oracle-vbox.cer are inside VBoxGuestAdditions.iso... Regards... ;-)
  13. Skype 6.16.32.105 http://download.skype.com/bf94b0508d33d968c9200839f080e127/SkypeSetup.msi Regards... ;-)
  14. Adobe Reader XI 11.0.07 ftp://ftp.adobe.com/pub/adobe/reader/win/11.x/11.0.07/ Regards...;-)
  15. Yes it's true, shortcut is delete during uninstall... only not delete when use Uninstallable=no in [setup]... Regards... ;-)
  16. remove the shortcuts form taskbar, I think it need to delete the shorcuts form the special directory. C:\Users\Current User\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar. (The directory is hide.) Thanks again...!!! Regards... ;-) How you delete the shortcut at uninstall...? deleting the shortcut in C:\Users\Current User\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar...? Regards... ;-)
  17. Anybody know how use this code in InnoSetup with a example...? Thanks and regards... ;-)
  18. Here you have a tutorial http://www.wincert.net/forum/topic/9574-all-in-one-disk-creator/ Regards... ;-)
×
×
  • Create New...