root/trunk/default.iss

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;               Ýòî iss-ñêðèïò ïî óìîë÷àíèþ             ;;
;;               äëÿ ñêàðìëèâàíèÿ IssBuilder.            ;;
;;                                                       ;;
;;              Copyright (C) 2007 Gipat Group           ;;
;;              Ðàñïðîñòðàíÿåòñÿ íà óñëîâèÿõ             ;;
;;                      LGPL v2.1                        ;;
;;                                                       ;;
;;                  www.gipatgroup.org                   ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;Ê ðàáîòå íàä äàííûì ôàéëîì ïðèëîæèëè ðóêè, íîãè.... êîðî÷å àôôòàðû:
;; 1) Sagrer (sagrer@yandex.ru)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; Ôàéë äëÿ ñáîðêè MobSurgeon

[Setup]
InternalCompressLevel=ultra
OutputBaseFilename=MobSurgeon_0_0_0_0
SolidCompression=true
Compression=lzma/ultra
OutputDir=.\
SourceDir=.\
VersionInfoVersion=0.0.0.0
VersionInfoTextVersion=MobSurgeon 0.0.0.0
VersionInfoCompany=Gipat Group
VersionInfoDescription=MobSurgeon 0.0.0.0
ShowLanguageDialog=no
AppName={code:ConstAppName}
AppVerName=MobSurgeon 0.0.0.0
DefaultDirName={code:ConstInstallPath}
UsePreviousAppDir=false
DefaultGroupName={code:ConstDeveloperName}\{code:ConstAppName}\
DisableStartupPrompt=true
FlatComponentsList=true
AppendDefaultDirName=false
UsePreviousSetupType=false
AppCopyright=Copyright © 2007 Gipat Group
RestartIfNeededByRun=false
WizardImageFile=compiler:wizmodernimage-is.bmp
WizardSmallImageFile=compiler:wizmodernsmallimage-is.bmp
VersionInfoCopyright=Copyright © 2007 Gipat Group
LicenseFile=GG_opened_EI-editor-utility_license.txt
InfoBeforeFile=ChangeLog.txt
ChangesAssociations=true
[_ISTool]
UseAbsolutePaths=false
[Languages]
Name: Russian; MessagesFile: compiler:Languages\Russian.isl
Name: English; MessagesFile: compiler:Default.isl
[Components]
Name: CurrVersion_Main; Description: Îñíîâíûå ôàéëû ïîëíîé âåðñèè; Flags: fixed; Check: CheckDoNewInstall; Types: StandardInstall
Name: AlwaysInstall; Description: Îáÿçàòåëüíûå ôàéëû; Flags: fixed; Types: StandardInstall
[Icons]
Name: {group}\Readme.txt; Filename: {app}\Readme.txt; Components: CurrVersion_Main
Name: {group}\Äåèíñòàëëèðîâàòü; Filename: {uninstallexe}; Components: CurrVersion_Main
Name: {group}\MobSurgeon; Filename: {app}\MobSurgeon.exe; Components: CurrVersion_Main
Name: {userdesktop}\MobSurgeon; Filename: {app}\MobSurgeon.exe; Components: CurrVersion_Main; Tasks: AssociateMob_ru
Name: {group}\ChangeLog.txt; Filename: {app}\ChangeLog.txt; Components: CurrVersion_Main
[Types]
Name: StandardInstall; Description: Îáûêíîâåííàÿ óñòàíîâêà; Languages: 
[Registry]
Root: HKCU; Subkey: Software\{code:ConstDeveloperName}\{code:ConstAppName}\; Flags: createvalueifdoesntexist uninsdeletekey; Components: AlwaysInstall
Root: HKCU; Subkey: Software\{code:ConstDeveloperName}\{code:ConstAppName}\; ValueType: string; ValueName: path; ValueData: {app}; Components: AlwaysInstall
Root: HKCU; Subkey: Software\{code:ConstDeveloperName}\{code:ConstAppName}\; ValueType: string; ValueName: ver; ValueData: {code:ConstAppVer}; Components: AlwaysInstall
Root: HKCR; SubKey: .mob; ValueType: string; ValueData: MOB files; Flags: uninsdeletekey; Components: CurrVersion_Main; Tasks: " AssociateMob_ru"
Root: HKCR; SubKey: MOB files; ValueType: string; ValueData: Evil Islands mob file; Flags: uninsdeletekey; Components: CurrVersion_Main; Tasks: " AssociateMob_ru"
Root: HKCR; SubKey: MOB files\Shell\Open\Command; ValueType: string; ValueData: """{app}\MobSurgeon.exe"" ""%1"""; Flags: uninsdeletevalue; Components: CurrVersion_Main; Tasks: " AssociateMob_ru"
Root: HKCR; Subkey: MOB files\DefaultIcon; ValueType: string; ValueData: {app}\MobIco.ico; Flags: uninsdeletevalue; Components: CurrVersion_Main; Tasks: " AssociateMob_ru"
[Tasks]
Name: IconToDesktop_ru; Description: Ïîëîæèòü çíà÷åê íà ðàáî÷èé ñòîë.; Flags: unchecked; Components: CurrVersion_Main; Languages: 
Name: AssociateMob_ru; Description: Àññîöèèðîâàòü ôàéëû *.mob ñ MobSurgeon; Components: CurrVersion_Main
[Code]
const
  AppName = 'MobSurgeon';   //Òèïà èìÿ àïëèêàøîíà
  AppVer = '0.0.0.0';
  NoFullInstall = false;   //Çàïðåò\ðàçðåøåíèå ïîëíîé óñòàíîâêè
  NoUpdate = true;       //Çàïðåò\ðàçðåøåíèå àïäåéòà
  UpdateFrom = '0.0.0.0;0.0.0.1';     //Âåðñèè, ñ êîòîðûõ ìîæíî îáíîâëÿòü.
  DeveloperName = 'Gipat Group';    //Èìÿ äåâåëîïåðà - ÷àñòü ïóòè â ðååñòðå.

