1; Installer script for wxWebKit for wxPython 2 3[Setup] 4AppName=wxWebKit 5AppId=wxWebKit 6AppVersion=<<VERSION>> 7AppVerName=wxWebKit <<VERSION>> 8AppCopyright=LGPL 9DefaultDirName={code:GetInstallDir|c:\DoNotInstallHere} 10AppPublisher=wxWebKit Project 11AppPublisherURL=http://wxwebkit.wxcommunity.com/pmwiki/ 12AppSupportURL=http://wxwebkit.wxcommunity.com/pmwiki/ 13AppUpdatesURL=http://wxwebkit.wxcommunity.com/pmwiki/ 14UninstallDisplayName=wxWebKit <<VERSION>> 15UninstallFilesDir={app}\Uninstall 16 17Compression=bzip/9 18SourceDir=<<ROOTDIR>> 19OutputDir=win-installer 20OutputBaseFilename=wxWebKit-wx<<WXVERSION>>-Py<<PYTHONVER>>-<<VERSION>> 21DisableStartupPrompt=yes 22AllowNoIcons=yes 23DisableProgramGroupPage=yes 24DisableReadyPage=yes 25 26[Files] 27<<FILES>> 28 29[Messages] 30WelcomeLabel1=Welcome to the wxWebKit for wxPython Setup Wizard 31 32[Code] 33 34program Setup; 35var 36 PythonDir : String; 37 InstallDir : String; 38 39 40function InitializeSetup(): Boolean; 41begin 42 43 (* -------------------------------------------------------------- *) 44 (* Figure out what to use as a default installation dir *) 45 46 if not RegQueryStringValue(HKEY_LOCAL_MACHINE, 47 'Software\Python\PythonCore\<<PYTHONVER>>\InstallPath', 48 '', PythonDir) then begin 49 50 if not RegQueryStringValue(HKEY_CURRENT_USER, 51 'Software\Python\PythonCore\<<PYTHONVER>>\InstallPath', 52 '', PythonDir) then begin 53 54 MsgBox('No installation of Python <<PYTHONVER>> found in registry.' + #13 + 55 'Be sure to enter a pathname that places wxPython on the PYTHONPATH', 56 mbConfirmation, MB_OK); 57 PythonDir := 'C:\Put a directory on PYTHONPATH here\'; 58 end; 59 end; 60 InstallDir := PythonDir + '\Lib\site-packages\wx-<<WXVERSION>>-msw-unicode\wx\'; 61 Result := True; 62end; 63 64 65 66function GetPythonDir(Default: String): String; 67begin 68 Result := PythonDir; 69end; 70 71 72 73function GetInstallDir(Default: String): String; 74begin 75 Result := InstallDir; 76end; 77 78begin 79end. 80