library DLLEntry;//dll源码  
  
uses  
  SysUtils,  
  Classes,  
  Dialogs,  
  Windows;  
  
{$R *.res}  
  
procedure DLLEntryPoint(dwReason : DWord);  
begin  
  case dwReason of  
    DLL_PROCESS_ATTACH : showMessage('映射到进程地址空间');  
    DLL_PROCESS_DETACH : showMessage('从进程的地址空间分离出来');  
    DLL_THREAD_ATTACH :  showMessage('创建了一个新线程');  
    DLL_THREAD_DETACH : showMessage('一个线程正在退出');  
  end;  
end;  
  
begin  
  {首先，把一个过程的指针赋给DLLProc变量}  
  DLLProc := @DLLEntryPoint;  
  {调用这个过程}  
  DLLEntryPoint(DLL_PROCESS_ATTACH);  
end.  
[delphi] view plaincopy
unit mainfrm;//exe源码  
  
interface  
  
uses  
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
  Dialogs, StdCtrls, Buttons;  
  
type  
  //定义一个测试线程  
  TTestThread = class(TThread)  
    procedure Execute; override;  
  end;  
  TMainForm = class(TForm)  
    btnLoadLib: TBitBtn;  
    btnFreeLib: TBitBtn;  
    BtnCreateThread: TBitBtn;  
    BtnFreeThread: TBitBtn;  
    lblCount: TLabel;  
    procedure btnLoadLibClick(Sender: TObject);  
    procedure btnFreeLibClick(Sender: TObject);  
    procedure BtnCreateThreadClick(Sender: TObject);  
    procedure BtnFreeThreadClick(Sender: TObject);  
    procedure FormCreate(Sender: TObject);  
  private  
    LibHandle: THandle;  
    TestThread: TTestThread;  
    Counter: integer;  
    GoThread: Boolean;  
    { Private declarations }  
  public  
    { Public declarations }  
  end;  
  
var  
  MainForm: TMainForm;  
  
implementation  
  
{$R *.dfm}  
  
//线程执行过程  
procedure TTestThread.Execute;  
begin  
  while MainForm.GoThread do  
  begin  
    MainForm.lblCount.Caption := IntTostr(MainForm.Counter);  
    Inc(MainForm.Counter);  
  end;  
end;  
  
procedure TMainForm.FormCreate(Sender: TObject);  
begin  
  LibHandle := 0;  
  TestThread := nil;  
end;  
  
  
//这个过程用于调入动态链接库DLLEntry.dll  
procedure TMainForm.btnLoadLibClick(Sender: TObject);  
begin  
  if LibHandle = 0 then  
  begin  
    LibHandle := LoadLibrary('DLLEntry.dll');  
    if LibHandle = 0 then  
      raise Exception.Create('Unable to Load DLL');  
  end  
  else  
    MessageDlg('Library already Loaded', mtWarning, [mbok], 0);  
end;  
  
//这个过程用于释放链接库  
procedure TMainForm.btnFreeLibClick(Sender: TObject);  
begin  
  if not (LibHandle = 0) then  
  begin  
    FreeLibrary(LibHandle);  
    LibHandle := 0;  
  end;  
end;  
  
//创建一个线程  
procedure TMainForm.BtnCreateThreadClick(Sender: TObject);  
begin  
  if TestThread = nil then  
  begin  
    GoThread := True;  
    TestThread := TTestThread.Create(false);  
  end;  
end;  
  
//释放一个线程  
procedure TMainForm.BtnFreeThreadClick(Sender: TObject);  
begin  
  if not (TestThread = nil) then  
  begin  
    GoThread := False;  
    TestThread.Free;  
    TestThread := nil;  
    Counter := 0;  
  end;  
end;  
end.