Cardinal(pChar(ClassName)) 的工作原理问题

2008-03-05 01:19:15 139 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

MPU6050 加速度计和陀螺仪传感器与 Arduino 的接口虽然该模型并不能准确代表现实世界中加速度计传感器的构建方式，但它通常有助于理解为什么加速度计的输出信号通常以 ±g 为单位指定，或者为什么加速度计在静止时在 z 轴上的读数为 1g，或者在不同方向上您可以期望得到什么样的加速度计读数。该模块的核心是低功耗、低成本的 6 轴运动跟踪芯片 MPU6050，它将 3 轴陀螺仪、3 轴加速度计和数字运动处理器 (DMP) 集成到一个 4mm x 4mm 的微型芯片中。小时候，科学博览会上的陀螺仪总是让我们感到惊讶，因为它们以奇怪的方式移动，甚至似乎违背了重力。阅读详情

在Aimgoo编写的CpuWHelper代码中，有一段程序如下：
function EnumFunc(Handle : HWnd; var PI64 : Int64Rec): Bool; stdcall;
var
_ClassName : array [0..255] of Char;
PID : Cardinal;
begin
Result := True;
PID := 0;
GetWindowThreadProcessId(Handle, @PID);
if PID = PI64.Lo then
begin
GetClassName(Handle, @_ClassName[0], 255);
if StrComp(_ClassName, pChar(PI64.Hi)) = 0 then
begin
PI64.Hi := Handle;
Result := False;
end;
end;
end;

function HwndByClassName(ClassName : String; PID : Integer = 0) : HWND;
var
PI64 : Int64Rec;
begin
if PID = 0 then
PI64.Lo := GetCurrentProcessID
else
PI64.Lo := PID;

PI64.Hi := Integer(pChar(ClassName));
EnumWindows(@EnumFunc, Integer(@PI64));
if PI64.Hi = Cardinal(pChar(ClassName)) then
Result := 0
else
Result := PI64.Hi;
end;

首先确定上面的代码是正确，且可以正常运行；其中红色标注部分另我十分迷惑，请求大家帮忙看看。
自己写了段相比较的代码
function HwndByClassName1(ClassName : String; PID : Integer = 0) : HWND;
var
PI64, PI642 : Int64Rec;
begin
if PID = 0 then
PI64.Lo := GetCurrentProcessID
else
PI64.Lo := PID;
PI64.Hi := Cardinal(pChar(ClassName));
PI642.Hi := Integer(pChar(ClassName));
EnumWindows(@EnumFunc, Integer(@PI64));
PI642.Hi := Cardinal(pChar(ClassName));
if PI642.Hi = Cardinal(pChar(ClassName)) then //PI64.Hi与PI642.Hi不相同；
Result := 0
else
Result := PI64.Hi;
end;
请问Cardinal(pChar(ClassName))的工作原理是什么;

...全文