delphi - 如何在 Delphi 中将 LPARAM 转换为结构？

Question

我需要帮助将 LPARAM 类型转换为 Structure。例如，在 C++ 中我们有:

struct MyStructure
{
   int data01;
   int data02;
};

BOOL CALLBACK CallbackProc(int number, LPARAM param)
{
   MyStructure *myStruct = (MyStructure *) param;
}

在 Delphi 中我尝试了这个，但是编译器在突出显示的行上给出了不兼容类型的错误并带有注释:

type
  TMyStructure = record
    data01: Integer;
    data02: Integer;
  end;

PMyStructure = ^TMyStructure;

function CallbackProc(number: Integer; param: LPARAM): BOOL; stdcall;
var
  myStruct: TMyStructure;
begin
  myStruct := param; // How stays here?
end;

Answer 1

C++ 代码将 LPARAM 转换为指向结构的指针。在 Delphi 中，这看起来像这样:

type
  TMyStructure = record
    data01: Integer;
    data02: Integer;
  end;
  PMyStructure = ^TMyStructure;

function CallbackProc(number: Integer; param: LPARAM): BOOL; stdcall;
var
  myStruct: PMyStructure;
begin
  myStruct := PMyStructure(param);
end;