🚀 go-pugleaf

In article <7cbqeu$t79$1@nnrp1.dejanews.com>,
  Robert AH Prins <prinsra@williscorroon.com> wrote:
> 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;

Excusez moi, you also have to use the db $66 prefix to access the 32-bit
registers.
--
Robert AH Prins
prinsra@williscorroon.com

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