Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Ветеран


Сообщения: 1133
Благодарности: 581

Профиль | Отправить PM | Цитировать


Цитата Dark Engel:
как все таки реализовать мой вопрос »
Пример
Код: Выделить весь код
[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes

[Languages]
Name: rus; MessagesFile: compiler:Languages\Russian.isl

[Code]
function DetectInstall(ProgName: string; ver: Integer): Boolean;
var
  Names: TArrayOfString;
  ResultDWord: Cardinal;
  i: Integer;
  s, msg: string;
begin
  Result:= True;
  if RegGetValueNames(HKEY_LOCAL_MACHINE, 'Software\UIT\FAP', Names) then
    begin
      for i:= 0 to GetArrayLength(Names)-1 do
        if Lowercase(ProgName) = Lowercase(Names[i]) then
          begin
            RegQueryDWordValue(HKEY_LOCAL_MACHINE, 'Software\UIT\FAP', Names[i], ResultDWord);
            if ResultDWord > ver then
              begin
                msg:= 'Установленная версия новее.';
                Result:= False;
              end
            else msg:= 'Рекомендуется обновить программу.';
            if ResultDWord = ver then
              begin
                msg:= 'Данная версия уже установлена.';
                Result:= False;
              end;
            MsgBox(msg, mbInformation, MB_OK);
            Break;
          end;
    end;
end;

function InitializeSetup(): Boolean;
begin
  // указываем название нашей программы и её версию
  Result:= DetectInstall('proga2', 16);
end;

-------
Книги нужны, чтобы напоминать человеку, что его оригинальные мысли не так уж новы... Авраам Линкольн.

Это сообщение посчитали полезным следующие участники:

Отправлено: 20:50, 15-12-2009 | #674