wenn man verschiedene Xbase++ Versionen installiert hat z.b v1.9 und SL1 so muss man
innerhalb von VX über "Tools -> Environment -> TAB Directories" die PATH eintragen sonst
läuft XV evtl. wegen DLL "Fehler" nicht.
Also hab ich hier ein kleines Tool was es für mich erledigt. Die PATH muss entsprechend
eureren Verzeichnissen angepasst werden.
Code: Alles auswählen
PROCEDURE MAIN(cLW)
LOCAL cSuch := "HKEY_CURRENT_USER\Software\Alaska Software\Visual Xbase++\2.0\Directories"
LOCAL oReg
LOCAL aSubkeys
LOCAL i,iMax
LOCAL cRet
LOCAL aDir := {"ExecutablePath","HelpPath","IncludePath","LibraryPath","ResourcePath"}
IF PCOUNT() = 0
MSGBOX("XVpath <[ Drive ]> ")
QUIT
ENDIF
oReg := XbpReg():NEW(cSuch)
IF oReg:Status()
oReg:ReadBinType := "C"
iMax := LEN(aDir)
FOR i = 1 TO iMax
cRet := oReg:GetValue(aDir[i])
DO CASE
CASE cLW = "C"
cRet := STRTRAN(cRet,"D:\ALASKA","C:\ALASKA")
? oReg:SetValue(aDir[i],cRet)
CASE cLW = "D"
cRet := STRTRAN(cRet,"C:\ALASKA","D:\ALASKA")
cRet := STRTRAN(cRet,"E:\ALASKA","D:\ALASKA")
? oReg:SetValue(aDir[i],cRet)
CASE cLW = "E"
cRet := STRTRAN(cRet,"D:\ALASKA","E:\ALASKA")
? oReg:SetValue(aDir[i],cRet)
OTHERWISE
ENDCASE
NEXT
ELSE
MSGBOX("no Regkey "+cSuch)
ENDIF
RETURN