dont suppose ya want to go to a thirt party bug tracking tool like the madshi set of components do ya?
they provide a set like this... date/time : 2003-07-30 09:39 computer name : H138FHGZ00TY operating system : Windows 2000 Service Pack 1 free disk space : 4,26 GB executable : hip_dst.exe exec. date/time : 2003-07-29 16:51 version : 1.0.0.11 exception class : EInOutError exception message : I/O error 103. main thread ($49C): $004F45D6 hip_dst.exe Main 675 Load_Array $004F624F hip_dst.exe Main 1215 TForm1.crop_comboboxChange $0047024C hip_dst.exe LookUpComboBox 490 TLookUpComboBox.Change $0046F9A1 hip_dst.exe LookUpComboBox 267 TCustomComboBox97.CNCommand $004F7A10 hip_dst.exe hip_dst 21 hip_dst thread $774: $77F82230 ntdll.dll >> created by main thread ($49C) at: $004E9BFB hip_dst.exe madExcept 2339 ThreadExceptFrame modules: $00400000 hip_dst.exe 1.0.0.11 J:\HIP-DST $10000000 LgMousHk.dll 9.1.0.0 C:\PROGRA~1\MOUSEW~1\SYSTEM $691D0000 CLBCATQ.DLL 2000.2.3449.0 C:\WINNT\System32 $695E0000 olepro32.dll 5.0.4514.1 C:\WINNT\System32 $69800000 shell32.dll 5.0.3103.1000 C:\WINNT\system32 $70200000 WININET.dll 6.0.2800.1106 C:\WINNT\system32 not sure if you can hook in your own error messages tho, but still hugely useful I think.... HTH Chris Veale > -----Original Message----- > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] > Behalf Of Alistair George > Sent: Monday, 4 August 2003 8:46 a.m. > To: Multiple recipients of list delphi > Subject: [DUG]: ShellExecute(Application.Handle, nil, 'MailTo: > > > Hi all. > I want to send bug reports from my app, which includes the > users system details. > Can anyone advise: > a) how I can complete the following to include contents eg > Report?Contents+contentsString',nil..... > b) what to use to provide contents info of users system (pref > freeware) > Thanks! > > if msgbox('Please read the helpfile thoroughly before > sending email' + #13 + > ' as most information is within' + #13 + > ' Do you still want to send an email?', 'Bug Report', > true, MB_YESNO) > = IDYES then > ShellExecute(Application.Handle, nil, > 'MailTo:[EMAIL PROTECTED])_Bug_Report', nil, > nil, SW_SHOWNOACTIVATE); > > -------------------------------------------------------------- > ------------- > New Zealand Delphi Users group - Delphi List - > [EMAIL PROTECTED] > Website: http://www.delphi.org.nz > To UnSub, send email to: [EMAIL PROTECTED] > with body of "unsubscribe delphi" > Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/ > --- > Incoming mail is certified Virus Free. > Checked by AVG anti-virus system (http://www.grisoft.com). > Version: 6.0.505 / Virus Database: 302 - Release Date: 30/07/03 > --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.505 / Virus Database: 302 - Release Date: 30/07/03 ______________________________________________________ The contents of this e-mail are privileged and/or confidential to the named recipient and are not to be used by any other person and/or organisation. If you have received this e-mail in error, please notify the sender and delete all material pertaining to this e-mail. ______________________________________________________ --------------------------------------------------------------------------- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of "unsubscribe delphi" Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
