dll的调用 ( 积分: 50 )

如何动态调用dll，并且dll显示的窗体为非模态窗体？
说的详细些，最好举例说明。谢谢！

把主线程的handle传过去给dll进程窗体

我传了，好像不行
麻烦您说的具体些，最好附上代码

type
TShowForm = function: Bool; StdCall;
EDLLLoadError = class(Exception);

procedure TfrmCallDLL.btnCallDLLClick(Sender: TObject);
var
LibHandle: THandle;
ShowForm: TShowForm;
begin
LibHandle := LoadLibrary('RptDLL.DLL');
try
if LibHandle = HINSTANCE_ERROR then
raise EDLLLoadError.Create('Unable to Load DLL');
@ShowForm := GetProcAddress(LibHandle, 'ShowForm');
if not (@ShowForm = nil) then
ShowForm;
finally
FreeLibrary(LibHandle);
end;
end;

老兄这样是可以调用，但是它是模态窗体。
怎样才可以让它是非模态呢？