[请教]程序发布返馈错误的方面问题！！(麻烦各位帮我UP一下，谢谢了) (200分)

相信大家都写过不少程序，也有人把自己的程序放到网上去共享给大家用，可是当用户在使用中
出现问题并返馈给我们的的时候，有时候可以用文字可以表达我们就清楚知道错误在那里，可是
并不是所有错误都是这类型的，有时候还是需要用户的一些系统信息及错误信息，这样才能更方
便的让我们知道错误的原因。
[red]我的问题是那里有一个这样的函数：可以在出错的时候记录用户的使用环境及出错的程序段呢？[/red]

太复杂了，帮你上提

up

通过下面的代码可以得到出错时的源文件名和行号等, 关于环境需要另外的代码来获取...
procedure AssertErrorHandler(const Message, Filename: string;
LineNumber: Integer;
ErrorAddr: Pointer);
var
S: String;
begin
S := Format('%s (%s, line %d, address $%x)',
[Message, Filename, LineNumber, Pred(Integer(ErrorAddr))]);
MessageBox(Form1.handle, PChar(S), 'Error', 0);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
AssertErrorProc := @AssertErrorHandler
end;

procedure TForm1.Button1Click(Sender: TObject);
var
p : pointer;
begin
Assert(p=nil);
end;

帮你up

帮你up