Page fault CreateBugReport + Win9x

[dnote]

Hi again,

When I use CreateBugReport, it works fine when running under WinXP, but when I run the same program under Win98SE, I get a page fault error in kernel32 and the application disappears. The bugreport in the madexcept exception dialog, the one you get when an exception is raised, always looks ok though, on both platforms.

I used a simple application with 1 form, 2 buttons and a memo to test this:

Code: Select all

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Text := CreateBugReport(false, nil, nil, 0, 0, 0, false);
  // fails on Win9x
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  raise Exception.Create('Test');
  // always works
end;

Am I doing something completely wrong?

TIA!

[madshi]

It should be:

Code: Select all

Memo1.Lines.Text := CreateBugReport(false, nil, nil, GetCurrentThreadID, 0, 0, false);

[dnote]

Works!