Monitor Seriennummer auslesen

[Nothine]

Delphi-Quellcode:

function _5BitsToChr(Vendor: Word): Char;
asm
  AND EAX,$1F
  ADD EAX,$41
end;

function GetVendorString(VendorID: Word): string;
begin
  SetLength(Result,3);
  Result := _5BitsToChr(VendorID shr $A) + //bits 14-10
            _5BitsToChr(VendorID shr $5) + //bits  9- 5
            _5BitsToChr(VendorID);         //bits  4- 0
end;

@andy65: für die von dir angegebenen 183 kommt allerdings 'AFX' raus