function showform(ahandle:THandle):longint;
var
dllform:tllform;
begin
application.handle:=ahandle;
dllform:=tdllform.create(application);
try
dllform.showmodal;
//result:=...
finaly
dllform.free;//DLL创建的窗体必须由DLL释放
dllform:=nil;//设为空
end;
end;
为使DLL中的窗体真正成为应用程序模式窗体，必须将应用程序的句柄赋给DLL的
Application.Handle属性，正如上面代码所述。要是不这样做，
结果难以预料，尤其是当想最小化该DLL的窗体时，
必须确保赋给Application.Handle属性的AHandle值不为nil
普通窗体制成DLL,只要新建一个DLL工程,并加入窗体单元,然后引出一个函数,
当然,这个函数要自己写,像上面那个一样,注意,最好不要传递和返回string类型的
值,而用PChar代替,会省掉些麻烦.
