Скачать: CL | DM;

Как определить версию Windows ?   Найти похожие ветки 

← →
Leonid   (2005-04-25 14:40) [0]

Т.е. 95,98, 2000 и т.д.

---

← →
Алхимик ©   (2005-04-25 14:49) [1]

Запустить консоль, набрать "ver"

---

← →
Marser ©   (2005-04-25 14:51) [2]

Используйте GetVersionEx

---

← →
Jay1982 ©   (2005-04-25 15:06) [3]


uses VCLUtils;

GetWindowsVersion


---

← →
Юрий Зотов ©   (2005-04-25 15:09) [4]

А можно и ничего не использовать, все уже есть в SysUtils, просто берем готовое: Win32Platform, Win32MajorVersion, Win32MinorVersion, Win32BuildNumber, Win32CSDVersion.

---

← →
Marser ©   (2005-04-25 18:19) [5]

> Юрий Зотов ©   (25.04.05 15:09) [4]

В вопросе не указана среда разработки. А если это не Делфи?

---

← →
Суслик ©   (2005-04-25 18:24) [6]

а если это java?

---

← →
mgcr ©   (2005-04-25 18:33) [7]

> В вопросе не указана среда разработки. А если это не Делфи?


"Ты, когда в Шереметьево прилетел, красный флаг видел ? Так вот, его действие распространяется на всю территорию"
(с) известный анекдот.

Я к тому, что сайт называется "Мастера Delphi", что по умолчанию определяет среду разработки.

---

← →
Marser ©   (2005-04-25 18:37) [8]

> mgcr ©   (25.04.05 18:33) [7]

Есть ещё FreePascal :-)
А раздел всё равно Win API.

---

← →
Юрий Зотов ©   (2005-04-25 18:54) [9]

> Marser ©   (25.04.05 18:19) [5]

А если это не Делфи, то ее надо выбросить и перейти на Delphi. Это же очевидно.

---

← →
LineSoft ©   (2005-04-26 13:35) [10]

type TOSVersion = (osUnknown, osUnknown9x, osUnknownNT, osWin95, osWin98,osWin98SE, osWinME, osWinNT, osWin2000, osXP);

function GetOSVersion : TOSVersion;
var
 osVerInfo : TOSVersionInfo;
 majorVer, minorVer : Integer;
begin
result := OsUnknown;
osVerInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
if GetVersionEx(osVerInfo) then
  begin
    majorVer := osVerInfo.dwMajorVersion;
    minorVer := osVerInfo.dwMinorVersion;
    case osVerInfo.dwPlatformId of
      VER_PLATFORM_WIN32_NT :
        Case majorVer of
          4:result := OsWinNT;
          5: if minorVer=0 then result := OsWin2000
             else if minorVer=1 then result := OsXP else result := osUnknownNT;
          else result := osUnknownNT;
        end; {Case majorVer of}
      VER_PLATFORM_WIN32_WINDOWS :
        case majorVer of
          4: Case minorVer of
               0:result := OsWin95;
               10: if osVerInfo.szCSDVersion[1] = "A" then result := OsWin98SE else result := OsWin98;
               90: result := OsWinME;
               else result := osUnknown9x;
             end;{Case minorVer of}
          else result := osUnknown9x;
        end;{case majorVer of}
      else result := OsUnknown;
    end;{case osVerInfo.dwPlatformId of}
  end;{if GetVersionEx(osVerInfo) then}
end;

Подарок. Нашел где-то в сети.

---

← →
Юрий Зотов ©   (2005-04-26 17:35) [11]

> LineSoft ©   (26.04.05 13:35) [10]

Велосипед - подарок хороший, что и говорить.

---

← →
mgcr ©   (2005-04-26 17:37) [12]

> Велосипед - подарок хороший, что и говорить


Причем, с третьим квадратным колесом в виде локальных переменных.

---

← →
LineSoft ©   (2005-04-26 18:18) [13]

Можете сами пописать, если более нечем заниматься.
Если не задавать вопросов сразу, можно найти практически все. (Цитирую Яндекс - их любимый слоган)
С уважением к значкам.

---

← →
Юрий Зотов ©   (2005-04-27 09:50) [14]

> LineSoft ©   (26.04.05 18:18) [13]
> Можете сами пописать, если более нечем заниматься.

Вот именно. [4] читали?

---

← →
Anatoly Podgoretsky ©   (2005-04-27 09:55) [15]

Marser ©   (25.04.05 18:19) [5]
Тогда это офтопик

---

← →
Anatoly Podgoretsky ©   (2005-04-27 09:57) [16]

Marser ©   (25.04.05 18:37) [8]
Есть ещё FreePascal :-)
А раздел всё равно Win API.

Первое офтопик здесь, а второе ЮЗ доказал, что нет.

---

← →
LineSoft ©   (2005-04-29 14:33) [17]

>Юрий Зотов ©   (27.04.05 09:50) [14]
А разве плохо пример посмотреть?

---

← →
Marser ©   (2005-04-30 01:47) [18]

> Первое офтопик здесь, а второе ЮЗ доказал, что нет.

А я доказал, что да :-P (getversionex)
Вот оригинал из SysUtils:
procedure InitPlatformId;
var
 OSVersionInfo: TOSVersionInfo;
begin
 OSVersionInfo.dwOSVersionInfoSize := SizeOf(OSVersionInfo);
 if GetVersionEx(OSVersionInfo) then
   with OSVersionInfo do
   begin
     Win32Platform := dwPlatformId;
     Win32MajorVersion := dwMajorVersion;
     Win32MinorVersion := dwMinorVersion;
     Win32BuildNumber := dwBuildNumber;
     Win32CSDVersion := szCSDVersion;
   end;
end;


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.49 MB
Время: 0.025 c