我通过主程序利用dll调用子窗口，开始没有问题，子窗口可以出现，我没有对子窗口作任何操作就关闭该子窗口，然后再一次调用子窗口。这样调用操作l连续执行几次，结果报错： Project Project1.exe raised exception class EOleException with message '灾难性故障'Process stopped.Use Step or Run to continue. 主程序调用dll: 。。。。。。 DllFileName:=trim(DM.SQL_sys_menu.FieldValues['func_id']); DLLHandle:= LoadLibrary(Pchar(DllFileName)); if DLLHandle <> 0 then begin @ProcAddr := GetProcAddress(DLLHandle, 'CreateDllForm'); if @DLLForm <> nil then DLLForm := ProcAddr(Application, Screen ); end; 。。。。 dll程序： var DLLApp: TApplication; DllScr:TScreen; function CreateDllForm(ParentApplication: TApplication; Scr:TScreen):TForm; stdcall; //var //DllProc: Pointer; { Called whenever DLL entry point is called } begin Application:=ParentApplication; Screen :=Scr; Application.CreateForm(Tmenu_def_form,menu_def_form); result:=menu_def_form; end; procedure ExitDllForm(Reason: Integer); register; begin if Reason = DLL_PROCESS_DETACH then begin Application:=DLLApp; Screen:=DLLScr; end; end; exports CreateDLLForm; begin DLLApp:=Application; DLLScr:=Screen; DLLProc := @ExitDllForm; end. 子窗口close按钮直接close;关闭该窗口！ 这个灾难性故障，为什么产生? 请各位朋友帮忙解决

你在主程序使用LoadLibrary后是否对其进行了释放？    建议这类程序使用下面结构编写，有LOAD/CREATE等就应该有对应的FREE或者DESTORY，申请内存操作时应该尤为注意:    

try
  DLLHandle:= LoadLibrary(PChar(DllFileName));  
  ......
finally
  FreeLibrary(DLLHandle);
end;

發表人 - Vicen 於 2005/03/29 15:15:13