delphi 开发扩展（一）

 

{主程序}

unit Unit2;

interface

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

type
  TPluginName = Function:string; stdcall;
  TShowPerSN  = function(AHandle:THandle;ADOConn:TADOConnection;ACaption:String):BOOL;StdCall;

type
  TForm2 = class(TForm)
    ListBox1: TListBox;
    ADOConnection1: TADOConnection;
    procedure FormCreate(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
  private
    LibHandle: HMODULE;
    procedure LoadPlugins;
    procedure LoadPlugin(sr: TSearchRec);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}


procedure TForm2.FormCreate(Sender: TObject);
begin
  LibHandle:=0;//初始化LibHandle的值。
  LoadPlugins;//调入LoadPlugins过程。
end;

procedure TForm2.LoadPlugins;
var
  sr: TSearchRec;
  path: string;
  Found: Integer;
begin
  path := ExtractFilePath(Application.Exename);
  try
    Found := FindFirst(path + '*.DLL', 0, sr);
    while Found = 0 do//查找文件。
    begin
      LoadPlugin(sr);
      Found := FindNext(sr);
    end;
  finally
    FindClose(sr);
  end;
end;



procedure TForm2.ListBox1DblClick(Sender: TObject);
var k:TPluginName;ShowPerSN:TShowPerSN;
begin
  if ListBox1.ItemIndex<>-1 then
  begin
    if LibHandle<>0 then
      FreeLibrary(LibHandle);

    LibHandle:= LoadLibrary(Pchar(self.ListBox1.Items[self.ListBox1.ItemIndex]));
    if LibHandle <> 0 then
    begin
      try
        @k:= GetProcAddress(LibHandle, 'GetName');
        self.Text:=k;

        @ShowPerSN:= GetProcAddress(LibHandle,'GetForm');
        if not (@ShowPerSN   =   nil)   then
        begin
           ShowPerSN(application.Handle,ADOConnection1,'');
           Invalidate;
        end;
      Except
        FreeLibrary(LibHandle);
        LibHandle:=0;
      end;
    end
    else
      ShowMessage('loading Dll file error!');
  end;
end;



procedure TForm2.LoadPlugin(sr: TSearchRec);
var
  iLibHandle: HMODULE;
begin
  iLibHandle := LoadLibrary(Pchar(sr.Name));
  if iLibHandle <> 0 then
  begin
    try
       ListBox1.Items.Add(sr.Name);
    finally
      FreeLibrary(iLibHandle);
    end;
  end else
    ShowMessage('loading Dll file error!');
end;

end.