[R.i.m.s.k.y.]

bosenkov5, он у тебя ругается на секцию tasks, скорее всего desktopicon не определен в секции tasks

[R.i.m.s.k.y.]

на рабочем столе появился ярлык а в пуске появились но без картинки но запускаются »

попробуй
Name: "{group}\{#MyAppName}"; Filename: "{app}\{#exeName}"; IconFilename: ""{app}\{#exeName}"; IconIndex: 0
но вообще че-то мне кажется что кеш иконок у тебя глючит, перегрузи комп

[R.i.m.s.k.y.]

строчка

Код:

  if ('1.0.0.6' < '1.0.0.20')   then   MsgBox('www', mbInformation, MB_OK);

ошибка при компиляции

Код:

---------------------------
Ошибка компиляции
---------------------------
Строка 136:

Column 34:

Type mismatch.
---------------------------
ОК   
---------------------------

Column 34 это then


даже if ('a' < 'b') - та же ошибка.
что я делаю не так? ведь инно должен сравнивать текстовые строки
расширенный юникод компилятор

[saurn]

R.i.m.s.k.y., да вроде работает

Код:

[Setup]
AppName=My Program
AppVersion=1.5
VersionInfoVersion=1.0.0.20
CreateAppDir=no
OutputDir=...

[Code]
function CompareVer(): Boolean;
var
    str: String;
begin
    GetVersionNumbersString( ExpandConstant( '{srcexe}' ), str );

    if (str < '1.0.0.20')   then   MsgBox('www', mbInformation, MB_OK);
end;


procedure InitializeWizard();
begin
    CompareVer();
end;

[Shift85]

расширенный юникод компилятор »

R.i.m.s.k.y., На анси работает

[R.i.m.s.k.y.]

да вроде работает »

:FACEPALM.JPG:
этот if ('a' < 'b') был в initializeSetup

Код:

Function InitializeSetup : boolean;
var
  VersionMS0x86, VersionLS0x86 : Cardinal;
  i : integer;
begin
  if ('a' > 'b')   then   MsgBox('www', mbInformation, MB_OK);
result := false;
end;

вынес в другую функцию, как в примере - заработал

[saurn]

R.i.m.s.k.y., так тоже работает, и на юникоде

Код:

[Code]
function CompareVer( const str1, str2: String ): Boolean;
begin
    if ( str1 > str2 ) then MsgBox('www', mbInformation, MB_OK);
end;


procedure InitializeWizard();
begin
    CompareVer( '1.0.0.6', '1.0.0.20' );
end;

[El Sanchez]

R.i.m.s.k.y., saurn, неужели '1.0.0.6' "больше", чем '1.0.0.20'? Обсуждалось ведь уже, что так сравнивать версии в виде строк некорректно.

[R.i.m.s.k.y.]

El Sanchez, нет, конечно 1,0,0,6 меньше 1,0,0,20
это просто эксперимент по сравнению строк в инно от выхлопа GetVersionNumbers

как тогда правильно сравнивать версии?

[sergey3695]

R.i.m.s.k.y.,

Код:

function CompareTextI(const str1, str2: String): Boolean;
var
  stri1,stri2: integer;
begin
  stri1:= strtoint(str1);
  stri2:= strtoint(str2);
  Result:= false;
if stri1 > stri2 then
begin
  MsgBox('первое больше', mbInformation, MB_OK);
  Result:= true;
end;
if stri1 < stri2 then
begin
  MsgBox('второе больше', mbInformation, MB_OK);
  Result:= true;
end;
end;

procedure CompareVer(const str1, str2: String);
var
  stri1,stri2: string;
begin
if CompareText(str1,str2)= 0 then MsgBox('равны', mbInformation, MB_OK)
else begin
while Pos('.',str1) > 0 do
begin
  stri1:= copy(str1,0,Pos('.',str1)-1);
  delete(str1,1,Pos('.',str1));
  stri2:= copy(str2,0,Pos('.',str2)-1);
  delete(str2,1,Pos('.',str2));
if CompareTextI(stri1,stri2) then
  Break;
end;
  CompareTextI(str1,str2);
end;
end;

procedure InitializeWizard();
begin
  CompareVer('1.0.0.6', '1.2.0.20' );
end;

может так как-нибудь. сравнивать числа по отдельности до точки. вот только интересно если будет скажем 02 и 2. то как считать? равно. или нет.