var
  InstallPath, CurrentVer : string;
  DoNewInstall, DoUpdate : boolean;

Function Parse (Str, Separator : string; Var Parsed : string) : string;
var
  I, StrLength : integer;
begin
  //Ôóíêà äëÿ ïàðñèíãà ñòðîê. Êðèâàÿ, íî êàê óìåþ :(.
  I := 0;
  StrLength := Length(Str);
  if StrLength > 0 then begin
    Parsed := '';

    repeat
      I := I+1;
      If Str[I] <> Separator then begin
        //Åñëè ñåïàðàòîð íå âñòðåòèëñÿ - çàïîìíèòü ñèìâîë.
        Parsed := Parsed+Str[I];
      end;
    until (I = StrLength) or (Str[I] = Separator);

    Result := Str;
    Delete(Result,1,I);
  end
  else begin
    Parsed := Str;
    Result := '';
  end;
end;

Function IsNumericStr (Str : string) : boolean;
var
  I, StrLength : integer;
  FindedChar : boolean;
begin
  //À ýòà ôóíêà äîëæíà îïðåäåëÿòü, ñîñòîèò ëè ñòðîêà òîëüêî èç öèôð.

  Result := true;  //Óìîë÷àëüíûé ðåçóëüòàò.

  StrLength := Length(Str);
  If StrLength > 0 then begin
    //Åñëè â ñòðîêå ÷åòà åñòü òî ìîæíî ïðèñòóïàòü.
    For I := 1 to StrLength do begin
      FindedChar := true;
      If Str[I] = '1' then FindedChar := false;  //Äîñòàòî÷íî âûïîëíèòñÿ 1 ïðîâåðêå - è ÷àð áóäåò íå íàéäåí :)
      If Str[I] = '2' then FindedChar := false;
      If Str[I] = '3' then FindedChar := false;
      If Str[I] = '4' then FindedChar := false;
      If Str[I] = '5' then FindedChar := false;
      If Str[I] = '6' then FindedChar := false;
      If Str[I] = '7' then FindedChar := false;
      If Str[I] = '8' then FindedChar := false;
      If Str[I] = '9' then FindedChar := false;
      If Str[I] = '0' then FindedChar := false;

      //È åñëè áûë îáíàðóæåí ñèìâîë-íå öèôðà - îáëîìèòü âñå íàôèã.
      If FindedChar = true then Result := false;
    end;
  end
  else begin
    Result := false;  //Òèïà ñòðîêà ïóñòàÿ.
  end;
