+IntToStr(OSVI.dwMinorVersion)+',' +IntToStr(OSVI.dwBuildNumber)+',' +IntToStr(OSVI.dwPlatformId)+',' +OSVI.szCSDVersion; end; end. 2、获取CPU信息 可以通过Windows API函数GetSystemInfo来获得有关信息。 具体程序如下: procedure TForm1.Button1Click(Sender: TObject); Var SysInfo:SYSTEM_...
//取windows系统版本信息 function GetWindowsSystemVersion: Twinver;var info: TOSVersionInfoEx; sysInfo: Tsysteminfo;begin Result := WinNone; windows.GetSystemInfo(sysInfo); //系统信息 try if (GetOSVersionInfo(info) = false) then exit; case info.dwMajorVersion of //主版本 4: begin case info....
1、获取windows版本信息 可以通过Windows API函数GetVersionEx来获得。 具体程序如下: Procedure Tform1.Button1Click(sender:TObject); Var OSVI:OSVERSIONINFO; begin OSVI.dwOSversioninfoSize:=Sizeof(OSVERSIONINFO); GetVersionEx(OSVI); label1.Caption:=IntToStr(OSVI.dwMinorVersion)+',' +IntToStr(OSVI....
function TMainFrm.GetWindowsVersion : String; var AWin32Version : Extended; OS: string; begin OS:= 'Windows '; AWin32Version := StrToFloat(Format('%d.%d',[Win32MajorVersion, Win32MinorVersion])); if Win32Platform = VER_PLATFORM_WIN32s then Result := OS + '32' else if Win32Platform...
function GetWindowsVersion: String; //读取操作系统版本 var AWin32Version: Extended; os:string; begin os:='Windows '; AWin32Version := StrtoFloat(format('%d.%d' ,[Win32MajorVersion, Win32MinorVersion])); if Win32Platform=VER_PLATFORM_WIN32s then ...
function GetSystemStr: WideString; //读取操作系统版本 var AWin32Version: Extended;begin AWin32Version := StrtoFloat(format('%d.%d' ,[Win32MajorVersion, Win32MinorVersion]));if Win32Platform=VER_PLATFORM_WIN32s then Result := 'Windows 32'else if Win32Platform=VER_PLATFORM_WIN32_...
servVersion:integer;beginresult:=true; servVersion:=getLastVersionFromServer;//从服务端获取版本信息 if servVersion>currentVersionthenresult:=false;end; AI代码助手复制代码 这样就实现了程序的自动更新。 终于不用再跑到用户端一个一个的拷贝文件了。可以闲下来喝口可乐了。
它在Delphi2007、XE2和XE3上编译,并在WinXP专业版(SP2和SP3)、Windows7Pro64位和Windows Server2003/...
minor := uint8(v >> 8) build := uint16(v >> 16) print("windows version ", m...
function GetWindowsVersion: String; // 读取操作系统版本 var AWin32Version: Extended;os: string;begin os := 'Windows ';AWin32Version := StrtoFloat(Format('%d.%d', [Win32MajorVersion, Win32MinorVersion]));if Win32Platform = VER_PLATFORM_WIN32S then Result := os + '32'else ...