获取操作系统类型

添加自定义类型，用作判断系统类型，type    TOSVersion = (osUnknown, os95, os98, osME, osNT3, osNT4, os2K, osXP, os2K3);

添加自定义函数过程

function GetOS: TOSVersion; //获得系统类型，用来取得托盘句柄var    OS: TOSVersionInfo;begin    ZeroMemory(@OS, SizeOf(OS));    OS.dwOSVersionInfoSize := SizeOf(OS);    GetVersionEx(OS);    Result := osUnknown;    if OS.dwPlatformId = VER_PLATFORM_WIN32_NT then begin        case OS.dwMajorVersion of            3: Result := osNT3;            4: Result := osNT4;            5: begin                    case OS.dwMinorVersion of                        0: Result := os2K;                        1: Result := osXP;                        2: Result := os2K3;                    end;                end;        end;    end    else if (OS.dwMajorVersion = 4) and (OS.dwMinorVersion = 0) then        Result := os95    else if (OS.dwMajorVersion = 4) and (OS.dwMinorVersion = 10) then        Result := os98    else if (OS.dwMajorVersion = 4) and (OS.dwMinorVersion = 90) then        Result := osMEend;