Jouke's scratchpad

; -- 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; C +omponents: 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; Componen +ts: Base Source: img\home.png; DestDir: {app}\img; Flags: ignoreversion; Compon +ents: Base Source: img\next.png; DestDir: {app}\img; Flags: ignoreversion; Compon +ents: Base Source: img\prev.png; DestDir: {app}\img; Flags: ignoreversion; Compon +ents: Base Source: img\rowsel.png; DestDir: {app}\img; Flags: ignoreversion; Comp +onents: Base Source: img\again.png; DestDir: {app}\img; Flags: ignoreversion; Compo +nents: Base Source: img\talk.png; DestDir: {app}\img; Flags: ignoreversion; Compon +ents: Base Source: img\delete.png; DestDir: {app}\img; Flags: ignoreversion; Comp +onents: Base Source: img\empty.jpg; DestDir: {app}\img; Flags: ignoreversion; Compo +nents: Base Source: img\splash.png; DestDir: {app}\img; Flags: ignoreversion; Comp +onents: Base Source: help\pVoice2.hhp; DestDir: {app}\help; Flags: ignoreversion; C +omponents: Base Source: help\pvoice.hhc; DestDir: {app}\help; Flags: ignoreversion; Co +mponents: Base Source: help\pvoice.hhk; DestDir: {app}\help; Flags: ignoreversion; Co +mponents: Base Source: help\editmode.htm; DestDir: {app}\help; Flags: ignoreversion; +Components: Base Source: help\gettingstarted.htm; DestDir: {app}\help; Flags: ignorever +sion; Components: Base Source: help\index.htm; DestDir: {app}\help; Flags: ignoreversion; Com +ponents: Base Source: help\preferences.htm; DestDir: {app}\help; Flags: ignoreversio +n; Components: Base Source: help\navigation.htm; DestDir: {app}\help; Flags: ignoreversion +; Components: Base Source: help\startingfirsttime.htm; DestDir: {app}\help; Flags: ignore +version; Components: Base Source: help\otherfeatures.htm; DestDir: {app}\help; Flags: ignorevers +ion; 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: ignoreversi +on; Components: Base Source: help\img\prev.jpg; DestDir: {app}\help\img; Flags: ignoreversi +on; Components: Base Source: help\img\rowsel.jpg; DestDir: {app}\help\img; Flags: ignorever +sion; Components: Base Source: help\img\again.jpg; DestDir: {app}\help\img; Flags: ignorevers +ion; Components: Base Source: help\img\talk.jpg; DestDir: {app}\help\img; Flags: ignoreversi +on; Components: Base Source: help\img\delete.jpg; DestDir: {app}\help\img; Flags: ignorever +sion; Components: Base Source: help\img\adremorefresh.bmp; DestDir: {app}\help\img; Flags: ig +noreversion; Components: Base Source: help\img\agentcharacter.bmp; DestDir: {app}\help\img; Flags: i +gnoreversion; Components: Base Source: help\img\agentlanguage.bmp; DestDir: {app}\help\img; Flags: ig +noreversion; Components: Base Source: help\img\agentvoice.bmp; DestDir: {app}\help\img; Flags: ignor +eversion; 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: ignoreve +rsion; Components: Base Source: help\img\control.bmp; DestDir: {app}\help\img; Flags: ignoreve +rsion; Components: Base Source: help\img\editwindow.bmp; DestDir: {app}\help\img; Flags: ignor +eversion; Components: Base Source: help\img\filetypes.bmp; DestDir: {app}\help\img; Flags: ignore +version; Components: Base Source: help\img\language.bmp; DestDir: {app}\help\img; Flags: ignorev +ersion; Components: Base Source: help\img\mousecursorplacement.bmp; DestDir: {app}\help\img; Fl +ags: ignoreversion; Components: Base Source: help\img\screen1.bmp; DestDir: {app}\help\img; Flags: ignoreve +rsion; 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: ignoreversio +n; Components: Base Source: L10N\pvoice_pt_br.mo; DestDir: {app}\L10N; Flags: ignoreversio +n; 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: ignoreversio +n; Components: Base Source: L10N\pvoice_no_no.mo; DestDir: {app}\L10N; Flags: ignoreversio +n; Components: Base Source: L10N\pvoice-zh_cn.po; DestDir: {app}\L10N; Flags: ignoreversio +n; Components: Base Source: L10N\pvoice-zh_cn.mo; DestDir: {app}\L10N; Flags: ignoreversio +n; Components: Base Source: L10N\pvoice-zh_tw.po; DestDir: {app}\L10N; Flags: ignoreversio +n; Components: Base Source: L10N\pvoice-zh_tw.mo; DestDir: {app}\L10N; Flags: ignoreversio +n; 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}; I +conFilename: {app}\pvoice.ico [Components] Name: Base; Description: Base components; Flags: fixed; Types: custom +compact full Name: Microsoft_Agent; Description: Microsoft Agent; Flags: fixed; Typ +es: custom compact full; ExtraDiskSpaceRequired: 400384; Check: NeedM +SAgent Name: SAPI4; Description: Microsoft Speech API 4.0a; ExtraDiskSpaceReq +uired: 1793024; Flags: fixed; Types: custom compact full; Check: Need +SAPI Name: English; Description: English speech components; Flags: fixed; T +ypes: custom compact full; ExtraDiskSpaceRequired: 1020908; Check: Ne +edEnglish Name: Dutch; Description: Dutch speech components; Types: full; ExtraD +iskSpaceRequired: 2696151; Check: NeedDutch Name: German; Description: German speech components; Types: full; Extr +aDiskSpaceRequired: 2318663; Check: NeedGerman Name: French; Description: French speech components; Types: full; Extr +aDiskSpaceRequired: 2381578; Check: NeedFrench Name: Italian; Description: Italian speech components; Types: full; Ex +traDiskSpaceRequired: 2098462; Check: NeedItalian Name: Spanish; Description: Spanish speech components; Types: full; Ex +traDiskSpaceRequired: 2507407; Check: NeedSpanish Name: Portuguese_Brazilian; Description: Portuguese Brazilian speech c +omponents; Types: full; ExtraDiskSpaceRequired: 2538864; Check: NeedP +ortuguese Name: Russian; Description: Russian speech components; Types: full; Ex +traDiskSpaceRequired: 3021209; Check: NeedRussian [_ISToolDownload] Source: http://activex.microsoft.com/activex/controls/agent2/MSagent.e +xe; DestDir: {tmp}; DestName: MSagent.exe; Components: Microsoft_Agen +t 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-4ee +7-aee4-dbd22b2b1439/SpchCpl.exe; DestDir: {tmp}; DestName: SpchCpl.ex +e; Components: SAPI4 Source: http://download.microsoft.com/download/1/d/b/1dbee406-9b5f-48c +5-b901-dd1a3f3c4669/Merlin.exe; DestDir: {tmp}; DestName: Merlin.exe; + Components: Microsoft_Agent Source: http://activex.microsoft.com/activex/controls/agent2/tv_enua.e +xe; 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_B +razilian Source: http://activex.microsoft.com/activex/controls/agent2/AgtX0416. +exe; DestDir: {tmp}; DestName: AgtX0416.exe; Components: Portuguese_B +razilian 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: skipifdoesntexi +st; Components: Microsoft_Agent Filename: {tmp}\spchapi.exe; WorkingDir: {tmp}; Flags: skipifdoesntexi +st; Components: SAPI4 Filename: {tmp}\SpchCpl.exe; WorkingDir: {tmp}; Flags: skipifdoesntexi +st; Components: SAPI4 Filename: {tmp}\Merlin.exe; WorkingDir: {tmp}; Flags: skipifdoesntexis +t; Components: Microsoft_Agent Filename: {tmp}\tv_enua.exe; WorkingDir: {tmp}; Flags: skipifdoesntexi +st; Components: English Filename: {tmp}\lhttsfrf.exe; WorkingDir: {tmp}; Flags: skipifdoesntex +ist; Components: French Filename: {tmp}\AgtX040C.exe; WorkingDir: {tmp}; Flags: skipifdoesntex +ist; Components: French Filename: {tmp}\lhttsdun.exe; WorkingDir: {tmp}; Flags: skipifdoesntex +ist; Components: Dutch Filename: {tmp}\AgtX0413.exe; WorkingDir: {tmp}; Flags: skipifdoesntex +ist; Components: Dutch Filename: {tmp}\lhttsged.exe; WorkingDir: {tmp}; Flags: skipifdoesntex +ist; Components: German Filename: {tmp}\AgtX0407.exe; WorkingDir: {tmp}; Flags: skipifdoesntex +ist; Components: German Filename: {tmp}\lhttsiti.exe; WorkingDir: {tmp}; Flags: skipifdoesntex +ist; Components: Italian Filename: {tmp}\AgtX0410.exe; WorkingDir: {tmp}; Flags: skipifdoesntex +ist; Components: Italian Filename: {tmp}\lhttsptb.exe; WorkingDir: {tmp}; Flags: skipifdoesntex +ist; Components: Portuguese_Brazilian Filename: {tmp}\AgtX0416.exe; WorkingDir: {tmp}; Flags: skipifdoesntex +ist; Components: Portuguese_Brazilian Filename: {tmp}\lhttsrur.exe; WorkingDir: {tmp}; Flags: skipifdoesntex +ist; Components: Russian Filename: {tmp}\AgtX0419.exe; WorkingDir: {tmp}; Flags: skipifdoesntex +ist; Components: Russian Filename: {tmp}\lhttsspe.exe; WorkingDir: {tmp}; Flags: skipifdoesntex +ist; Components: Spanish Filename: {tmp}\AgtX0C0A.exe; WorkingDir: {tmp}; Flags: skipifdoesntex +ist; 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; clea +r 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 th +e Microsoft website. %n%nThere are currently *no* free speechengines +for the following languages: %nChinese, Croatian, Danish, Swedish, No +rwegian 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-00AA004CD +65C}\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\CurrentVersio +n\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\CurrentVersio +n\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\CurrentVersio +n\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\CurrentVersio +n\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\CurrentVersio +n\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\CurrentVersio +n\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\CurrentVersio +n\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\CurrentVersio +n\Uninstall\LHTTSSPE', 'DisplayName', sVersion ); if sVersion <> '' THEN begin Result := false; end else begin Result := true; end end;


Clear questions and runnable code get the best and fastest answer
	PerlMonks