Help Code Inno 5.2.2

Help Code Inno 5.2.2 zodpovězená otázka

před 17 lety

-20 65

Dobry den pouzivam inno 5.2.2 setup pro vytvoreni instalatoru.

Nicmene mam mensi problem : Potrebuji asociovat moji vlastni koncovku ale nejak se mi to nedari i kdyz mam script v poradku:

; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!
 
 
 
[Setup]
AppName=File Downloader
AppVerName=File Downloader 0.1.0 beta
AppPublisher=michalss (xbox360warez.net)
AppPublisherURL=http://xbox360warez.net/
AppSupportURL=http://xbox360warez.net/
AppUpdatesURL=http://xbox360warez.net/
DefaultDirName={pf}\File Downloader
DefaultGroupName=File Downloader
OutputDir=C:\-- MY PROJECT's  --\Installer File Downloader
OutputBaseFilename=File_Downloader.exe
Compression=lzma
SolidCompression=true
PrivilegesRequired=none
AppVersion=0.1.0
AppID={{1DBAFDE3-E11F-4061-9A40-9FC5D5244115}
 
[Registry]
Root: HKCR; Subkey: .xbl; ValueType: string; ValueName: ; ValueData: FileDownloader; Flags: uninsdeletevalue
Root: HKCR; Subkey: FileDownloaderFile; ValueType: string; ValueName: ; ValueData: FileDownloader File; Flags: uninsdeletekey
Root: HKCR; Subkey: FileDownloaderFile\DefaultIcon; ValueType: string; ValueData: {app}\FileDownloader.exe,2
Root: HKCR; Subkey: FileDownloaderFile\shell\open\command; ValueType: string; ValueName: ; ValueData: """{app}\FileDownloader.exe"
 
[Languages]
Name: english; MessagesFile: compiler:Default.isl
Name: czech; MessagesFile: compiler:Languages\Czech.isl
Name: german; MessagesFile: compiler:Languages\German.isl
Name: slovak; MessagesFile: compiler:Languages\Slovak.isl
 
[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked
 
[Files]
Source: C:\-- MY PROJECT's  --\File Downloader\FileDownloader.exe; DestDir: {app}; Flags: ignoreversion
Source: C:\-- MY PROJECT's  --\File Downloader\*; DestDir: {app}; Flags: ignoreversion
; NOTE: Don't use "Flags: ignoreversion" on any shared system files
 
[Icons]
Name: {group}\File Downloader; Filename: {app}\FileDownloader.exe
Name: {group}\{cm:UninstallProgram,File Downloader}; Filename: {uninstallexe}
Name: {commondesktop}\File Downloader; Filename: {app}\FileDownloader.exe; Tasks: desktopicon
 
[Code]
procedure CurStepChanged(CurStep: TSetupStep);
var
  ResultCode: Integer;
  Uninstall: String;
begin
  if (CurStep = ssInstall) then begin
    if RegQueryStringValue(HKLM, 'Software\Microsoft\Windows\CurrentVersion\Uninstall\MyProgram_is1', 'UninstallString', Uninstall) then begin
      MsgBox('Warning: Old Version will be removed!', mbInformation, MB_OK);
      Exec(RemoveQuotes(Uninstall), ' /SILENT', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode);
    end;
  end;
end;
 
[Run]
Filename: {app}\FileDownloader.exe; Description: {cm:LaunchProgram,File Downloader}; Flags: nowait postinstall skipifsilent

Nevite nekdo prosim kde je chyba.

Neco je asi spatne :

[Registry]
Root: HKCR; Subkey: .xbl; ValueType: string; ValueName: ; ValueData: FileDownloader; Flags: uninsdeletevalue
Root: HKCR; Subkey: FileDownloaderFile; ValueType: string; ValueName: ; ValueData: FileDownloader File; Flags: uninsdeletekey
Root: HKCR; Subkey: FileDownloaderFile\DefaultIcon; ValueType: string; ValueData: {app}\FileDownloader.exe,2
Root: HKCR; Subkey: FileDownloaderFile\shell\open\command; ValueType: string; ValueName: ; ValueData: """{app}\FileDownloader.exe"

A pokud pouziji primo v codu aplikaci v udalosti Form1_Load tak to funguje :

My.Computer.Registry.ClassesRoot.CreateSubKey(".xbl").SetValue("", Microsoft.Win32.RegistryValueKind.String)
      My.Computer.Registry.ClassesRoot.CreateSubKey("FileDownloader\shell\open\command").SetValue("", Application.ExecutablePath & _
 " ""%l"" ", Microsoft.Win32.RegistryValueKind.String)