Delphi判断当前系统版本-百分百源码网

Delphi判断当前系统版本

发布时间：01/14 来源：浏览：关键词：

下面来看一个简单的Delphi判断当前系统版本的程序，希望此程序地各位同学会带来帮助。

代码如下

function GetWinVer: string;
var lpver:_OSVERSIONINFO;
begin
    //###########获取Win系统版本################
    lpver.dwOSVersionInfoSize:=SizeOf(_OSVERSIONINFO);
    //###########必须要分配内存#################
   if GetVersionExA(lpver) then
   begin
     case lpver.dwPlatformId of
        0:
        Result:='Windows 32s';
        1:begin
          case lpver.dwMinorVersion of
             0:
             Result:='Windows 95';
             10:
             Result:='Windows 98';
             90:
             Result:='Windows Me';
          end;
        end;
        2:begin
          case lpver.dwMajorVersion of
              3:
              Result:='WindowsNT 3.51';
              4:
              Result:='WindowsNT 4.0';
              5:begin
                case lpver.dwMinorVersion of
                    0:
                    Result:='Windows 2000';
                    1:
                    Result:='Windows XP';
                    2:
                    Result:='Windows 2003';
                end;
              end;
              6:begin
                case lpver.dwMinorVersion of
                    0:
                    Result:='Windows Vista';
                    1:
                    Result:='Windows 7';
                    2:
                    Result:='Windows 8';
                end;
              end;
          end;
        end;
        else
        Result:='Not Windows';
     end;
   end;
end;

打赏