dll释放时主程序最小化的问题解决

遇到了好几次了&＃xff0c;在 dll 是调用窗体时&＃xff0c;一关闭这个窗体&＃xff08;dll也就释放了&＃xff09;&＃xff0c;程序就最小化到任务栏了&＃xff0c;在网上看到好多人都遇到过&＃xff0c;今天问算是解决了

&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;

调用程序&＃xff1a;

unit useDll;

interface

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

type
  TcrForm&＃61;function (const aHandle:THandle):pchar;stdcall;
  TDllE&＃61;class(exception);
  TForm1 &＃61; class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
     libHandle:THandle;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  crForm:Tcrform;
begin
  libHandle:&＃61;windows.LoadLibrary(&＃39;project1.dll&＃39;);
  if (libHandle&＃61;0) or (libHandle&＃61;INVALID_HANDLE_VALUE) then
  begin
    TDlle.Create(&＃39;load error&＃39;);
    Exit;
  end;
  &＃64;crForm:&＃61;windows.GetProcAddress(libHandle,&＃39;crForm&＃39;);
  if not (&＃64;crForm&＃61;nil) then
    crForm(application.Handle)
  else
    sysutils.RaiseLastWin32Error;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if (libHandle<>0) and (libHandle<>INVALID_HANDLE_VALUE) then
  begin 
    windows.FreeLibrary(libHandle);
    libHandle:&＃61;0;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  libHandle:&＃61;0;
end;

end.

DLL程序。

library Project1;

uses
  SysUtils,
  Classes,
  forms,
  windows,
  dialogs,
  Unit1 in &＃39;Unit1.pas&＃39; {Form1};

//{$R *.res}
 //用了出口入口函数

procedure DllEntry(dllReason:dword);
begin
  case dllReason of
    windows.DLL_PROCESS_ATTACH:
    begin
    end;
    windows.DLL_PROCESS_DETACH:
    begin
      if fm<>nil then//再注意这里。
        fm.Free;
      Application.Handle:&＃61;0;//注意这里。。。。
    end;
  end;// end case
end;

function crForm(const aHandle:THandle):pchar;stdcall;
begin
  application.Handle:&＃61;aHandle;
  fm:&＃61;tform1.Create(nil);
  result:&＃61;pchar(&＃39;ok&＃39;);
  fm.Show;
end;

exports
  crForm;

begin
  dllProc:&＃61;&＃64;dllEntry;
  dllEntry(windows.DLL_PROCESS_ATTACH);
end.

unit Unit1;

interface

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

type
  TForm1 &＃61; class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fm:tform1 &＃61; nil;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Close;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:&＃61;caFree;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  fm:&＃61;nil;
end;

end.

//&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;

至于为什么加了Application.Handle:&＃61;0;就没有问题了&＃xff0c;那得从Forms单元中TApplication对象的源码说起。 [609字节 aizb 2006-3-7 23:27:37 回复:0/3 版块:Delphi 系统及网络]

在Forms单元中我们可以看到TApplication对象的全部源码。不知道是不是Delphi的BUG&＃xff0c;在TApplication创建的时候&＃xff0c;我们知道程序作了一个判断&＃xff1a;   if not IsLibrary then CreateHandle; 就是说如果是当前程序不是运态链接库&＃xff0c;则创建应用程序句柄&＃xff0c;实际上是创建了一个大小为0,0的窗口。 而在释放的时候的判又是&＃xff1a;   if (FHandle <> 0) and FHandleCreated then   begin     if NewStyleControls then SendMessage(FHandle, WM_SETICON, 1, 0);     DestroyWindow(FHandle);   end; 也就是说无论是不是动态链接库&＃xff0c;只有Application对象的Handle值不为0&＃xff0c;并且FHandleCreated为True&＃xff0c;都会执行到DestroyWindow函数&＃xff0c;而DestroyWindow函数的执行将导致主应用程序中的Application对象创建的大于为0,0窗口失去句柄&＃xff0c;一个窗口失败句柄会发生什么就未可知了。 不过说实话&＃xff0c;我没有花时间去找FHandleCreated是在哪里赋值的&＃xff0c;所以也许上面的解答也许是不正确的&＃xff0c;也许是其他的问题&＃xff0c;但是可以肯定的是跟Application.Handle有关。

仔细看了一下源码&＃xff0c;发现2楼的回复是错误的&＃xff0c;如果是动态链接库&＃xff0c;FHandleCreated将始终为False&＃xff0c;if (FHandle <> 0) and FHandleCreated then根本不会满足。 [242字节 aizb 2006-3-7 23:42:19 回复:0/4 版块:Delphi 系统及网络]

所以问题不在这里&＃xff0c;经过分析&＃xff0c;发现问题在Forms单元的finalization段中的一句&＃xff1a; if Application <> nil then DoneApplication; DoneApplication函数中又有下面一句&＃xff1a;     if Handle <> 0 then ShowOwnedPopups(Handle, False); 再看看MSDN中对ShowOwnedPopups的介绍&＃xff0c;它的作用是显示或隐藏由指定窗口所有的全部弹出式窗口。好了问题就是它了&＃xff0c;结案。

十分感谢艾老师对我的帮助
看了艾老师的但当时还没有解决&＃xff0c;原因是 d6 里有 bug &＃xff0c;dll 的出口并没有执行。

另一种方式是传 handle 而不是传 application.handle