退出时候报错，acess violate at address 1f678ef7 in moudle msdart.dll read of 0005004f (

退出时候报错，acess violate at address 1f678ef7 in moudle msdart.dll read of 0005004f ( 积分: 100 )<br />如题，谢谢！研究了几天没有进展，希望各位大虾给点指导，谢谢！

这种错误一般是退出程序的时候，调用的资源没有释放造成的了。需要慢慢仔细的查找了，如果你代码多的话。

调用动态链接库 是否涉及到字符串之类的 输入输出参数
若涉及 请在调用该动态链接库的项目中加入 sharemem
Program MyPro;

uses
sharemem,
Forms,
Windows,
MainUnit in 'MainUnit.pas' {MainForm},
ThreadPool in 'ThreadPool.pas';

{$R *.res}

加的时候一定要加在第一个！

谢谢cqwty，已经解决，资源没有释放，今天上午解决的，一来就看到老兄的解决方法，很正确，
老兄，我的邮件xgwzw@126.com ,希望大虾能指导一下，关于exe和dll 之间共享变量的问题，请留下邮箱，谢谢！
http://www.2ccc.com/article.asp?articleid=1325

ｔｏ 银雨辰
我还有个问题，问下你，谢谢！exe dll 的 我照着作出错了 ｅｘｅ不能编译
下面是连接，谢谢！
http://www.2ccc.com/article.asp?articleid=1325

program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
Exports
CurUserName;
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
////////////////////////////////
Unit Unit1;

{$I SetOption.INC}

Interface

Uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, shellapi,
Controls, Forms, Dialogs, vgctrl40_TLB, StdCtrls, ComCtrls;

Type
TForm1 = Class(TForm)
Edit1: TEdit;
Private
{ Private declarations }
Public
{ Public declarations }
End;
Function CurUserName()Char; //Stdcall; Export;
Var
Form1: TForm1;

Implementation

{$R *.dfm}

Function CurUserName()Char;
begin
Result:=pchar(Form1.Edit1.Text);
end;
End.

to 银雨辰
谢谢，我现在又遇到一个问题，就是释放dll时候总是报错， if handle&lt;&gt;0 then freelibary(handle),注释后就没有问题，dll封装了窗体，不知道怎么解决了！麻烦，再指点一下，资源释放的 每个窗体里面都有 ｏｎｃｌｏｓｅ事件 ａｃｔｏｎ：＝ｃａｆｒｅｅ；

uses
sharemem,
Forms,
Windows,
----sharemem太麻烦,发布还要带个DLL, 用FASTMM4 非常爽.

fastmm4是什么啊 怎么用啊