delphi 简单的Bug报告类

unit uBugReport;

interface

uses
  Windows, SysUtils, SyncObjs;

  procedure ReportBug(pszBugStr: PChar); stdcall;

implementation

var
  LogFileLock: TCriticalSection;

function GetAppRoot: string;
var
  path: string;
begin
  SetLength(path, MAX_PATH);
  SetLength(path, GetModuleFileName(HInstance, PChar(path), MAX_PATH));
  path := ExtractFilePath(path);
  Result := StringReplace(path, 'bin\', '', [rfIgnoreCase]);
end;

procedure ReportBug(pszBugStr: PChar);
var
  strPath: string;
  strFileName: string;
  F: Text;
  S: string;
  dtNow: TDateTime;
begin
  try
    OutputDebugString(pszBugStr);

    LogFileLock.Enter();
    try
      dtNow := Now();

      strPath := GetAppRoot() + 'Logs\';
      strFileName := strPath + FormatDateTime('YYYY-MM-DD', dtNow) + '.log';
      if not DirectoryExists(strPath) then ForceDirectories(strPath);

      AssignFile(F, strFileName);
      try
        if FileExists(strFileName) then
          Append(F)
        else
          Rewrite(F);

        S := FormatDateTime('YYYY-MM-DD HH:MM:SS', dtNow) + ' ' + StrPas(pszBugStr);
        Writeln(F, S);
      finally
        CloseFile(F);
      end;
    finally
      LogFileLock.Leave();
    end;
  except
  end;
end;

initialization
  IsMultiThread := True;
  LogFileLock := TCriticalSection.Create();

finalization
  FreeAndNil(LogFileLock);

end.