end;

Function IsVersionStr (Str : string) : boolean;
var
  I, StrLength : integer;
  FindedChar, WasPoint : boolean;
begin
  //À ýòà ôóíêà äîëæíà îïðåäåëÿòü, ñîñòîèò ëè ñòðîêà òîëüêî èç öèôð.

  Result := true;  //Óìîë÷àëüíûé ðåçóëüòàò.

  StrLength := Length(Str);
  If StrLength > 0 then begin
    //Åñëè â ñòðîêå ÷åòà åñòü òî ìîæíî ïðèñòóïàòü.
    WasPoint := false;
    For I := 1 to StrLength do begin
      FindedChar := true;
      If Str[I] = '1' then begin
        FindedChar := false;
        WasPoint := false;
      end;
      If Str[I] = '2' then begin
        FindedChar := false;
        WasPoint := false;
      end;
      If Str[I] = '3' then begin
        FindedChar := false;
        WasPoint := false;
      end;
      If Str[I] = '4' then begin
        FindedChar := false;
        WasPoint := false;
      end;
      If Str[I] = '5' then begin
        FindedChar := false;
        WasPoint := false;
      end;
      If Str[I] = '6' then begin
        FindedChar := false;
        WasPoint := false;
      end;
      If Str[I] = '7' then begin
        FindedChar := false;
        WasPoint := false;
      end;
      If Str[I] = '8' then begin
        FindedChar := false;
        WasPoint := false;
      end;
      If Str[I] = '9' then begin
        FindedChar := false;
        WasPoint := false;
      end;
      If Str[I] = '0' then begin
        FindedChar := false;
        WasPoint := false;
      end;
      If Str[I] = '.' then begin
        FindedChar := false;
        If WasPoint = true then begin
          //Åñëè äî ýòîãî óæå áûëà òî÷êà - òî àáëîîîì.
          FindedChar := true;
        end;
        WasPoint := true;
      end;

      //È åñëè áûë îáíàðóæåí ñèìâîë-íå öèôðà è íå òî÷êà - îáëîìèòü âñå íàôèã.
      If FindedChar = true then Result := false;
    end;
  end
  else begin
    Result := false;  //Òèïà ñòðîêà ïóñòàÿ.
  end;
end;

Function IsNewVersion(InstalledVer, CurrentVer : string) : boolean;
var
  CurrVerLevels, I,
  InstalledVerLevels, MaxLevel : integer;
  TempStr, TempStr2,
  InstalledVerTemp, CurrentVerTemp : string;
