Monitor Seriennummer auslesen

[scp]

Kram aus....
Die Bytes müssen vorher verdreht werden, dann haut es hin.

Delphi-Quellcode:

function VendorLetters(vid : word) : String;
begin
  vid := ((vid and $00FF) shl 8) +
         ((vid and $FF00) shr 8);

  result := Chr(((vid and $7C00) shr 10) + $40) +
            Chr(((vid and $03E0) shr  5) + $40) +
            Chr(((vid and $001F)       ) + $40);
end;