delphi判断当前系统时间|Delphi判断当前系统版本

更新时间:2019-05-18    来源:Delphi    手机版     字体:

【www.bbyears.com--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;

本文来源:http://www.bbyears.com/wangyezhizuo/51663.html