begin
  //Ôóíêà äîëæíà ïðîâåðÿòü, ÿâëÿåòñÿ ëè åíòîò èíñòàëë áîëåå íîâîé âåðñèåé.

  Result := false;  //Òèïà óìîë÷àëüíîå çíà÷åíèå.
  InstalledVerTemp := InstalledVer;
  CurrentVerTemp := CurrentVer;


  If (IsVersionStr(InstalledVer) = true) and (IsVersionStr(CurrentVer) = true) then begin
    //Òîëüêî åñëè â îáîèõ ñòðîêàõ - âåðñèè.

    //Äëÿ íà÷àëà - ïîñìîòðåòü ñêîëüêî óðîâíåé âåðñèè â òåêóùåé âåðñèè.
    TempStr := CurrentVerTemp;
    CurrVerLevels := 1;  //Åñòü êàê ìèíèìóì 1 óðîâåíü.
    repeat
      If Pos('.',TempStr) <> 0 then begin
        CurrVerLevels := CurrVerLevels + 1;   //Åñòü ìèíèìóì åùå 1 óðîâåíü.
        TempStr := Parse(TempStr,'.',TempStr2);
      end;
    until Pos('.',TempStr) = 0;

    //È â ïðîèíñòàëåííîé.
    TempStr := InstalledVerTemp;
    InstalledVerLevels := 1;  //Åñòü êàê ìèíèìóì 1 óðîâåíü.
    repeat
      If Pos('.',TempStr) <> 0 then begin
        InstalledVerLevels := InstalledVerLevels + 1;   //Åñòü ìèíèìóì åùå 1 óðîâåíü.
        TempStr := Parse(TempStr,'.',TempStr2);
      end;
    until Pos('.',TempStr) = 0;

    //Òåïåðü âû÷èñëèòü ìàêñèìàëüíûé óðîâåíü.
    If CurrVerLevels > InstalledVerLevels then begin
      MaxLevel := CurrVerLevels;
    end
    else begin
      MaxLevel := InstalledVerLevels;
    end;

    //Òåïåðü - ê òîé âåðñèè ÷òî ñàìàÿ ìàëîóðîâíåâàÿ - äîáàâèòü íóëåé.
    If CurrVerLevels < MaxLevel then begin
      For I := 1 to MaxLevel - CurrVerLevels do begin
        CurrentVerTemp := CurrentVerTemp+'.0';
      end;
    end;
    If InstalledVerLevels < MaxLevel then begin
      For I := 1 to MaxLevel - InstalledVerLevels do begin
        InstalledVerTemp := InstalledVerTemp+'.0';
      end;
    end;

    //Íó à òåïåðü - ñîáñíî ñðàâíåíèå íàêîíåöòî.
    I := 0;
    repeat
      I := I+1;
      InstalledVerTemp := Parse(InstalledVerTemp,'.',TempStr);
      CurrentVerTemp := Parse(CurrentVerTemp,'.',TempStr2);
      If StrToInt(TempStr2) > StrToInt(TempStr) then Result := true;
    until (I = MaxLevel) or (Result = true);
  end;
end;

Function VersionIsUpdatable(Version : string) : boolean;
//Ïðîâåðèòü - åñòü ëè ýòà âåðñèÿ â ñïèñêå âåðñèé ïðèãîäíûõ äëÿ îáíîâëåíèÿ
var
  ParsedStr, CheckableVer : string;
begin
  //Èíèöèàëèçàöèÿ
  Result := false;

  //Ñîáñíî ïðîâåðÿåì.
  ParsedStr := UpdateFrom;
  repeat
    ParsedStr := Parse(ParsedStr,';',CheckableVer);
    if CheckableVer <> '' then begin
      if CheckableVer = Version then begin
        //Àãà, íàøëè, åñòü îíî â ñïèñêå.
        Result := true;
      end;
    end;
  until (ParsedStr = '') or (Result = true);

end;

Function InitializeSetup() : boolean;
var
  AllOk, TempBool : boolean;
  TempStr, TempVersionsStr, CheckableVer : string;
  ResultCode : integer;

