[Habetdin]

MrLOLs, пример:

Код:

procedure CurPageChanged(CurPageID: Integer);
var
  Version: TWindowsVersion;
begin
  if CurPageID = wpWelcome then
    begin
      GetWindowsVersionEx(Version);
      if (Version.Major = 6) and (Version.Minor = 1) then
        begin
          MsgBox('Привет, пользователь Windows 7 / Windows Server 2008 R2!', mbInformation, mb_Ok);
        end;
    end;
end;