Login | Register
My pages Projects Community openCollabNet

Discussions > commits > svn commit: r63 - branches/SOPTIM/src/tsvnWizard.pas

delphiaddinfortortoisesvn
Discussion topic

Back to topic list

svn commit: r63 - branches/SOPTIM/src/tsvnWizard.pas

Author otto_noll
Full name Otto Noll
Date 2009-01-12 05:24:59 PST
Message Author: otto_noll
Date: 2009-01-12 05:24:59-0800
New Revision: 63

Modified:
   branches/SOPTIM/src/​tsvnWizard.pas

Log:
Missed to read SVNPath in constructor

Modified: branches/SOPTIM/src/​tsvnWizard.pas
Url: http://delphiaddinfo​rtortoisesvn.tigris.​org/source/browse/de​lphiaddinfortortoise​svn/branches/SOPTIM/​src/tsvnWizard.pas?v​iew=diff&pathrev​=63&r1=62&r2​=63
====================​====================​====================​==================
--- branches/SOPTIM/src/​tsvnWizard.pas (original)
+++ branches/SOPTIM/src/​tsvnWizard.pas 2009-01-12 05:24:59-0800
@@ -154,12 +154,23 @@
 constructor TTortoiseSVN.Create;
 var
     reg: TRegistry;
+ keylist : TStringList;
 begin
     Reg := TRegistry.Create;
     try
         Reg.RootKey := HKEY_LOCAL_MACHINE;
         if Reg.OpenKeyReadOnly( '\SOFTWARE\TortoiseSVN' ) then
             TSVNPath:= Reg.ReadString( 'ProcPath' );
+ if Reg.OpenKeyReadOnly( '\SOFTWARE\CollabN​et\Subversion' ) then
+ begin
+ if Reg.HasSubKeys then
+ begin
+ keylist:= TStringList.Create;
+ Reg.GetKeyNames(keylist);
+ if Reg.OpenKeyReadOnly( '\SOFTWARE\CollabN​et\Subversion\'+ke​ylist[keylist.Count-​1]+'\Client') then
+ SVNPath:= Reg.ReadString( 'Install Location' )+'\svn.exe';
+ end;
+ end;
     finally
         Reg.CloseKey;
         Reg.Free;

« Previous message in topic | 1 of 1 | Next message in topic »

Messages

Show all messages in topic

svn commit: r63 - branches/SOPTIM/src/tsvnWizard.pas otto_noll Otto Noll 2009-01-12 05:24:59 PST
Messages per page: