🚀 go-pugleaf

Found this on <http://jpc.pair.com/Codex/article/psne.html> might be of some
use. It's Delphi, so replace label1.caption with a string variable.

var HasID:boolean;
    lowb,midb,hib,flags:integer;
begin
 asm
   push ebx
   mov eax,1
   DB $0F,$A2
   mov hib,eax
   mov flags,edx
   pop ebx
 end;
HasID:=((flags AND (1 shl 18))>0);
if HasID then
  begin
    asm
      push ebx
      mov eax,3
      DB $0F,$A2
      mov midb,edx
      mov lowb,ecx
      pop ebx
    end;
    label1.caption:='Num�ro de s�rie : ' +
                    IntToHex(hib,8)+IntToHex(midb,8)+IntToHex(lowb,8);
  end
else
  label1.caption:='Pas de num�ro de s�rie.';
end;

Robert
--
Robert AH Prins
prinsra@williscorroon.com

-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/       Search, Read, Discuss, or Start Your Own