[Mailchik]

Crazy Noise,

читать дальше »

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Code]
function InitializeSetup(): Boolean;
var
 NetFrameWorkInstalled, MyResult: Boolean;
 MyValueData, MyValueData2: Cardinal;
 begin
  if RegQueryDWordValue(HKLM, 'SOFTWARE\Adobe\Adobe ARM\1.0\ARM', 'iCheckReader', MyValueData)
      and RegQueryDWordValue(HKLM, 'SOFTWARE\Adobe\Acrobat Reader\11.0\Installer\Optimization', 'iCheckReader', MyValueData2) then
   NetFrameWorkInstalled := (MyValueData = $00000000) xor (MyValueData2 = $00000001);

  if NetFrameWorkInstalled then
   Result := True else
   MyResult := MsgBox('Найден ключ ' + FloatToStr(MyValueData)
     + ' & ' + FloatToStr(MyValueData2), mbConfirmation, MB_OK) = idOk;
end;