導航:首頁 > 版本升級 > delphi操作系統版本

delphi操作系統版本

發布時間:2024-04-02 15:20:11

1. 在Delphi中如何獲得操作系統版本

unitUnit1;

interface

uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,StdCtrls;

type
TForm1=class(TForm)
Button1:TButton;
Memo1:TMemo;
procereButton1Click(Sender:TObject);
private
{Privatedeclarations}
public
{Publicdeclarations}
end;

var
Form1:TForm1;

implementation

usesfmxutils;

{$R*.dfm}

procereTForm1.Button1Click(Sender:TObject);
begin
executefile('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;
var
Info:OSVERSIONINFO;
begin
FillChar(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?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45

function GetWindowsVersionString: AnsiString;
var
ver: _OSVERSIONINFOA;
begin
if GetVersionExA(ver) then
with ver do
Result := Trim(
Format(
'%d.%d build %d %s',
[dwMajorVersion, dwMinorVersion, dwBuildNumber, szCSDVersion]))
else
Result := '';
end;

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 if Win32Platform = VER_PLATFORM_WIN32_WINDOWS then
begin
if 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'
end
else if Win32Platform = VER_PLATFORM_WIN32_NT then
begin
if 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;
end
else Result := os + '??';

Result := Result + ' ' + GetWindowsVersionString;
end;

閱讀全文

與delphi操作系統版本相關的資料

熱點內容
蘋果有些qq文件打不開 瀏覽:139
微信分身圖片緩存在哪個文件 瀏覽:544
眾籌用什麼網站 瀏覽:1
天馬座的幻想版本 瀏覽:536
微雲保存文件圖片沒有了 瀏覽:236
如何把excel表格圖片導出到文件夾 瀏覽:387
qq三國快速升級攻略 瀏覽:660
js監聽手機home事件 瀏覽:439
第2章linux的桌面管理副本 瀏覽:452
qq郵箱手機上登錄微信賬號密碼錯誤 瀏覽:627
編程如何讓人物重復發射子彈 瀏覽:853
db2查看錶空間文件 瀏覽:607
ps文件界面設置 瀏覽:779
c語言12位的數據應該怎麼存儲 瀏覽:953
將ape導入iphone 瀏覽:107
js組合快捷鍵 瀏覽:174
linux系統盤默認掛在的文件夾 瀏覽:667
淘寶數據包如何操作上架 瀏覽:567
vb編程中輸入cls是什麼意思 瀏覽:81
linuxtime服務 瀏覽:184

友情鏈接