iglezz,
code
function InitializeSetup(): Boolean;
var
FileName: String;
SHA1: String;
begin
// Берём файл в целевом каталоге:
FileName := ExpandConstant('{reg:HKLM\SOFTWARE\Code,PATH_APPLICATION}') +'\Test.exe';
// Здесь пропущена проверка на FileExists
// Считаем его хеш:
SHA1 := GetSHA1OfFile(FileName);
// Делаем сверку:
if SHA1 = '{#MySHA1}' then
MsgBox('Программа уже Установлена.' #13#13 'Установить все равно!', mbInformation, MB_YesNo)
else
Result := False
end;
Пример работает, но програма не устанавливается, а нужно чтоб она уставливалась всегда без сообщений, а когда хеш равны выводилось смс (ДА\НЕТ), и только если пользователь нажмет (НЕТ) тогда прекратить установку. Извини что я так бузю, хочу понять как оно работает, но самому никак, нужна муза, а ты для меня как учитель (Спасибо)...
