最近写控件，因为想加入版本信息，而通常大多数情况下，几乎所有的公司或个人都会在自己软件的版本信息里提及Windows与内存信息。
  参考MSDN的范例，我把它写成个函数了。由于Delphi6不提供OSVERSIONINFOEX结构（我没用过delphi7,8,2005等，不知道是否开始提供这个结构了），所以只好自己定义一个。为了不会受到有的版本里已经提供这个结构的影响，也不影响别的什么地方，直接把它定义到函数内部了。

 

函数：（2000，XP下测试通过，有其它版本的兄弟可以测试一下，有问题，发消息给我）

function GetVersionInfo(var SProduct, SVersion, SServicePack :String):BOOL;
type
  _OSVERSIONINFOEXA = record
    dwOSVersionInfoSize: DWORD;
    dwMajorVersion: DWORD;
    dwMinorVersion: DWORD;
    dwBuildNumber: DWORD;
    dwPlatformId: DWORD;
    szCSDVersion: array[0..127] of AnsiChar;
    wServicePackMajor: WORD;
    wServicePackMinor: WORD;
    wSuiteMask: Word;