Search results for 'OS Version Information'. 1 post(s) found.
- 2007/08/25 How To Get The Windows OS Version
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