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.