PureBasic Forums - English

Posted: **Sat Aug 11, 2007 12:20 am**

How about my version

http://uk.geocities.com/charlie.pegwell ... /snake.bmp

Posted: **Sat Aug 11, 2007 5:15 am**

@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

Posted: **Sat Aug 11, 2007 2:17 pm**

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

Posted: **Sat Aug 11, 2007 2:24 pm**

That one looks great! Excellent, two thumbs up

Posted: **Sat Aug 11, 2007 2:27 pm**

Thank you

.

Posted: **Sat Aug 11, 2007 2:34 pm**

But it doesn't bite its tail.

Im wondering why only snakes are here.

Posted: **Mon Aug 13, 2007 7:16 pm**

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

Posted: **Tue Aug 14, 2007 7:51 am**

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.

Posted: **Tue Aug 14, 2007 11:07 am**

@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()

Posted: **Tue Aug 14, 2007 11:35 am**

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 !

Posted: **Tue Aug 14, 2007 3:02 pm**

Hi Gnozal,

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

Regards Klaus

Posted: **Tue Aug 14, 2007 3:22 pm**

ABBKlaus wrote:Hi Gnozal,

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

Yes, the path is correct now.
Thanks !

Posted: **Tue Aug 14, 2007 5:13 pm**

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!

c ya,
nco2k

Posted: **Thu Aug 16, 2007 7:56 am**

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

Posted: **Thu Aug 16, 2007 8:04 am**

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

PureBasic Forums - English

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