TailBite V1.3 for PB4.0X+PB4.10+PB4.20
Moderators: gnozal, ABBKlaus, lexvictory
- netmaestro
- PureBasic Bullfrog
- Posts: 8433
- Joined: Wed Jul 06, 2005 5:42 am
- Location: Fort Nelson, BC, Canada
new version is out : V1.3 PR 1.852
thanks to all the contributors for the nice icons (netmaestro/Inf0Byt3).
All icons are taken in src.pack
see first post for more details.
Regards Klaus
thanks to all the contributors for the nice icons (netmaestro/Inf0Byt3).
All icons are taken in src.pack
@nco2k[14] AUG 13th 2007 TailBite v1.3 PR 1.852
- fixed problem where the PureBasic registry key was not found (nco2k)
- fixed problem with usb-stick installation
when this update does not fix your problem, could you pm me your TailBite.prefs file located in %APPDATA% or in your TailBite folder.the installation works fine, but i have that problem with TBManager.exe & TailBite.exe.
see first post for more details.
Regards Klaus
-
- PureBasic Expert
- Posts: 4229
- Joined: Sat Apr 26, 2003 8:27 am
- Location: Strasbourg / France
- Contact:
Sorry ABBKlaus, but I have some problems with this new installer :
- it doesn't detect my PB directory ('Purebasic folder' string gadget is empty)
- I can't set it manually : it doesn't work correctly. If it set it to 'c:\purebasic400\', it installs the files to .\Tailbite ?!
Anyway, could you provide Tailbite as a ZIP archive (including source), because downloading an EXE file (blocked here) and then extracting the pack is not very convenient to me.
Thanks.
- it doesn't detect my PB directory ('Purebasic folder' string gadget is empty)
- I can't set it manually : it doesn't work correctly. If it set it to 'c:\purebasic400\', it installs the files to .\Tailbite ?!
Anyway, could you provide Tailbite as a ZIP archive (including source), because downloading an EXE file (blocked here) and then extracting the pack is not very convenient to me.
Thanks.
For free libraries and tools, visit my web site (also home of jaPBe V3 and PureFORM).
@gnozal,
now this is the bug corrected version :
could you check what´s in your registry and what OS is returned ?
Regards Klaus
Edit : Put in the bug corrected version of GetPBFolder()
now this is the bug corrected version :
Code: Select all
Procedure.s GetPBFolder()
Protected hKey1.l, Type.l, Res.l, Folder$, lpbData.l, cbData.l
cbData = (#MAX_PATH*2)+2
lpbData = AllocateMemory(cbData)
Folder$=""
hKey1=0
Type=0
Res=-1
Select OSVersion()
Case #PB_OS_Windows_95,#PB_OS_Windows_98,#PB_OS_Windows_ME
Debug "Detected OS : Windows 95/98/ME"
Res=RegOpenKeyEx_(#HKEY_LOCAL_MACHINE, "Software\Classes\PureBasic.exe\shell\open\command", 0, #KEY_ALL_ACCESS, @hKey1)
Case #PB_OS_Windows_NT3_51,#PB_OS_Windows_NT_4,#PB_OS_Windows_2000,#PB_OS_Windows_XP,#PB_OS_Windows_Server_2003
Debug "Detected OS : Windows NT/2000/XP"
Res=RegOpenKeyEx_(#HKEY_CLASSES_ROOT, "Applications\PureBasic.exe\shell\open\command", 0, #KEY_ALL_ACCESS, @hKey1)
Case #PB_OS_Windows_Vista,#PB_OS_Windows_Server_2008,#PB_OS_Windows_Future
Debug "Detected OS : Windows Vista/Server 2008"
Res=RegOpenKeyEx_(#HKEY_CURRENT_USER, "Software\Classes\PureBasic.exe\shell\open\command", 0, #KEY_ALL_ACCESS , @hKey1)
EndSelect
If Res = #ERROR_SUCCESS
If RegQueryValueEx_(hKey1, "", 0, @Type, lpbData, @cbData)=#ERROR_SUCCESS
Folder$ = PeekS(lpbData)
Folder$ = GetPathPart(Mid(Folder$, 2, Len(Folder$)-7))
EndIf
RegCloseKey_(hKey1)
EndIf
If lpbData
FreeMemory(lpbData)
lpbData=0
EndIf
ProcedureReturn Folder$
EndProcedure
Debug GetPBFolder()
i will create a zip archive containing all needed files in http://www.tailbite.com/downloads/src/TailBite.zipAnyway, could you provide Tailbite as a ZIP archive (including source)
Regards Klaus
Edit : Put in the bug corrected version of GetPBFolder()
Last edited by ABBKlaus on Tue Aug 14, 2007 10:16 pm, edited 1 time in total.
-
- PureBasic Expert
- Posts: 4229
- Joined: Sat Apr 26, 2003 8:27 am
- Location: Strasbourg / France
- Contact:
Hi Klaus, your code detected Win9x/Me, but I have WinNT4 ...
Thanks !
Code: Select all
Debug #PB_OS_Windows_95
Debug #PB_OS_Windows_NT_4
Debug #PB_OS_Windows_ME
I use the following code :Debug wrote:10
20
40
Code: Select all
Procedure.s GetPurebasicFolder() ; Retrieves Purebasic folder [empty string if not installed]
Protected hKey1.l, Type.l, cbData.l, *lpbData, Folder.s
cbData = (#MAX_PATH * 2) + 2
*lpbData = AllocateMemory(cbData)
If *lpbData
If GetVersion_() & $FF0000 ; Windows NT/XP
If RegOpenKeyEx_(#HKEY_CLASSES_ROOT, "Applications\PureBasic.exe\shell\open\command", 0, #KEY_ALL_ACCESS, @hKey1) = #ERROR_SUCCESS
If RegQueryValueEx_(hKey1, "", 0, @Type, *lpbData, @cbData) = #ERROR_SUCCESS
If *lpbData
Folder = PeekS(*lpbData)
Folder = GetPathPart(Mid(Folder, 2, Len(Folder) - 7))
EndIf
EndIf
RegCloseKey_(hKey1)
EndIf
If Folder = "" ; VISTA ... ?
If RegOpenKeyEx_(#HKEY_CURRENT_USER, "Software\Classes\PureBasic.exe\shell\open\command", 0, #KEY_ALL_ACCESS, @hKey1) = #ERROR_SUCCESS
If RegQueryValueEx_(hKey1, "", 0, @Type, *lpbData, @cbData) = #ERROR_SUCCESS
If *lpbData
Folder = PeekS(*lpbData)
Folder = GetPathPart(Mid(Folder, 2, Len(Folder) - 7))
EndIf
EndIf
RegCloseKey_(hKey1)
EndIf
EndIf
Else ; The same for Win9x
If RegOpenKeyEx_(#HKEY_LOCAL_MACHINE, "Software\Classes\PureBasic.exe\shell\open\command", 0, #KEY_ALL_ACCESS, @hKey1) = #ERROR_SUCCESS
If RegQueryValueEx_(hKey1, "", 0, @Type, *lpbData, @cbData) = #ERROR_SUCCESS
If *lpbData
Folder = PeekS(*lpbData)
Folder = GetPathPart(Mid(Folder, 2, Len(Folder) - 7))
EndIf
EndIf
RegCloseKey_(hKey1)
EndIf
EndIf
FreeMemory(*lpbData)
EndIf
ProcedureReturn Folder
EndProcedure
For free libraries and tools, visit my web site (also home of jaPBe V3 and PureFORM).
-
- PureBasic Expert
- Posts: 4229
- Joined: Sat Apr 26, 2003 8:27 am
- Location: Strasbourg / France
- Contact:
Yes, the path is correct now.ABBKlaus wrote:Hi Gnozal,
i changed my routine, could you redownload the latest version and test it
Thanks !
For free libraries and tools, visit my web site (also home of jaPBe V3 and PureFORM).
no need. works fine now. thanks!ABBKlaus wrote:@nco2kwhen this update does not fix your problem, could you pm me your TailBite.prefs file located in %APPDATA% or in your TailBite folder.the installation works fine, but i have that problem with TBManager.exe & TailBite.exe.
c ya,
nco2k
If OSVersion() = #PB_OS_Windows_ME : End : EndIf