Changeset 100 for ExceptionLogger/UExceptionLogger.pas

Timestamp:

Dec 21, 2010, 9:27:01 AM (14 years ago)

Author:

george

Message:

• Added: Logging application version readed from exe file meta information.

File:

• ExceptionLogger/UExceptionLogger.pas (modified) (6 diffs)

ExceptionLogger/UExceptionLogger.pas

@@ -6 +6 @@
 
 uses
+  {$ifdef windows}Windows,{$endif}
   Classes, SysUtils, UStackTrace, CustomLineInfo, Forms;
 
@@ -16 +17 @@
     FMaxCallStackDepth: Integer;
     FLogFileName: string;
+    function GetAppVersion: string;
     procedure MakeReport;
     procedure SetMaxCallStackDepth(const AValue: Integer);
@@ -49 +51 @@
   SProcessID = 'Process ID';
   SThreadID = 'Thread ID';
+  SVersion = 'Version';
 
 procedure Register;
@@ -81 +84 @@
     Add(SMessage + ': ' + LastException.Message);
     Add(SApplication + ': ' + Application.Title);
+    Add(SVersion + ': ' + GetAppVersion);
     Add(STime + ': ' + DateTimeToStr(Now));
     Add(SProcessID + ': ' + IntToStr(GetProcessID));
@@ -119 +123 @@
     with TStackFrameInfo(StackTrace[I]) do begin
       Line := IntToStr(Index) + ': ' + IntToHex(Address, 8) + ' in ' + FunctionName + ' ' +
-        Source + '(' + IntToStr(LineNumber) + ')' + #13#10;
+        Source + '(' + IntToStr(LineNumber) + ')' + LineEnding;
       if Length(Line) > 0 then
         Write(Line[1], Length(Line));
     end;
-    Line := #13#10;
+    Line := LineEnding;
     Write(Line[1], Length(Line));
   finally
@@ -181 +185 @@
 end;
 
+function TExceptionLogger.GetAppVersion: string;
+var
+  Size, Size2: DWord;
+  Pt, Pt2: Pointer;
+begin
+  {$ifdef windows}
+  Size := GetFileVersionInfoSize(PChar(ParamStr(0)), Size2);
+  if Size > 0 then
+  begin
+    GetMem(Pt, Size);
+    try
+       GetFileVersionInfo(PChar (ParamStr(0)), 0, Size, Pt);
+       VerQueryValue(Pt, '\', Pt2, Size2);
+       with TVSFixedFileInfo(Pt2^) do
+       begin
+         Result := IntToStr(HiWord(dwFileVersionMS)) + '.' +
+           IntToStr(LoWord(dwFileVersionMS)) + '.' +
+           IntToStr(HiWord(dwFileVersionLS)) + '.' +
+           IntToStr(LoWord(dwFileVersionLS));
+      end;
+    finally
+      FreeMem(Pt);
+    end;
+  end;
+  {$else}
+  Result := '';
+  {$endif}
+end;
+
 end.