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