TailBite V1.3 for PB4.0X+PB4.10+PB4.20

TailBite specific forum

Moderators: gnozal, ABBKlaus, lexvictory

Post Reply
dontmailme
Enthusiast
Enthusiast
Posts: 537
Joined: Wed Oct 29, 2003 10:35 am

Post by dontmailme »

How about my version :)

http://uk.geocities.com/charlie.pegwell ... /snake.bmp
Paid up PB User !
Top
User avatar
nco2k
Addict
Addict
Posts: 1344
Joined: Mon Sep 15, 2003 5:55 am

Post by nco2k »

@ABBKlaus
[13] AUG 9th 2007 TailBite v1.3 PR 1.851
- fixed install problem where PBCompiler.exe reports version <4.00 (Falco)
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
Top
Inf0Byt3
PureBasic Fanatic
PureBasic Fanatic
Posts: 2236
Joined: Fri Dec 09, 2005 12:15 pm
Location: Elbonia

Post by Inf0Byt3 »

Looks cool. It's stylish. What about this?

Image
None are more hopelessly enslaved than those who falsely believe they are free. (Goethe)
Top
User avatar
netmaestro
PureBasic Bullfrog
PureBasic Bullfrog
Posts: 8451
Joined: Wed Jul 06, 2005 5:42 am
Location: Fort Nelson, BC, Canada

Post by netmaestro »

That one looks great! Excellent, two thumbs up 8)
BERESHEIT
Top
Inf0Byt3
PureBasic Fanatic
PureBasic Fanatic
Posts: 2236
Joined: Fri Dec 09, 2005 12:15 pm
Location: Elbonia

Post by Inf0Byt3 »

Thank you :D.
None are more hopelessly enslaved than those who falsely believe they are free. (Goethe)
Top
JCV
Enthusiast
Enthusiast
Posts: 580
Joined: Fri Jun 30, 2006 4:30 pm
Location: Philippines

Post by JCV »

But it doesn't bite its tail. :lol:

Im wondering why only snakes are here. :P

Image

[Registered PB User since 2006]
[PureBasic 6.20][SpiderBasic 2.2]
[RP4 x64][Win 11 x64][Ubuntu x64]
Top
ABBKlaus
Addict
Addict
Posts: 1143
Joined: Sat Apr 10, 2004 1:20 pm
Location: Germany

Post by ABBKlaus »

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
[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
@nco2k
the installation works fine, but i have that problem with TBManager.exe & TailBite.exe.
when this update does not fix your problem, could you pm me your TailBite.prefs file located in %APPDATA% or in your TailBite folder.

see first post for more details.

Regards Klaus
Top
gnozal
PureBasic Expert
PureBasic Expert
Posts: 4229
Joined: Sat Apr 26, 2003 8:27 am
Location: Strasbourg / France
Contact:
Contact gnozal

Post by gnozal »

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.
For free libraries and tools, visit my web site (also home of jaPBe V3 and PureFORM).
Top
ABBKlaus
Addict
Addict
Posts: 1143
Joined: Sat Apr 10, 2004 1:20 pm
Location: Germany

Post by ABBKlaus »

@gnozal,

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()
could you check what´s in your registry and what OS is returned ?
Anyway, could you provide Tailbite as a ZIP archive (including source)
i will create a zip archive containing all needed files in http://www.tailbite.com/downloads/src/TailBite.zip

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.
Top
gnozal
PureBasic Expert
PureBasic Expert
Posts: 4229
Joined: Sat Apr 26, 2003 8:27 am
Location: Strasbourg / France
Contact:
Contact gnozal

Post by gnozal »

Hi Klaus, your code detected Win9x/Me, but I have WinNT4 ...

Code: Select all

Debug #PB_OS_Windows_95
Debug #PB_OS_Windows_NT_4
Debug #PB_OS_Windows_ME
Debug wrote:10
20
40
I use the following code :

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
Thanks !
For free libraries and tools, visit my web site (also home of jaPBe V3 and PureFORM).
Top
ABBKlaus
Addict
Addict
Posts: 1143
Joined: Sat Apr 10, 2004 1:20 pm
Location: Germany

Post by ABBKlaus »

Hi Gnozal,

i changed my routine, could you redownload the latest version and test it :wink:

Regards Klaus
Top
gnozal
PureBasic Expert
PureBasic Expert
Posts: 4229
Joined: Sat Apr 26, 2003 8:27 am
Location: Strasbourg / France
Contact:
Contact gnozal

Post by gnozal »

ABBKlaus wrote:Hi Gnozal,

i changed my routine, could you redownload the latest version and test it :wink:
Yes, the path is correct now.
Thanks !
For free libraries and tools, visit my web site (also home of jaPBe V3 and PureFORM).
Top
User avatar
nco2k
Addict
Addict
Posts: 1344
Joined: Mon Sep 15, 2003 5:55 am

Post by nco2k »

ABBKlaus wrote:@nco2k
the installation works fine, but i have that problem with TBManager.exe & TailBite.exe.
when this update does not fix your problem, could you pm me your TailBite.prefs file located in %APPDATA% or in your TailBite folder.
no need. works fine now. thanks! :wink:

c ya,
nco2k
If OSVersion() = #PB_OS_Windows_ME : End : EndIf
Top
User avatar
Progi1984
Addict
Addict
Posts: 806
Joined: Fri Feb 25, 2005 1:01 am
Location: France > Rennes
Contact:
Contact Progi1984

Post by Progi1984 »

Hi, thank you for your job....

Is it possible to have a parameter which permits to define the path and filename of the userlib ? "\output" by examples
Top
ABBKlaus
Addict
Addict
Posts: 1143
Joined: Sat Apr 10, 2004 1:20 pm
Location: Germany

Post by ABBKlaus »

Progi1984 wrote:Hi, thank you for your job....

Is it possible to have a parameter which permits to define the path and filename of the userlib ? "\output" by examples
i think i don´t understand what you want, could you pm me in german :)
Top
Post Reply

Return to “TailBite”