OdesitVadim
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Вот процедурка, которой сам пользуюсь
Код:
procedure GetOSInfo;
var
Platform: string;
BuildNumber: Integer;
begin
case Win32Platform of
VER_PLATFORM_WIN32_WINDOWS:
begin
Platform := 'Windows 95';
BuildNumber := Win32BuildNumber and $0000FFFF;
end;
VER_PLATFORM_WIN32_NT:
begin
Platform := 'Windows NT';
BuildNumber := Win32BuildNumber;
end;
else
begin
Platform := 'Windows';
BuildNumber := 0;
end;
end;
if
(Win32Platform=VER_PLATFORM_WIN32_WINDOWS)or(Win32Platform=VER_PLATFORM_WIN32_NT) then
begin
if Win32CSDVersion='' then
OS.Caption := Format('%s %d.%d (Build %d)', [Platform, Win32MajorVersion,
Win32MinorVersion, BuildNumber])
else
OS.Caption := Format('%s %d.%d (Build %d: %s)', [Platform,
Win32MajorVersion, Win32MinorVersion, BuildNumber, Win32CSDVersion]);
end
else
OS.Caption := Format('%s %d.%d', [Platform, Win32MajorVersion,
Win32MinorVersion])
end;
|
Данная процедура возвращает также версию. Если версия NT5.0 - это 2000, NT5.1 - XP. для 2003 неэксперементировал.
з.ы. OS - это Label, остальное - догадаешся
----------
Press any key to continue or any other key to exit
Пишите так, чтобы не было стыдно за нобелевскую премию. |
|
