Windows7 или XP

[mihaker]

Как узнать из Delphi какая ОС стоит.

[elagin]

function CheckWindowsSeven: Integer;
var
  osVerInfo: TOSVersionInfo;
begin
  osVerInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
  if GetVersionEx(osVerInfo) then
  begin
    with osVerInfo do
    begin
      if (dwMajorVersion = 6) and (dwMinorVersion = 1) and
        (dwBuildNumber >= 7600) then
        Result := 1
      else
        Result := 0;
    end;
  end
  else
    Result := -1
end;

Использование:

procedure TForm1.Button1Click(Sender: TObject);
begin
  case CheckWindowsSeven of
    - 1:
      Application.MessageBox('Не удалось определить версию Windows', '');
    0:
      Application.MessageBox('Windows Vista или ниже', '');
    1:
      Application.MessageBox('Windows 7 или Windows Server 2008 R2', '');
  end;
end;

[QunneD]

Неоднократно обсуждалось.

var
  Os : OSVERSIONINFOA;
begin
  Os.dwOSVersionInfoSize := sizeof(Os);
  GetVersionEx(Os);
  if ((Os.dwMajorVersion = 6) and (Os.dwMinorVersion = 1)) then
  MessageBox(0, 'Windows 7', '', 0)
  else if ((Os.dwMajorVersion = 5) and (Os.dwMinorVersion = 1)) or ((Os.dwMajorVersion = 5) and (Os.dwMinorVersion = 2)) then
  begin
    if not (GetSystemMetrics(89) = 0) then // SM_SERVERR2
    begin
      MessageBox(0, 'Windows 2003', '', 0);
    end
    else
    begin
      MessageBox(0, 'Windows XP', '', 0);
    end;
  end;
end;

[mihaker]

Спасибо большое