[R.i.m.s.k.y.]

insombia,

Код:

[CODE]
var
  Version: TWindowsVersion;

Function InitializeSetup: Boolean;
Begin
  GetWindowsVersionEx (version);
  if (Version.Major=6) then Result := True
  else begin
    MsgBox('Для установки требуется Windows Vista или Se7en', mbInformation, MB_OK);
    Result := False;
  end;
end;