Delphi 取得IE版本的方法

方法1：讀取登錄檔

function getieversion : string;  //獲得ie的版本號

var reg : tregistry;
begin
reg := tregistry.create;
reg.rootkey := hkey_local_machine;
result := '';
tryif reg.openkey('\software\microsoft\internet explorer', false) then    //在win10下必須管理員身份才能執行
begin
result := reg.readstring('svcversion');
end;
finally
reg.free;
end;
end;

方法2：讀取主要檔案版本

labver.caption := getfileversion('mshtml.dll');  //讀取mshtml.dll檔案的版本號

function   getfileversion(filename : string; mainver : boolean = false):   string;

var    v1,   v2,   v3,   v4:   word;
verinfosize,   dummy,   vervaluesize:   dword;
verinfo:   pointer;
vervalue:   pvsfixedfileinfo;
begin
result   :=   '';
tryverinfosize   :=   getfileversioninfosize(pchar(filename),   dummy);
getmem(verinfo,   verinfosize);
getfileversioninfo(pchar(filename),   0,   verinfosize,   verinfo);
verqueryvalue(verinfo,   '\',   pointer(vervalue),   vervaluesize);
with   vervalue^   do
begin
v1   :=   dwfileversionms   shr   16;
v2   :=   dwfileversionms   and   $ffff;
v3   :=   dwfileversionls   shr   16;
v4   :=   dwfileversionls   and   $ffff;
if mainver then
result := format('%d.%d', [v1, v2])
else
result := format('%d.%d.%d.%d', [v1, v2, v3, v4]);
end;
freemem(verinfo,   verinfosize);
except
result   :=   '';
end;
end;

delphi取得本地ip的方法

indy的 indy misc 下有乙個 tidipwatch 元件，可以正確獲得本地ip，即使有多塊網絡卡，也可以正確獲得真正本地ip。一，引入單元檔案 idipwatch 二，實際 procedure tmainform.localipbtnclick sender tobject varidi...

Delphi中取得程式版本號

delphi做的程式,如果想包含版本資訊,必須在delphi的整合編輯環境的選單 project options version info 裡面新增版本資訊。即在version info 選項卡中選中 include version information in project 項，並在 modul...

Delphi中取得程式版本號

2009 08 03 16 26 00 分類 電腦.測繪 字型大小 訂閱 delphi做的程式,如果想包含版本資訊,必須在delphi的整合編輯環境的選單 project options version info 裡面新增版本資訊。即在version info 選項卡中選中 include vers...