[serg aka lain]

Как сделать проверку чтобы на Висте условие удовлетворялось бы? »

А если так?

Код:

[Setup]
AppName=My Program
AppVerName=My Program version
DefaultDirName={pf}\My Program
OutputDir=userdocs:My Program.

[code]
function InitializeSetup: Boolean;
var
  Version: TWindowsVersion;
  S: String;
begin
  GetWindowsVersionEx(Version);
  S := 'Ваша операционная система не является Windows Vista.'
         + #13#13 'Продолжение невозможно!';

  if Version.NTPlatform and (Version.Major = 6) and (Version.Minor = 0) then
     Result := True
  else
   begin
     SuppressibleMsgBox(S, mbCriticalError, MB_OK, MB_OK);
     Exit;
   end;

  if (UsingWinNT = False) then
  begin
    SuppressibleMsgBox(S, mbCriticalError, MB_OK, MB_OK);
    Exit;
  end;

  Result := True;
end;