本文整理自网络，侵删。
程序代码
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; 相关阅读 >>
python4Delphi 示例应用程序在 Delphi 应用程序中运行简单的 python 脚本
Delphi 将richedit的内容输出到一个image图像中
更多相关阅读请进入《Delphi》频道 >>
