我需要帮助才能将LPARAM
类型转换为结构。例如,在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;
C++代码将LPARAM
强制转换为指向结构的指针。在德尔福,这看起来像这样:
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;