[Meta-diff-devel] CompareShellEx CompareShellEx-ReadMe.txt,1.3,1.4 CompareShellEx.dpr,1.7,1.8

[Sebastian S. <ey...@us...>]

Update of /cvsroot/meta-diff/CompareShellEx
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30725/CompareShellEx

Modified Files:
	CompareShellEx-ReadMe.txt CompareShellEx.dpr 
Log Message:
In silent mode, possible exceptions are logged to a file.

Index: CompareShellEx.dpr
===================================================================
RCS file: /cvsroot/meta-diff/CompareShellEx/CompareShellEx.dpr,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** CompareShellEx.dpr	29 Aug 2005 07:03:05 -0000	1.7
--- CompareShellEx.dpr	30 Aug 2005 07:37:47 -0000	1.8
***************
*** 351,354 ****
--- 351,356 ----
      p,s,DllLoc,GUIDs:string;
      Reg:TRegistry;
+     LogFile:TextFile;
+     LogName:string;
  begin
      try
***************
*** 450,454 ****
              );
      except
!         on E:Exception do MessageBox(hWnd,PChar(E.Message),'Exception',MB_OK or MB_ICONERROR);
      end;
  end;
--- 452,469 ----
              );
      except
!         on E:Exception do begin
! {$IFDEF UnInstallMsgBox}
!             MessageBox(hWnd,PChar(E.Message),'Exception',MB_OK or MB_ICONERROR);
! {$ELSE}
!             LogName:=LibraryName+'.log';
!             Assign(LogFile,LogName);
!             if FileExists(LogName) then
!                 Append(LogFile)
!             else
!                 Rewrite(LogFile);
!             WriteLn(LogFile,'[Exception]'+#13#10+E.Message);
!             CloseFile(LogFile);
! {$ENDIF}
!         end;
      end;
  end;
***************
*** 464,467 ****
--- 479,484 ----
      p,s:string;
      GUIDs:string;
+     LogFile:TextFile;
+     LogName:string;
  begin
      try
***************
*** 521,525 ****
  {$ENDIF}
      except
!         on E:Exception do MessageBox(hWnd,PChar(E.Message),'Exception',MB_OK or MB_ICONERROR);
      end;
  end;
--- 538,555 ----
  {$ENDIF}
      except
!         on E:Exception do begin
! {$IFDEF UnInstallMsgBox}
!             MessageBox(hWnd,PChar(E.Message),'Exception',MB_OK or MB_ICONERROR);
! {$ELSE}
!             LogName:=LibraryName+'.log';
!             Assign(LogFile,LogName);
!             if FileExists(LogName) then
!                 Append(LogFile)
!             else
!                 Rewrite(LogFile);
!             WriteLn(LogFile,'[Exception]'+#13#10+E.Message);
!             CloseFile(LogFile);
! {$ENDIF}
!         end;
      end;
  end;

Index: CompareShellEx-ReadMe.txt
===================================================================
RCS file: /cvsroot/meta-diff/CompareShellEx/CompareShellEx-ReadMe.txt,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** CompareShellEx-ReadMe.txt	29 Aug 2005 07:03:05 -0000	1.3
--- CompareShellEx-ReadMe.txt	30 Aug 2005 07:37:47 -0000	1.4
***************
*** 58,61 ****
--- 58,62 ----
  - Fixed a shell extension integration bug.
  - The shell extension can now (un)install itself for the current user only.
+ - Exceptions during shell extension (un)installation will be logged to a file.
  
  v1.3