delphi 开发扩展（二）

library plug_in;

uses
SysUtils,
Classes,
Unit3 in 'H:\test\Unit3.pas' {Form3};

exports GetForm,GetName;

{$R *.res}

begin
end.

{要加载的窗体}

unit Unit3;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,ADODB, DB, Grids, DBGrids;

type
TForm3 = class(TForm)
Button1: TButton;
ADOQuery1: TADOQuery;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form3: TForm3;
ADO: TADOConnection;

function GetName:string;StdCall;
function GetForm(AHandle:THandle;adoconn:TADOConnection;ACaption:String):BOOL;StdCall;

implementation

{$R *.dfm}

function GetName:string;
begin
result:='my dll';
end;

function GetForm(AHandle:THandle;adoconn:TADOConnection;ACaption:String):BOOL;
var
ShowForm:TForm3;
begin
Application.Handle:=AHandle;
ADO:= adoconn;
ShowForm :=TForm3.Create(Application);
try
if ACaption<>'' then
ShowForm.Caption:=ACaption;
ShowForm.ShowModal;
Result:=False;
finally
ShowForm.Free;
end;
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
self.ADOQuery1.Connection:=ADO;
with self.ADOQuery1 do
begin
Connection:=ADO;
close;
SQL.Clear;
SQL.Add('select top 1 * from master');
open;
end;
end;

end.