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;