delphi 关于 "高位" 与 "低位"

Longint = Integer
WPARAM  = Integer
LPARAM  = Integer
LRESULT = Integer
FARPROC = Pointer
function MakeWord(a, b: Byte): Word;
function MakeLong(a, b: Word): Longint;
function MakeWParam(l, h: Word): WPARAM;
function MakeLParam(l, h: Word): LPARAM;
function MakeLResult(l, h: Word): LRESULT;
function PointToLParam(P: TPoint): LPARAM;
{ Allocate an object instance }
function MakeObjectInstance(Method: TWndMethod): Pointer;
TWndMethod = procedure(var Message: TMessage) of object;
function MakeProcInstance(Proc: FARPROC; Instance: THandle): FARPROC;
SysUtils.TLanguages 取语言数据

Lo
Hi
LoWord
HiWord

Int64Rec = packed record
    case Integer of
      : (Lo, Hi: Cardinal);
      : (Cardinals: array [..] of Cardinal);
      : (Words: array [..] of Word);
      : (Bytes: array [..] of Byte);
  end;
①
var
n1,n2: Cardinal;
num64: Int64;
rec: Int64Rec;
begin
n1 := $;
n2 := $AABBCCDD;
rec.Lo := n1;
rec.Hi := n2;
num64 := Int64(rec);
ShowMessage(IntToHex(num64, )); //AABBCCDD44332211
end;
②
var
n1,n2: Cardinal;
num64: Int64;
begin
num64 := $AABBCCDD44332211;
n1 := Int64Rec(num64).Lo; //或 n1 := Cardinal(num64);
n2 := Int64Rec(num64).Hi;
ShowMessageFmt('n1:%x; n2:%x', [n1,n2]);//n1:; n2:AABBCCDD
end;

譬如有一个 Cardinal 类型的整数:
其十六进制的表示是: $
其二进制表示是:
我们说 Cardinal 是  位的整数, 这里的位是指 "二进制的位数", 不信你数数.
我们需要重点面对的是十六进制, 不管是几进制的数在编译成汇编代码时都是用十六进制表示, 因为它最直观;
我们用十六进制来分析, 也是因为它的直观.
怎么直观的? Cardinal 有  位, 每  位一个字节, 共  个字节;
上面的例数分成字节就是: $、$、$、$, 这明显比二进制简洁、比十进制直观.
其中的 $ 是最低位的字节、$ 是最高位的字节(每字节对应十六进制的两位).
有时我们需要获取其中某个字节或某两个字节, 这虽然用位运算也不难, 但还是有了诸多函数:
--------------------------------------------------------------------------------
Lo //获取例数中的 $
Hi //获取例数中的 $
LoWord //获取例数中的 $
HiWord //获取例数中的 $
--------------------------------------------------------------------------------
其中的 Hi 好像有点费解, 为什么获取的不是 $ 而是 $ 呢?
这样理解吧: Hi 获取的是 Lo(获取)的上一个字节.
HiByte 和 Hi 基本一样, 如果参数是  位的 Word 类型, 用 HiByte 会更好些(中间会省去一个转换过程).
其中的 HiWord 是个函数, 但 LoWord 并不是个函数, 它是 Word 类型的重命名.
也就是说 LoWord(num) 等价于 Wrod(num), 这不是类型转换吗?
是的, 所以像 Lo(num) 也可以用 Byte(num) 来代替.
--------------------------------------------------------------------------------
用代码总结一下:
--------------------------------------------------------------------------------
var
num: Cardinal;
b1,b2,b3,b4: Byte;
w1,w2: Word;
begin
num := $;
w1 := Word(num);
w2 := HiWord(num);
ShowMessageFmt('w1:%x; w2:%x', [w1,w2]);//w1:; w2:
b1 := Lo(num);
b2 := Hi(num);
b3 := Byte(w2);
b4 := HiByte(w2);
ShowMessageFmt('b1:%x; b2:%x; b3:%x; b4:%x', [b1,b2,b3,b4]);//b1:; b2:; b3:; b4:
end;

补充 Windows
function HResultCode(hr: HRESULT): Integer;
begin
  Result := hr and $0000FFFF;
end;
function HResultFacility(hr: HRESULT): Integer;
begin
  Result := (hr shr ) and $00001FFF;
end;
function HResultSeverity(hr: HRESULT): Integer;
begin
  Result := (hr shr ) and $;
end;
function MakeResult(sev, fac, code: Integer): HResult;
begin
  Result := (sev shl ) or (fac shl ) or code;
end;
function GetCValue(cmyk: COLORREF): Byte; inline;
function GetMValue(cmyk: COLORREF): Byte; inline;
function GetYValue(cmyk: COLORREF): Byte; inline;
function GetKValue(cmyk: COLORREF): Byte; inline;
function CMYK(c, m, y, k: Byte): COLORREF;
function RGB(r, g, b: Byte): COLORREF; inline;
function PaletteRGB(r, g, b: Byte): COLORREF; inline;
function PaletteIndex(i: Word): COLORREF; inline;
function GetRValue(rgb: DWORD): Byte; inline;
function GetGValue(rgb: DWORD): Byte; inline;
function GetBValue(rgb: DWORD): Byte; inline;
都是同一种逻辑。