delphi操作系统版本|DELPHI哪个版本最好用

|

1. 在Delphi中如何获得操作系统版本

unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)Button1:TButton;Memo1:TMemo;procereButton1Click(Sender:TObject);private{Privatedeclarations}public{Publicdeclarations}end;varForm1:TForm1;implementationusesfmxutils;{$R*.dfm}procereTForm1.Button1Click(Sender:TObject);beginexecutefile('cmd','/cver>osver.txt','',0);memo1.Lines.LoadFromFile('osver.txt');end;end.

2. DELPHI哪个版本最好用

D7有什么好用的?!用D2010最方便,以前很多需要第三方控件完成的功能,现在用自带控件就能版完成了。如果权你经常使用泛型,暂时不要用D2010,D2010的泛型实现有严重Bug。你可以使用D2009。D2009以后的Delphi都是完全Unicode化的,如果你不想处理和以前的非Unicode程序的兼容问题,你可以使用D2007。你没钱,还要用正版的话,可以使用Turbo Delphi。我说的这些版本对新版OS的兼容性都很好。

3. delphi6 判断是否为win7操作系统问题

functionGetWindowsVersion:string;varInfo:OSVERSIONINFO;beginFillChar(Info,sizeof(Info),0);Info.dwOSVersionInfoSize:=sizeof(OSVERSIONINFO);GetVersionEx(Info);end;//完全没问题,我的是win8,取的版本号是6.2.9200

4. delphiXE如何判断操作系统是win7还是winXP

delphiXE如何判断操作系统是win7还是winXP?delphi7的代码在XE上无效,没有那些函数,有哪位大大知道如何准确判断吗?不知道xe有没有这方面的函数Msdn查一下GetVersionEx这个函数,看下Getting the System Version 这个例子我在偶的Vs2010的msdn里搜索到的D7上的可以话, 可以写在DLL, 然后调用通过返回值来判断.XE比d7不是强一点半点,难道没有直接获取系统版本的函数?或更方便的方法?以下代码 XE + XP下正确, WIN 7没有条件测试Delphi/Pascal code?123456789101112131415161718192021222324252627282930313233343536373839404142434445function GetWindowsVersionString: AnsiString;varver: _OSVERSIONINFOA;beginif GetVersionExA(ver) thenwith ver doResult := Trim(Format('%d.%d build %d %s',[dwMajorVersion, dwMinorVersion, dwBuildNumber, szCSDVersion]))elseResult := '';end;function GetWindowsVersion: String; // 读取操作系统版本varAWin32Version: Extended;os: string;beginos := 'Windows ';AWin32Version := StrtoFloat(Format('%d.%d', [Win32MajorVersion, Win32MinorVersion]));if Win32Platform = VER_PLATFORM_WIN32S thenResult := os + '32'else if Win32Platform = VER_PLATFORM_WIN32_WINDOWS thenbeginif AWin32Version = 4.0 then Result := os + '95'else if AWin32Version = 4.1 then Result := os + '98'else if AWin32Version = 4.9 then Result := os + 'Me'else Result := os + '9x'endelse if Win32Platform = VER_PLATFORM_WIN32_NT thenbeginif AWin32Version = 3.51 then Result := os + 'NT 3.51'else if AWin32Version = 4.0 then Result := os + 'NT 4.0'else if AWin32Version = 5.0 then Result := os + '2000'else if AWin32Version = 5.1 then Result := os + 'XP'else if AWin32Version = 5.2 then Result := os + '2003'else if AWin32Version = 6.0 then Result := os + 'Vista'else if AWin32Version = 6.1 then Result := os + '7'else Result := os;endelse Result := os + '??';Result := Result + ' ' + GetWindowsVersionString;end;


赞 (0)