主程序代码.docVIP

主程序代码 unit haha; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type //定义接口函数类型 TGetCaption = function(aHandle: tHandle): pchar; stdcall; //取标题,用于菜单项 TShowDLLForm = function(aHandle: THandle; ACaption: String): boolean; stdcall; //窗体显示 //定义TMyPlugin类,存放 Caption、Address,Call信息 TMyPlugin = Class Caption: string; //存取加载后的DLL中GetCaption返回的标题 Address: THandle; //存取加载后的DLL的句柄 Call: Pointer; //存取ShowDllForm函数的句柄,指针类型 end; TForm1 = class(TForm) Panel1: TPan