请帮我看看这段代码！（菜题）

Question

library Project2;
uses
  SysUtils,
  Classes;var
        buffer:pointer;
{$R *.res}procedure DLLEntryPoint(dwReason:DWord);
begin
        if reason=DLL_PROCESS_DETACH then
        freemem(buffer,1024);
end;
procedure Hellodll(AHandle: THandle);
begin
   messagebox(AHandle,'hello dll','dll message box',md_ok)
end;
exports
        hellodll;
begin
        dllproc:=@DLLEntryPoint;
        getmem(buffer,1024)
end.

Answer 1

你声明的是Myform:tform，好像不太对吧，我认为应该传 handle才对；