[Meta-diff-devel] CompareShellEx CompareShellEx.dpr,1.2,1.3
Brought to you by:
undees
From: Sebastian S. <ey...@us...> - 2005-07-30 12:32:25
|
Update of /cvsroot/meta-diff/CompareShellEx In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17380/CompareShellEx Modified Files: CompareShellEx.dpr Log Message: Added an option to hide the messages boxed upon successful (un-)installation if used in the installer. Index: CompareShellEx.dpr =================================================================== RCS file: /cvsroot/meta-diff/CompareShellEx/CompareShellEx.dpr,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** CompareShellEx.dpr 29 Jul 2005 21:49:56 -0000 1.2 --- CompareShellEx.dpr 30 Jul 2005 12:32:08 -0000 1.3 *************** *** 17,20 **** --- 17,22 ---- {$I CompareShellEx.lc} + {$DEFINE UnInstallMsgBox} + //{$DEFINE VC} {$DEFINE MD} *************** *** 389,393 **** --- 391,397 ---- Reg.Free; end; + {$IFDEF UnInstallMsgBox} MessageBox(0,'Installation successful.',Libraryname+' '+VersionStr,0); + {$ENDIF} end else MessageBox(0,'Can''t locate '+LibraryName+'.dll','Error',0); *************** *** 422,425 **** --- 426,430 ---- Reg.Free; end; + {$IFDEF UnInstallMsgBox} MessageBox(0,PChar( IntToStr(RemoveCount)+' keys have been removed from the registry. '+ *************** *** 427,430 **** --- 432,436 ---- Libraryname+' '+VersionStr,0 ); + {$ENDIF} except on E:Exception do MessageBox(0,PChar(E.Message),'Exception',0); |