C++GetVersionEx-获取系统版本详细信息；C++MessageBeep-播放一个系统声音
一、//声明:
GetVersionEx(
var lpVersionInformation: TOSVersionInfo {参数是一个结构}
): BOOL;
//结构 TOSVersionInfo 是 _OSVERSIONINFOA 的重命名
_OSVERSIONINFOA = record
dwOSVersionInfoSize: DWORD; {结构大小}
dwMajorVersion: DWORD; {主编号}
dwMinorVersion: DWORD; {次编号}
dwBuildNumber: DWORD; {建立编号}
dwPlatformId: DWORD; {作业平台}
szCSDVersion: array[0..127] of AnsiChar; {更多说明}
end;
{另外参数4(作业平台)可能的取值是:
VER_PLATFORM_WIN32s = 0;
VER_PLATFORM_WIN32_WINDOWS = 1;
VER_PLATFORM_WIN32_NT = 2;
VER_PLATFORM_WIN32_CE = 3;
我没装 Vista.
}
//举例:
var
OsInfo: TOSVersionInfo;
const
s = '主编号: %d' + sLineBreak +
'次编号: %d' + sLineBreak +
'建立编号: %d' + sLineBreak +
'作业平台: %d' + sLineBreak +
'更多说明: %s';
begin
OsInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo); {先根据大小要内存}
GetVersionEx(OsInfo);
ShowMessage(Format(s, [OsInfo.dwMajorVersion,
OsInfo.dwMinorVersion,
OsInfo.dwBuildNumber,
OsInfo.dwPlatformId,
OsInfo.szCSDVersion]));
end;
//效果图:
二、C++MessageBeep-播放一个系统声音
//声明:
MessageBeep(
uType: UINT {参数是个常数; 根据不同的常数发出不同的声音, 也就是调用了不同的 wav}
): BOOL;
//参数 uType 可选值:
MB_OK = 0;
MB_ICONHAND = 16;
MB_ICONQUESTION = 32;
MB_ICONEXCLAMATION = 48;
MB_ICONASTERISK = 64;
//举例, 下面代码会发出错误警告
begin
MessageBeep(16);
end;
//另外 Delphi 的 Beep 方法在 SysUtils 单元是这样实现的:
procedure Beep;
begin
MessageBeep(0);
end;
3COME考试频道为您精心整理，希望对您有所帮助，更多信息在http://www.reader8.com/exam/
