Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

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

Аватара для Nemko

Новый участник


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

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


Beavimo, может я не в теме, но попробуйте так:

Скрытый текст
Код: Выделить весь код
#define NeedSHA "ad030d5606a2dcfa75ebc425a70730f23e7f07ab"

[Setup]
AppName=My Application
AppVersion=1.5
CreateAppDir=no

[*Сode]
function InitializeSetup: Boolean;
var
  FileName: PAnsiChar;
begin
  FileName:=ExpandConstant('{reg:HKLM\SOFTWARE\Code, PATH_APPLICATION}')+'\Test.exe';
  if not FileExists(FileName) then begin
  MsgBox('Установка Прекращена' #13#13 'Установите сначала Программу!', mbCriticalError, MB_OK);
  Result:=False;
end else begin
  if (GetSHA1OFFile(FileName) = Lowercase('{#NeedSHA}')) then Result:=MsgBox('Программа уже Установлена' #13#13 'Продолжить Установить?', mbInformation, MB_YESNO) = IDYES
  else Result:=MsgBox('Программы не совпадают!', mbCriticalError, MB_OK) <> IDOK; // если надо чтоб программа запускалось при не соответствии, сменить знак на "="
 end;
end;

Последний раз редактировалось Nemko, 11-01-2020 в 15:39. Причина: Ошибка со спойлером


Отправлено: 15:37, 11-01-2020 | #436