本文整理自网络,侵删。
程序代码
function sidt1[color=#0000ff]: boolean;
var
idtr: array[0..005] of Byte;
begin
result := false;
asm
sidt idtr
end;
if pCardinal(@idtr[2])^ = $8003F400 //NT Address
then result := true;
begin
asm sidt idtr end;
if pCardinal(@idtr[2])^ = $80036400 //XP Address
then result := true;
begin
asm sidt idtr end;
if pCardinal(@idtr[2])^ = $81AFF400 //Vista Address
then result := true;
begin
asm sidt idtr end;
if pCardinal(@idtr[2])^ = $884D2960 //Vista Address Thanks Spider
then result := true;
begin
asm sidt idtr end;
if pCardinal(@idtr[2])^ = $0341A070 //Vista 64bit or intel dual core
then result := true;
begin
asm sidt idtr end;
if pCardinal(@idtr[2])^ = $005F62F0 //Vista 64bit or intel dual core
then result := true;
begin
asm sidt idtr end;
if pCardinal(@idtr[2])^ = $F771B590 //XP Address Thanks ChainCoder
then result := true;
end;
end;
end;
end;
end;
end;
end;
相关阅读 >>
Delphi xe5 中tmemo控件的应用――for android
Delphi idftp 错误:socket error 10054 �c connection reset by peer -连接被重置
Delphi combobox 只读 text属性可用的方法
更多相关阅读请进入《Delphi》频道 >>