scratchpad Jouke <code> ; -- pvoice.iss -- [Setup] AppName=pVoice AppVerName=pVoice 2.1 AppCopyright=Copyright © 2001-2004 Jouke Visser DefaultDirName={pf}\pVoice DefaultGroupName=pVoice AllowRootDirectory=true AllowUNCPath=false DisableStartupPrompt=false FlatComponentsList=false ShowLanguageDialog=yes SetupIconFile=pvoice.ico UninstallIconFile=pvoice.ico OutputBaseFilename=pVoice-setup SolidCompression=true VersionInfoVersion=2.1 VersionInfoCompany=pVoice Software Compression=bzip LicenseFile=ArtisticLicense.txt [Files] Source: pVoice.exe; DestDir: {app}; Flags: ignoreversion; Components: Base Source: pvoice.ico; DestDir: {app}; Flags: ignoreversion; Components: Base Source: help\pVoice2.chm; DestDir: {app}\help; Flags: ignoreversion; Components: Base Source: credits.txt; DestDir: {app}; Flags: ignoreversion; Components: Base Source: INPOUT32.DLL; DestDir: {app}; Flags: ignoreversion; Components: Base Source: img\up.png; DestDir: {app}\img; Flags: ignoreversion; Components: Base Source: img\home.png; DestDir: {app}\img; Flags: ignoreversion; Components: Base Source: img\next.png; DestDir: {app}\img; Flags: ignoreversion; Components: Base Source: img\prev.png; DestDir: {app}\img; Flags: ignoreversion; Components: Base Source: img\rowsel.png; DestDir: {app}\img; Flags: ignoreversion; Components: Base Source: img\again.png; DestDir: {app}\img; Flags: ignoreversion; Components: Base Source: img\talk.png; DestDir: {app}\img; Flags: ignoreversion; Components: Base Source: img\delete.png; DestDir: {app}\img; Flags: ignoreversion; Components: Base Source: img\empty.jpg; DestDir: {app}\img; Flags: ignoreversion; Components: Base Source: img\splash.png; DestDir: {app}\img; Flags: ignoreversion; Components: Base Source: help\pVoice2.hhp; DestDir: {app}\help; Flags: ignoreversion; Components: Base Source: help\pvoice.hhc; DestDir: {app}\help; Flags: ignoreversion; Components: Base Source: help\pvoice.hhk; DestDir: {app}\help; Flags: ignoreversion; Components: Base Source: help\editmode.htm; DestDir: {app}\help; Flags: ignoreversion; Components: Base Source: help\gettingstarted.htm; DestDir: {app}\help; Flags: ignoreversion; Components: Base Source: help\index.htm; DestDir: {app}\help; Flags: ignoreversion; Components: Base Source: help\preferences.htm; DestDir: {app}\help; Flags: ignoreversion; Components: Base Source: help\navigation.htm; DestDir: {app}\help; Flags: ignoreversion; Components: Base Source: help\startingfirsttime.htm; DestDir: {app}\help; Flags: ignoreversion; Components: Base Source: help\otherfeatures.htm; DestDir: {app}\help; Flags: ignoreversion; Components: Base Source: help\img\up.jpg; DestDir: {app}\help\img; Flags: ignoreversion; Components: Base Source: help\img\next.jpg; DestDir: {app}\help\img; Flags: ignoreversion; Components: Base Source: help\img\prev.jpg; DestDir: {app}\help\img; Flags: ignoreversion; Components: Base Source: help\img\rowsel.jpg; DestDir: {app}\help\img; Flags: ignoreversion; Components: Base Source: help\img\again.jpg; DestDir: {app}\help\img; Flags: ignoreversion; Components: Base Source: help\img\talk.jpg; DestDir: {app}\help\img; Flags: ignoreversion; Components: Base Source: help\img\delete.jpg; DestDir: {app}\help\img; Flags: ignoreversion; Components: Base Source: help\img\adremorefresh.bmp; DestDir: {app}\help\img; Flags: ignoreversion; Components: Base Source: help\img\agentcharacter.bmp; DestDir: {app}\help\img; Flags: ignoreversion; Components: Base Source: help\img\agentlanguage.bmp; DestDir: {app}\help\img; Flags: ignoreversion; Components: Base Source: help\img\agentvoice.bmp; DestDir: {app}\help\img; Flags: ignoreversion; Components: Base Source: help\img\agentproperties.bmp; DestDir: {app}\help\img; Flags: ignoreversion; Components: Base Source: help\img\caption.bmp; DestDir: {app}\help\img; Flags: ignoreversion; Components: Base Source: help\img\control.bmp; DestDir: {app}\help\img; Flags: ignoreversion; Components: Base Source: help\img\editwindow.bmp; DestDir: {app}\help\img; Flags: ignoreversion; Components: Base Source: help\img\filetypes.bmp; DestDir: {app}\help\img; Flags: ignoreversion; Components: Base Source: help\img\language.bmp; DestDir: {app}\help\img; Flags: ignoreversion; Components: Base Source: help\img\mousecursorplacement.bmp; DestDir: {app}\help\img; Flags: ignoreversion; Components: Base Source: help\img\screen1.bmp; DestDir: {app}\help\img; Flags: ignoreversion; Components: Base Source: help\img\themeindexmatrix.bmp; DestDir: {app}\help\img; Flags: ignoreversion; Components: Base Source: L10N\pvoice_en.po; DestDir: {app}\L10N; Flags: ignoreversion; Components: Base Source: L10N\pvoice_en.mo; DestDir: {app}\L10N; Flags: ignoreversion; Components: Base Source: L10N\pvoice_nl.po; DestDir: {app}\L10N; Flags: ignoreversion; Components: Base Source: L10N\pvoice_nl.mo; DestDir: {app}\L10N; Flags: ignoreversion; Components: Base Source: L10N\pvoice_fr.po; DestDir: {app}\L10N; Flags: ignoreversion; Components: Base Source: L10N\pvoice_fr.mo; DestDir: {app}\L10N; Flags: ignoreversion; Components: Base Source: L10N\pvoice_de.po; DestDir: {app}\L10N; Flags: ignoreversion; Components: Base Source: L10N\pvoice_de.mo; DestDir: {app}\L10N; Flags: ignoreversion; Components: Base Source: L10N\pvoice_es.po; DestDir: {app}\L10N; Flags: ignoreversion; Components: Base Source: L10N\pvoice_es.mo; DestDir: {app}\L10N; Flags: ignoreversion; Components: Base Source: L10N\pvoice_tr.po; DestDir: {app}\L10N; Flags: ignoreversion; Components: Base Source: L10N\pvoice_tr.mo; DestDir: {app}\L10N; Flags: ignoreversion; Components: Base Source: L10N\pvoice_pt_br.po; DestDir: {app}\L10N; Flags: ignoreversion; Components: Base Source: L10N\pvoice_pt_br.mo; DestDir: {app}\L10N; Flags: ignoreversion; Components: Base Source: L10N\pvoice_it.po; DestDir: {app}\L10N; Flags: ignoreversion; Components: Base Source: L10N\pvoice_it.mo; DestDir: {app}\L10N; Flags: ignoreversion; Components: Base Source: L10N\pvoice_sv.po; DestDir: {app}\L10N; Flags: ignoreversion; Components: Base Source: L10N\pvoice_sv.mo; DestDir: {app}\L10N; Flags: ignoreversion; Components: Base Source: L10N\pvoice_dk.po; DestDir: {app}\L10N; Flags: ignoreversion; Components: Base Source: L10N\pvoice_dk.mo; DestDir: {app}\L10N; Flags: ignoreversion; Components: Base Source: L10N\pvoice_no_no.po; DestDir: {app}\L10N; Flags: ignoreversion; Components: Base Source: L10N\pvoice_no_no.mo; DestDir: {app}\L10N; Flags: ignoreversion; Components: Base Source: L10N\pvoice-zh_cn.po; DestDir: {app}\L10N; Flags: ignoreversion; Components: Base Source: L10N\pvoice-zh_cn.mo; DestDir: {app}\L10N; Flags: ignoreversion; Components: Base Source: L10N\pvoice-zh_tw.po; DestDir: {app}\L10N; Flags: ignoreversion; Components: Base Source: L10N\pvoice-zh_tw.mo; DestDir: {app}\L10N; Flags: ignoreversion; Components: Base Source: L10N\pvoice_ru.po; DestDir: {app}\L10N; Flags: ignoreversion; Components: Base Source: L10N\pvoice_ru.mo; DestDir: {app}\L10N; Flags: ignoreversion; Components: Base Source: L10N\pvoice_hv.po; DestDir: {app}\L10N; Flags: ignoreversion; Components: Base Source: L10N\pvoice_hv.mo; DestDir: {app}\L10N; Flags: ignoreversion; Components: Base [Icons] Name: {group}\pVoice; Filename: {app}\pVoice.exe; Workingdir: {app}; IconFilename: {app}\pvoice.ico [Components] Name: Base; Description: Base components; Flags: fixed; Types: custom compact full Name: Microsoft_Agent; Description: Microsoft Agent; Flags: fixed; Types: custom compact full; ExtraDiskSpaceRequired: 400384; Check: NeedMSAgent Name: SAPI4; Description: Microsoft Speech API 4.0a; ExtraDiskSpaceRequired: 1793024; Flags: fixed; Types: custom compact full; Check: NeedSAPI Name: English; Description: English speech components; Flags: fixed; Types: custom compact full; ExtraDiskSpaceRequired: 1020908; Check: NeedEnglish Name: Dutch; Description: Dutch speech components; Types: full; ExtraDiskSpaceRequired: 2696151; Check: NeedDutch Name: German; Description: German speech components; Types: full; ExtraDiskSpaceRequired: 2318663; Check: NeedGerman Name: French; Description: French speech components; Types: full; ExtraDiskSpaceRequired: 2381578; Check: NeedFrench Name: Italian; Description: Italian speech components; Types: full; ExtraDiskSpaceRequired: 2098462; Check: NeedItalian Name: Spanish; Description: Spanish speech components; Types: full; ExtraDiskSpaceRequired: 2507407; Check: NeedSpanish Name: Portuguese_Brazilian; Description: Portuguese Brazilian speech components; Types: full; ExtraDiskSpaceRequired: 2538864; Check: NeedPortuguese Name: Russian; Description: Russian speech components; Types: full; ExtraDiskSpaceRequired: 3021209; Check: NeedRussian [_ISToolDownload] Source: http://activex.microsoft.com/activex/controls/agent2/MSagent.exe; DestDir: {tmp}; DestName: MSagent.exe; Components: Microsoft_Agent Source: http://activex.microsoft.com/activex/controls/sapi/spchapi.exe; DestDir: {tmp}; DestName: spchapi.exe; Components: SAPI4 Source: http://download.microsoft.com/download/c/9/e/c9ee5f5d-7631-4ee7-aee4-dbd22b2b1439/SpchCpl.exe; DestDir: {tmp}; DestName: SpchCpl.exe; Components: SAPI4 Source: http://download.microsoft.com/download/1/d/b/1dbee406-9b5f-48c5-b901-dd1a3f3c4669/Merlin.exe; DestDir: {tmp}; DestName: Merlin.exe; Components: Microsoft_Agent Source: http://activex.microsoft.com/activex/controls/agent2/tv_enua.exe; DestDir: {tmp}; DestName: tv_enua.exe; Components: English Source: http://activex.microsoft.com/activex/controls/agent2/lhttsfrf.exe; DestDir: {tmp}; DestName: lhttsfrf.exe; Components: French Source: http://activex.microsoft.com/activex/controls/agent2/AgtX040C.exe; DestDir: {tmp}; DestName: AgtX040C.exe; Components: French Source: http://activex.microsoft.com/activex/controls/agent2/lhttsdun.exe; DestDir: {tmp}; DestName: lhttsdun.exe; Components: Dutch Source: http://activex.microsoft.com/activex/controls/agent2/AgtX0413.exe; DestDir: {tmp}; DestName: AgtX0413.exe; Components: Dutch Source: http://activex.microsoft.com/activex/controls/agent2/lhttsged.exe; DestDir: {tmp}; DestName: lhttsged.exe; Components: German Source: http://activex.microsoft.com/activex/controls/agent2/AgtX0407.exe; DestDir: {tmp}; DestName: AgtX0407.exe; Components: German Source: http://activex.microsoft.com/activex/controls/agent2/lhttsiti.exe; DestDir: {tmp}; DestName: lhttsiti.exe; Components: Italian Source: http://activex.microsoft.com/activex/controls/agent2/AgtX0410.exe; DestDir: {tmp}; DestName: AgtX0410.exe; Components: Italian Source: http://activex.microsoft.com/activex/controls/agent2/lhttsptb.exe; DestDir: {tmp}; DestName: lhttsptb.exe; Components: Portuguese_Brazilian Source: http://activex.microsoft.com/activex/controls/agent2/AgtX0416.exe; DestDir: {tmp}; DestName: AgtX0416.exe; Components: Portuguese_Brazilian Source: http://activex.microsoft.com/activex/controls/agent2/lhttsrur.exe; DestDir: {tmp}; DestName: lhttsrur.exe; Components: Russian Source: http://activex.microsoft.com/activex/controls/agent2/AgtX0419.exe; DestDir: {tmp}; DestName: AgtX0419.exe; Components: Russian Source: http://activex.microsoft.com/activex/controls/agent2/lhttsspe.exe; DestDir: {tmp}; DestName: lhttsspe.exe; Components: Spanish Source: http://activex.microsoft.com/activex/controls/agent2/AgtX0C0A.exe; DestDir: {tmp}; DestName: AgtX0C0A.exe; Components: Spanish [Run] Filename: {tmp}\MSagent.exe; WorkingDir: {tmp}; Flags: skipifdoesntexist; Components: Microsoft_Agent Filename: {tmp}\spchapi.exe; WorkingDir: {tmp}; Flags: skipifdoesntexist; Components: SAPI4 Filename: {tmp}\SpchCpl.exe; WorkingDir: {tmp}; Flags: skipifdoesntexist; Components: SAPI4 Filename: {tmp}\Merlin.exe; WorkingDir: {tmp}; Flags: skipifdoesntexist; Components: Microsoft_Agent Filename: {tmp}\tv_enua.exe; WorkingDir: {tmp}; Flags: skipifdoesntexist; Components: English Filename: {tmp}\lhttsfrf.exe; WorkingDir: {tmp}; Flags: skipifdoesntexist; Components: French Filename: {tmp}\AgtX040C.exe; WorkingDir: {tmp}; Flags: skipifdoesntexist; Components: French Filename: {tmp}\lhttsdun.exe; WorkingDir: {tmp}; Flags: skipifdoesntexist; Components: Dutch Filename: {tmp}\AgtX0413.exe; WorkingDir: {tmp}; Flags: skipifdoesntexist; Components: Dutch Filename: {tmp}\lhttsged.exe; WorkingDir: {tmp}; Flags: skipifdoesntexist; Components: German Filename: {tmp}\AgtX0407.exe; WorkingDir: {tmp}; Flags: skipifdoesntexist; Components: German Filename: {tmp}\lhttsiti.exe; WorkingDir: {tmp}; Flags: skipifdoesntexist; Components: Italian Filename: {tmp}\AgtX0410.exe; WorkingDir: {tmp}; Flags: skipifdoesntexist; Components: Italian Filename: {tmp}\lhttsptb.exe; WorkingDir: {tmp}; Flags: skipifdoesntexist; Components: Portuguese_Brazilian Filename: {tmp}\AgtX0416.exe; WorkingDir: {tmp}; Flags: skipifdoesntexist; Components: Portuguese_Brazilian Filename: {tmp}\lhttsrur.exe; WorkingDir: {tmp}; Flags: skipifdoesntexist; Components: Russian Filename: {tmp}\AgtX0419.exe; WorkingDir: {tmp}; Flags: skipifdoesntexist; Components: Russian Filename: {tmp}\lhttsspe.exe; WorkingDir: {tmp}; Flags: skipifdoesntexist; Components: Spanish Filename: {tmp}\AgtX0C0A.exe; WorkingDir: {tmp}; Flags: skipifdoesntexist; Components: Spanish [Languages] Name: English; MessagesFile: compiler:Default.isl Name: Dutch; MessagesFile: compiler:Languages\Dutch.isl Name: French; MessagesFile: compiler:Languages\French.isl Name: German; MessagesFile: compiler:Languages\German.isl Name: Norwegian; MessagesFile: compiler:Languages\Norwegian.isl Name: Russian; MessagesFile: compiler:Languages\Russian.isl [Messages] SelectComponentsLabel2=Select the components you want to install; clear the components you do not want to install. Click Next when you are ready to continue. %n%nSetup will then try to download the Microsoft Agent components and the free speech engines (when available) from the Microsoft website. %n%nThere are currently *no* free speechengines for the following languages: %nChinese, Croatian, Danish, Swedish, Norwegian and Turkish. [Code] // Function generated by ISTool. function NextButtonClick(CurPage: Integer): Boolean; begin Result := istool_download(CurPage); end; function NeedMSAgent(): Boolean; var sVersion: String; begin RegQueryStringValue( HKLM, 'SOFTWARE\Classes\Agent.Control\CurVer', '', sVersion ); if sVersion = 'Agent.Control.2' THEN begin Result := false; end else begin Result := true; end end; function NeedSAPI(): Boolean; var sVersion: String; begin RegQueryStringValue( HKCR, 'CLSID\{FF2C7A52-78F9-11ce-B762-00AA004CD65C}\ProgID', '', sVersion ); if sVersion = 'Speech.VoiceText.1' THEN begin Result := false; end else begin Result := true; end end; function NeedEnglish(): Boolean; var sVersion: String; begin RegQueryStringValue( HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\tv_enua', 'DisplayName', sVersion ); if sVersion <> '' THEN begin Result := false; end else begin Result := true; end end; function NeedDutch(): Boolean; var sVersion: String; begin RegQueryStringValue( HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\LHTTSDUN', 'DisplayName', sVersion ); if sVersion <> '' THEN begin Result := false; end else begin Result := true; end end; function NeedGerman(): Boolean; var sVersion: String; begin RegQueryStringValue( HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\LHTTSGED', 'DisplayName', sVersion ); if sVersion <> '' THEN begin Result := false; end else begin Result := true; end end; function NeedFrench(): Boolean; var sVersion: String; begin RegQueryStringValue( HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\LHTTSFRF', 'DisplayName', sVersion ); if sVersion <> '' THEN begin Result := false; end else begin Result := true; end end; function NeedItalian(): Boolean; var sVersion: String; begin RegQueryStringValue( HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\LHTTSITI', 'DisplayName', sVersion ); if sVersion <> '' THEN begin Result := false; end else begin Result := true; end end; function NeedPortuguese(): Boolean; var sVersion: String; begin RegQueryStringValue( HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\LHTTSPTB', 'DisplayName', sVersion ); if sVersion <> '' THEN begin Result := false; end else begin Result := true; end end; function NeedRussian(): Boolean; var sVersion: String; begin RegQueryStringValue( HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\LHTTSRUR', 'DisplayName', sVersion ); if sVersion <> '' THEN begin Result := false; end else begin Result := true; end end; function NeedSpanish(): Boolean; var sVersion: String; begin RegQueryStringValue( HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\LHTTSSPE', 'DisplayName', sVersion ); if sVersion <> '' THEN begin Result := false; end else begin Result := true; end end; </code>