Delphi Dll中多线程无法使用Synchronize同步的解决方法(转)

具体原因可以参考这篇文章
“DLL/ActiveForm中的线程同步处理”www.delphibbs.com/keylife/iblog_show.asp。

事实上，经试验可以在dll工程文件中加入以下语句 ：

Application.Initialize;

if Application.Handle = 0 then
begin
    Application.CreateHandle;
end;

Application.Run;

解决线程中使用Synchronize 假死的问题，或者在线程中直接使用SendMessage替代Synchronize
同步。

原因在于若工程文件是DLL而不是EXE的话，Application默认不创建窗口句柄，因此Synchronize
向Application发送消息根本无法响应，手动创建句柄，并让其进入消息循环状态可以解决

转自http://hi.baidu.com/ferrylife/blog/item/c3a9ab51dc359e888d543021.html

用以上方法。会因为application的值不同而在任务栏上产生两个按钮
function SetApplicationHandle(AppHandle: THandle): Boolean; stdcall;
begin
  try
    Application.Initialize;
    if Application.Handle = 0 then
      begin
        Application.CreateHandle;
      end;
    Application.Handle:= AppHandle;
    Application.Run;
    Result:= True;
  except
    Result:= False;
  end;
end;

在dll中导入一个函数
在主线程中调用传入application.handle使任务栏按钮变回一个

type
    TExportEmuFormApplication = function(AppHandle: THandle): Boolean; stdcall;

......
private
    FAppHandle: TExportEmuFormApplication;
    FDLLHandle: THandle;
......

implementation

constructor TEmuMap.Create(aParent: TComponent);
begin
  FDLLHandle := LoadLibrary('emudll.dll');
  try
    FAppHandle:= GetProcAddress(FDLLHandle, 'SetApplicationHandle');

    if not (@FAppHandle = nil) then
      begin
        FAppHandle(Application.Handle);
      end;

......
end;

本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/tomliks/archive/2009/08/07/4421347.aspx

 

PS: 如果用了FASTMM4，替换Application.Handle会出错！

所以可以用

在工程里家Application.MainFormOnTaskBar:= False ;

在onshow 里加入:ShowWindow(Application.Handle, SW_HIDE); //不在任务栏显示