Search results for 'TOSVERSIONINFO'. 2 post(s) found.
- 2007/09/20 How to Get Windows OS Version ?
- 2007/08/25 How To Get The Windows OS Version
Here's how to get the Windows version from Delphi code:
type TWinVersion = (wvUnknown, wvWin95, wvWin98, wvWin98SE, wvWinNT, wvWinME, wvWin2000, wvWinXP, wvWinVista) ;
...
function GetWinVersion: TWinVersion;
var
osVerInfo: TOSVERSIONINFO;
majorVersion, minorVersion: Integer;
begin
Result := wvUnknown;
osVerInfo.dwOSVersionInfoSize := SizeOf(TOSVERSIONINFO) ;
if GetVersionEx(osVerInfo) then
begin
minorVersion := osVerInfo.dwMinorVersion;
majorVersion := osVerInfo.dwMajorVersion;
case osVerInfo.dwPlatformId of
VER_PLATFORM_WIN32_NT:
begin
if majorVersion <= 4 then
Result := wvWinNT
else if (majorVersion = 5) and (minorVersion = 0) then
Result := wvWin2000
else if (majorVersion = 5) and (minorVersion = 1) then
Result := wvWinXP
else if (majorVersion = 6) then
Result := wvWinVista;
end;
VER_PLATFORM_WIN32_WINDOWS:
begin
if (majorVersion = 4) and (minorVersion = 0) then
Result := wvWin95
else if (majorVersion = 4) and (minorVersion = 10) then
begin
if osVerInfo.szCSDVersion[1] = 'A' then
Result := wvWin98SE
else
Result := wvWin98;
end
else if (majorVersion = 4) and (minorVersion = 90) then
Result := wvWinME
else
Result := wvUnknown;
end;
end;
end;
end;
...
function GetWinVersion: TWinVersion;
var
osVerInfo: TOSVERSIONINFO;
majorVersion, minorVersion: Integer;
begin
Result := wvUnknown;
osVerInfo.dwOSVersionInfoSize := SizeOf(TOSVERSIONINFO) ;
if GetVersionEx(osVerInfo) then
begin
minorVersion := osVerInfo.dwMinorVersion;
majorVersion := osVerInfo.dwMajorVersion;
case osVerInfo.dwPlatformId of
VER_PLATFORM_WIN32_NT:
begin
if majorVersion <= 4 then
Result := wvWinNT
else if (majorVersion = 5) and (minorVersion = 0) then
Result := wvWin2000
else if (majorVersion = 5) and (minorVersion = 1) then
Result := wvWinXP
else if (majorVersion = 6) then
Result := wvWinVista;
end;
VER_PLATFORM_WIN32_WINDOWS:
begin
if (majorVersion = 4) and (minorVersion = 0) then
Result := wvWin95
else if (majorVersion = 4) and (minorVersion = 10) then
begin
if osVerInfo.szCSDVersion[1] = 'A' then
Result := wvWin98SE
else
Result := wvWin98;
end
else if (majorVersion = 4) and (minorVersion = 90) then
Result := wvWinME
else
Result := wvUnknown;
end;
end;
end;
end;
Another posts included in "Delphi"
| How to Get Filenames from Clipboard ? (0) | 2007/09/20 |
| Get system info (free memory, etc) (0) | 2007/09/20 |
| Get dimensions of usable space on monitor (work area) (0) | 2007/09/20 |
| Get Windows Temp directory (0) | 2007/09/20 |
| Disable ALT+TAB, CTRL+ESC, CTRL+ALT+DEL (0) | 2007/09/19 |
| Display Standard Windows Properties dialog (0) | 2007/09/19 |
| Disable Mouse and Keyboard from Delphi Code (0) | 2007/09/19 |
| Detecting Drive Types (0) | 2007/09/19 |
dwOSVersionInfoSize,
Get Windows OS Version,
GetWinVersion,
TOSVERSIONINFO,
Windows API,
WIndows OS Detection
Trackback : Cannot send a trackbact to this post.
-
Subject different money making ideas
2010/01/29 01:34
moneyideas
-
Subject different money making ideas
2010/01/29 09:42
moneyideas
-
Subject different money making ideas
2010/01/31 16:40
moneyideas
Identify the Windows version of your system
function GetWindowsVersion : string;
var
OsVinfo : TOSVERSIONINFO;
HelpStr : array[0..50] of char;
begin
ZeroMemory(@OsVinfo,sizeOf(OsVinfo));
OsVinfo.dwOSVersionInfoSize := sizeof(TOSVERSIONINFO);
if GetVersionEx(OsVinfo) then
begin
if OsVinfo.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS then
begin
if (OsVinfo.dwMajorVersion = 4) and
(OsVinfo.dwMinorVersion > 0) then
StrFmt(HelpStr, 'Windows 98 - Version %d.%.2d.%d',
[OsVinfo.dwMajorVersion, OsVinfo.dwMinorVersion,
OsVinfo.dwBuildNumber and $FFFF])
else
StrFmt(HelpStr, 'Windows 95 - Version %d.%d Build %d',
[OsVinfo.dwMajorVersion, OsVinfo.dwMinorVersion,
OsVinfo.dwBuildNumber and $FFFF]);
end;
if OsVinfo.dwPlatformId = VER_PLATFORM_WIN32_NT then
StrFmt(HelpStr, 'Microsoft Windows NT Version %d.%.2d.%d',
[OsVinfo.dwMajorVersion, OsVinfo.dwMinorVersion,
OsVinfo.dwBuildNumber and $FFFF]);
end
else
StrCopy(HelpStr, 'GetVersionEx() Error');
Result := string(HelpStr);
end;
var
OsVinfo : TOSVERSIONINFO;
HelpStr : array[0..50] of char;
begin
ZeroMemory(@OsVinfo,sizeOf(OsVinfo));
OsVinfo.dwOSVersionInfoSize := sizeof(TOSVERSIONINFO);
if GetVersionEx(OsVinfo) then
begin
if OsVinfo.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS then
begin
if (OsVinfo.dwMajorVersion = 4) and
(OsVinfo.dwMinorVersion > 0) then
StrFmt(HelpStr, 'Windows 98 - Version %d.%.2d.%d',
[OsVinfo.dwMajorVersion, OsVinfo.dwMinorVersion,
OsVinfo.dwBuildNumber and $FFFF])
else
StrFmt(HelpStr, 'Windows 95 - Version %d.%d Build %d',
[OsVinfo.dwMajorVersion, OsVinfo.dwMinorVersion,
OsVinfo.dwBuildNumber and $FFFF]);
end;
if OsVinfo.dwPlatformId = VER_PLATFORM_WIN32_NT then
StrFmt(HelpStr, 'Microsoft Windows NT Version %d.%.2d.%d',
[OsVinfo.dwMajorVersion, OsVinfo.dwMinorVersion,
OsVinfo.dwBuildNumber and $FFFF]);
end
else
StrCopy(HelpStr, 'GetVersionEx() Error');
Result := string(HelpStr);
end;
Another posts included in "Delphi"
| How To Change The System Time (0) | 2007/08/25 |
| How To Find Out Total And Available Memory (0) | 2007/08/25 |
| How To Get Windows Uptime (0) | 2007/08/25 |
| How To Change The Desktop Wallpaper (0) | 2007/08/25 |
| How To Get The Windows Language (0) | 2007/08/25 |
| How To Make A Gradient Filled Form (0) | 2007/08/25 |
| How can I hide the caption bar on a form? (0) | 2007/08/25 |
| How To Send An E-mail By Code (0) | 2007/08/25 |
Trackback : Cannot send a trackbact to this post.
-
Subject different money making ideas
2010/01/29 11:03
moneyideas
-
Subject different money making ideas
2010/01/31 16:40
moneyideas
Prev
Rss Feed