begin
  //Íó òèïà, ñêðèïò! :))))
  //MsgBox('Ñòàðò óñòàíîâêè',mbError,MB_OK);

  AllOk := true;  //Òèïà èíäèêàòîð òîãî ÷òî âñå â ïîðÿäêå.

  DoNewInstall := false;
  DoUpdate := false;
  CurrentVer := '';

  //Åñòü ëè çàïèñü â ðååñòðå?
  If RegValueExists(HKEY_CURRENT_USER,'Software\'+DeveloperName+'\'+AppName,'ver') = true then begin
    //Åñëè óæå ñòîèò êàêàÿ-òî âåðñèÿ
    //Ñìîòðèì - íå òà æå ñàìàÿ ëè ýòà âåðñèÿ êîòîðàÿ â ïàêåòå?
    //Ïîëó÷èòü íîìåð òåêóùåé âåðñèè.
    RegQueryStringValue(HKEY_CURRENT_USER,'Software\'+DeveloperName+'\'+AppName,'ver',TempStr);
    if TempStr = AppVer then begin
      //Òà æå âåðñèÿ. Ñïðàøèâàåì ó þçâåðÿ - ïðîäîëæàòü ëè óñòàíîâêó?
      if MsgBox('Âåðñèÿ, ñîäåðæàùàÿñÿ â äàííîì ïàêåòå ('+AppVer+') ñóäÿ ïî âñåìó óæå óñòàíîâëåíà. Åñëè âû ïðîäîëæèòå óñòàíîâêó - òî ïî-âèäèìîìó ïîòðåáóåòñÿ äåèíñòàëëèðîâàòü óæå óñòàíîâëåííóþ âåðñèþ. Ïðîäîëæèòü óñòàíîâêó?',mbConfirmation,MB_YESNO) = IDNO then begin
        //Þçâåðü îòêàçàëñÿ ïðîäîëæàòü óñòàíîâêó.
        AllOk := false;
      end;
    end;

    If (NoUpdate = false) and (AllOk = true) then begin
      //Åñëè àïäåéò ðàçðåøåí

      //È ïðîâåðèòü - âõîäèò ëè ýòà âåðñèÿ â ñïèñîê àïäåéòàáåëüíûõ âåðñèé.
      TempVersionsStr := UpdateFrom;
      TempBool := false;    //Èíäèêàòîð - ïîäõîäèò ëè âåðñèÿ äëÿ àïäåéòà.
      repeat
        TempVersionsStr := Parse(TempVersionsStr,';',CheckableVer);
        if CheckableVer <> '' then begin
          if CheckableVer = TempStr then begin
            //Ïîäõîäèò.
            TempBool := true;
          end;
        end;
      until (TempVersionsStr = '') or (TempBool = true);

      if TempBool = true then begin
        //Åñëè ïîäõîäèò - ðàçðåøàåì àïäåéò.
        DoUpdate := true;  //Ðàçðåøèòü àïäåéò.
        RegQueryStringValue(HKEY_CURRENT_USER,'Software\'+DeveloperName+'\'+AppName,'path',TempStr);
        InstallPath := TempStr;
        CurrentVer := CheckableVer;
      end
      else begin
        //Âåðñèÿ àïäåéòó íå ïîäëåæèò. Ìîæíî ðàçâå ÷òî ïðåäâàðèòåëüíî çàïóñòèòü äåèíñòàëëåð óæå óñòàíîâëåííîé
        //âåðñèè. Ýòî áóäåò ñäåëàíî íèæå.
      end;
    end
    else begin
      //Óæå ñòîèò êàêàÿ-òî âåðñèÿ, íî àïäåéò çàïðåùåí.
      // òàêîì ñëó÷àå, îïÿòü æå, áóäåò ïðåäëîæåíî çàïóñòèòü äåèíñòàëëÿöèþ ïîñëå ÷åãî
      //ïðîäîëæèòü ïî ñöåíàðèþ íîâîé óñòàíîâêè.
    end;
  end;

  //Íóæåí ëè ñöåíàðèé ïîëíîé óñòàíîâêè?
  If (AllOk = true) and ((RegValueExists(HKEY_CURRENT_USER,'Software\'+DeveloperName+'\'+AppName,'ver') = false) or (DoUpdate = false)) and (NoFullInstall = false) then begin
    //Âðîäå íóæíî.
    DoNewInstall := true;
    //Ïîñìîòðèì - íóæíî ëè èçáàâèòüñÿ îò ñòàðîé âåðñèè ïðîãè?
    if RegValueExists(HKEY_CURRENT_USER,'Software\'+DeveloperName+'\'+AppName,'ver') = true then begin
      //Î êàê. Çàïèñü â ðååñòðå åñòü, à àïäåéò îêàçûâàåòñÿ íå çàïóùåí. Çíà÷èò óñòàíîâëåííàÿ âåðñèÿ àïäåéòó
      //íå ïîäëåæèò. Òóò âñå çàâèñèò îò òîãî, ñóùåñòâóåò ëè äèðåêòîðèÿ ñ ïðîãîé íà âåíòå, à òàêæå
      //åñòü ëè òàì ýêçåéíèê äåèíñòàëëžðà. Äëÿ íà÷àëà ïðîâåðèì íàëè÷èå äèðåêòîðèè ñ ïðîãîé.
      RegQueryStringValue(HKEY_CURRENT_USER,'Software\'+DeveloperName+'\'+AppName,'path',TempStr);
      If DirExists(TempStr) = true then begin
        //Î êàê. Åñòü òàêîå äåëî.
        //Òåïåðü ïîïðîáóåì íàðûòü â ðååñòðå ïóòü ê äåèíñòàëëåðó.
        TempStr := '';
        if RegValueExists(HKEY_LOCAL_MACHINE,'Software\Microsoft\Windows\CurrentVersion\Uninstall\'+AppName+'_is1','UninstallString') = true then begin
          //Âûäåðíóòü ïóòü èç ðååñòðà.
          RegQueryStringValue(HKEY_LOCAL_MACHINE,'Software\Microsoft\Windows\CurrentVersion\Uninstall\'+AppName+'_is1','UninstallString',TempStr);
          //Åñëè íóæíî - óáðàòü '"' ïî êðàÿì.
          TempStr := RemoveQuotes(TempStr);
        end;
        //Ñîáñíî ïðîâåðÿåì - ñóùåñòâóåò ëè ýêçåéíèê äåèíñòàëëåðà.
        if FileExists(TempStr) = true then begin
          //Ôàéëåã ñóùåñòâóåò è íàäî ïðåäëîæèòü åãî çàïóñòèòü.
          if MsgBox('Îáíàðóæåíà óæå óñòàíîâëåííàÿ âåðñèÿ. ×òîáû óñòàíîâèòü äàííóþ âåðñèþ - íàäî äåèíñòàëëèðîâàòü óæå óñòàíîâëåííóþ. Äåèíñòàëëÿòîð îáíàðóæåí. Çàïóñòèòü äåèíñòàëëÿòîð?',mbConfirmation,MB_YESNO) = IDYES then begin
            //Óñå îê, þçâåðü çàïóñòèë äåèíñòàëëÿöèþ.
            Exec(TempStr,'','',SW_SHOW,ewWaitUntilTerminated,ResultCode);
            //È "ïîñïàòü" 5 ñåêóíä ÷òîáû ôàéëåãè óñïåëè óäàëèòüñÿ.
            Sleep(5000);
            //Åñëè ôàéëèê äåèíñòàëëåðà äî ñèõ ïîð íà ìåñòå - âûâåñòè îêîøê ñ êíîïêîé ÷òîá þçâåðü ñàì íàæìàë íà íåãî
            //êîãäà äåèíñòàëë çàâåðøèòñÿ. Èáî òàì âñÿêîå áûâàåò, îòñëåäèòü ìîìåíò ðåàëüíîãî çàâåðøåíèÿ äåèíñòàëëà ñëîæíî.
            if FileExists(TempStr) = true then begin
              MsgBox('Ïî çàâåðøåíèþ äåèíñòàëëÿöèè - íàæìèòå êíîïêó ÎÊ. ÍÅ ÍÀÆÈÌÀÉÒÅ êíîïêó Îê äî çàâåðøåíèÿ äåèíñòàëëÿöèè!!!',mbError,MB_OK);
            end;
            //Äåèíñòàëë çàâåðøåíà Ïðîâåðèòü, òàê ëè ýòî...
            if FileExists(TempStr) = false then begin
              //Ìîæíî çàïóñêàòü íîðìàëüíóþ óñòàíîâêó. Îñòàâëÿåì âñå êàê åñòü, îíî ñàìî ïîéäåò ïî ñòàíäàðòíîìó
              //ñöåíàðèþ.
            end
            else begin
              MsgBox('Äåèíñòàëëÿöèÿ íå âûïîëíåíà ïî íåèçâåñòíîé ïðè÷èíå. Âûïîëíèòå äåèíñòàëëÿöèþ âðó÷íóþ, ëèáî âðó÷íóþ óäàëèòå êàòàëîã '+ExtractFilePath(TempStr)+' ïîñëå ÷åãî çàïóñòèòå ýòó óñòàíîâêó çàíîâî.',mbError,MB_OK);
              DoNewInstall := false;
            end;
          end
          else begin
            //Þçâåðü îòêàçàëñÿ âûïîëíÿòü äåèíñòàëëÿöèþ.
            //Îòìåíà óñòàíîâêè.
            MsgBox('Äåèíñòàëëÿöèÿ íå âûïîëíåíà. Âûïîëíèòå äåèíñòàëëÿöèþ âðó÷íóþ, ëèáî âðó÷íóþ óäàëèòå êàòàëîã '+ExtractFilePath(TempStr)+' ïîñëå ÷åãî çàïóñòèòå ýòó óñòàíîâêó çàíîâî.',mbError,MB_OK);
            DoNewInstall := false;
          end;
        end
        else begin
          //Ôàéëåãà íå ñóùåñòâóåò, òàêèì îáðàçîì îñòàåòñÿ òîëüêî ñïðîñèòü ó þçâåðÿ - ïðîäîëæàòü ëè
          //óñòàíîâêó íåâçèðàÿ íà âîçìîæíûå ãëþêàíû.
          //Íàäî åùå âûäðàòü êàòàëîã ñ ïðîãîé.
          RegQueryStringValue(HKEY_CURRENT_USER,'Software\'+DeveloperName+'\'+AppName,'path',TempStr);
          if MsgBox('Îáíàðóæåíà óæå óñòàíîâëåííàÿ âåðñèÿ, íî äåèíñòàëëÿòîð îòñóòñòâóåò. Ðåêîìåíäóåòñÿ ïðåêðàòèòü óñòàíîâêó è âðó÷íóþ óäàëèòü êàòàëîã '+TempStr+' ïîñëå ÷åãî çàïóñòèòü ýòó óñòàíîâêó çàíîâî. Íî âû âñå-æå ìîæåòå è ïðîäîëæèòü ïðîöåññ óñòàíîâêè (ýòî ìîæåò ïðèâåñòè ê îøèáêàì). Ïðîäîëæèòü óñòàíîâêó?',mbConfirmation,MB_YESNO) = IDYES then begin
            //Þçâåðü òàêè ðåøèë ïðîäîëæàòü óñòàíîâêó... Íå äåëàåì íè÷åãî - îíî äàëüøå ïîéäåò ïî íîðìàëüíîìó ñöåíàðèþ.
          end
          else begin
            //Þçâåðü îòìåíèë óñòàíîâêó.
            DoNewInstall := false;
          end;
        end;
      end
      else begin
        //Íåòó ïðîãè íà âåíòå. À ýòî çíà÷èò ÷òî çàïèñü â ðååñòðå - ïî-âèäèìîìó íå áîëåå ÷åì çàïèñü â ðååñòðå,
        //à çíà÷èò ìîæíî áåçáîëåçíåííî äåéñòâîâàòü ïî îáû÷íîìó ñöåíàðèþ äëÿ íîâîé óñòàíîâêè.
      end;
    end;

    //Çàïóñê óñòàíîâêè ïî ñòàíäàðòíîìó ñöåíàðèþ.
    If DoNewInstall = true then begin
      //Ïîëó÷èòü ïóòü äëÿ èíñòàëëÿöèè.
      if RegValueExists(HKEY_CURRENT_USER,'Software\'+DeveloperName+'\'+AppName,'path') = true then begin
        //Åñëè â ðååñòðå ñîõðàíèëàñü çàïèñü î ïóòè - âîñïîëüçóåìñÿ åé.
        RegQueryStringValue(HKEY_CURRENT_USER,'Software\'+DeveloperName+'\'+AppName,'path',InstallPath);
      end
      else begin
        //Íå óäàëîñü äîáûòü òàêîé èíôîðìàöèè - êèäàåì â ProgramFiles.
        InstallPath := AddBackslash(ExpandConstant('{pf}'))+'\'+DeveloperName+'\'+AppName;
      end;
      DoNewInstall:= true;
    end
    else begin
      //Ïî ïóòè áûë êàêîé-òî îáëîì.
      AllOk := false;
    end;
  end
  else begin
    //Íåëüçÿ ñòàâèòüñÿ ñ íóëÿ.  ïðèíöèïå. Åñëè àïäåéò íå çàïóùåí - çíà÷èò èíñòàëëåð íå íàøåë òàêóþ âåðñèþ,
    //êîòîðóþ îí ìîæåò îáíîâèòü.
    if (DoUpdate = false) and (AllOk = true) then begin
      MsgBox('Èíñòàëëÿòîðó íå óäàëîñü íàéòè íà êîìïüþòåðå âåðñèé, êîòîðûå îí ìîã áû îáíîâèòü. Î òîì, êàêèå âåðñèè â ïðèíöèïå ìîãóò áûòü îáíîâëåíû - ñì. ïî èìåíè ôàéëà ïàêåòà. Äàííûé ïàêåò íå ïðåäíàçíà÷åí äëÿ óñòàíîâêè ñ íóëÿ, èì ìîæíî òîëüêî îáíîâèòü îäíó èç îïðåäåëåííûõ óæå óñòàíîâëåííûõ âåðñèé - ïîýòîìó óñòàíîâêà îòìåíåíà.',mbError,MB_OK);
      AllOk := false;
    end;
  end;

  If AllOk = true then begin
    //Ìîæíî íà÷èíàòü óñòàíîâêó.
    Result := true;
  end
  else begin
    //Îáëîì ñ óñòàíîâêîé. Âîò òàê âîò :(.
    //MsgBox('Óñòàíîâêà îòìåíåíà :(',mbError,MB_OK);
    Result := false;
  end;
end;


Function ConstInstallPath(Default : string) : string;
begin
  Result := InstallPath;
end;

Function ConstAppVer(Default : string) : string;
begin
  Result := AppVer;
end;

Function ConstAppName(Default : string) : string;
begin
  Result := AppName;
end;

Function ConstUninstallExe(Default : string) : string;
begin
  Result := '';
  if RegValueExists(HKEY_LOCAL_MACHINE,'\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\'+AppName+'_is1','UninstallString') = true then begin
    RegQueryStringValue(HKEY_LOCAL_MACHINE,'\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\'+AppName+'_is1','UninstallString',Result);
    Result := RemoveQuotes(Result);
  end;
end;

Function ConstAppVerName(Default : string) : string;
begin
  Result := AppName+' '+AppVer;
end;

Function ConstDeveloperName(Default : string) : string;
begin
  Result := DeveloperName;
end;

Function CheckDoNewInstall() : boolean;
begin
  Result := DoNewInstall;
end;

Function CheckDoUpdate() : boolean;
begin
  Result := DoUpdate;
end;

//Function CheckUpdate_0_0_0_1() : boolean;
////Ôóíêöèÿ-åêçàìïë - ïî êîòîðîé áóäåò ñîáñíî ïðîâåðÿòüñÿ - çàïóñêàòü ëè àïäåéò èìåííî ñ ýòîé âåðñèè.
//begin
//  Result := VersionIsUpdatable('0.0.0.1');
//end;

Function ShouldSkipPage(CurPage: Integer) : boolean;
begin
  //Ðàçíûå ïðîïóñêè ðàçíûõ "ñòðàíèö".
  Result := false;
  //MsgBox(IntToStr(CurPage),mbError,MB_OK);
  If DoUpdate = true then begin
    //MsgBox('It is update!',mbError,MB_OK);
    //Åñëè ýòî àïäåéò
    If CurPage = 2 then begin
      //Åñëè ýòî ñòðàíèöà ëèöåíçèè - òî ïîêàçûâàòü íå íóæíî - îíî áûëî ïðèíÿòî ïðè ïðîøëîé óñòàíîâêå.
      Result := true;
    end;
    If CurPage = 6 then begin
      //Åñëè ýòî ñòðàíèöà âûáîðà ïóòè.
      If DirExists(InstallPath) = true then begin
        //Åñëè ïàïêà óæå ñóùåñòâóåò
        //Òî ìîæíî îêíî âûáîðà ïóòè íå ïîêàçûâàòü.
        Result := true;
      end;
    end;
    If CurPage = 7 then begin
      //Åñëè ýòî ñòðàíèöà âûáîðà òèïà óñòàíîâêè - îí â ýòîì ñëó÷àå âñåãäà "îáíîâëåíèå".
      Result := true;
    end;
    If CurPage = 8 then begin
      //Åñëè ýòî ñòðàíèöà âûáîðà ïàïêè â ìåíþ Ïóñê
      Result := true;
    end;
  end;
  If DoNewInstall = true then begin
    //Åñëè ýòî íîâàÿ óñòàíîâêà.
    If CurPage = 7 then begin
      //Åñëè ýòî ñòðàíèöà âûáîðà òèïà óñòàíîâêè - îí â ýòîì ñëó÷àå âñåãäà "ïîëíàÿ".
      Result := true;
    end;
  end;
end;