blitzCC problem

blitzcc$ = "D:\Programme\Blitz3D\"

CompileToExe("program.bb", blitzcc$)

Function CompileToExe(path$, blitzcc$)
blitzcc$ = Replace(blitzcc$, "/", "\")
If Right(blitzcc$, 1) <> "\" Then blitzcc$ = blitzcc$ + "\"
ExecFile blitzcc$ + "Bin\blitzcc.exe " + Chr(34) + path$ + Chr(34)
End Function

Print "Hello world!"
RuntimeError "Hello world!"
End

ExecFile ""+chr(34)+"C:/Program Files/Blitz3D/bin/blitzcc.exe"+chr(34)+" "+chr(34)+"C:/test.bb"+chr(34)+""

blitzcc$ = "C:/Program Files/Blitz3D/"

CompileToExe("test.bb", blitzcc$)
End

Function CompileToExe(path$, blitzcc$)
	blitzcc$ = Replace(blitzcc$, "/", "\")
	If Right(blitzcc$, 1) <> "\" Then blitzcc$ = blitzcc$ + "\"

	blitzcc$=Chr$(34)+blitzcc$+"Bin\blitzcc.exe " + Chr(34) + path$ + Chr(34)+Chr$(34)
	ExecFile(blitzcc$)
End Function

ExecFile(chr$(34)+"C:/Program Files/Blitz3D/bin/blitzcc.exe"+chr$(34)+" "+chr$(34)+"C:/test.bb"+chr$(34))

blitzcc$ = "C:\Program Files\Blitz3D\"

CompileToExe("test.bb", blitzcc$)
End

Function CompileToExe(path$, blitzcc$)
	blitzcc$ = Replace(blitzcc$, "/", "\")
	If Right(blitzcc$, 1) <> "\" Then blitzcc$ = blitzcc$ + "\"

	blitzcc$=Chr$(34)+blitzcc$+"Bin\blitzcc.exe "+Chr(34)+"-o test.exe "+path$+Chr(34)+Chr$(34)

	ExecFile(blitzcc$)
End Function

ff = WriteFile("test.bb")
WriteLine ff, "cls"
WriteLine ff, "print " + Chr$(34) + "hello world" + Chr$(34)
WriteLine ff, "waitkey"
WriteLine ff, "end"
CloseFile ff

ExecFile Chr$(34) + "c:\program files\blitz3d\bin\blitzcc" + Chr$(34) + " " + Chr$(34) + CurrentDir$() + "test.bb" + Chr$(34)

Include "guideexportinclude.bb"
AppTitle "EditWindow"
Global path$
config=OpenFile("config.ini")
bbpath$=ReadLine(config)

SetEnv "blitzpath",bbpath$

Global EditWindow
Global lblLabel0
Global chbCheckBox0
Global chbCheckBox
Global chbCheckBox2
Global tfdTextField0
Global lblLabel1
Global btnButton0
Global btnButton1
Global lblLabel2
Global compress
Global debugger
Global crexe
Global ready=0
Global tocompile$

Const GWL_WNDPROC         = (-4)
Const GWL_HINSTANCE       = (-6)
Const GWL_HWNDPARENT      = (-8)
Const GWL_STYLE           = (-16)
Const GWL_EXSTYLE         = (-20)
Const GWL_USERDATA        = (-21)
Const GWL_ID              = (-12)


Const WS_OVERLAPPED       = $00000000
Const WS_POPUP            = $80000000
Const WS_CHILD            = $40000000
Const WS_MINIMIZE         = $20000000
Const WS_VISIBLE          = $10000000
Const WS_DISABLED         = $08000000
Const WS_CLIPSIBLINGS     = $04000000
Const WS_CLIPCHILDREN     = $02000000
Const WS_MAXIMIZE         = $01000000
Const WS_CAPTION          = $00C00000
Const WS_BORDER           = $00800000
Const WS_DLGFRAME         = $00400000
Const WS_VSCROLL          = $00200000
Const WS_HSCROLL          = $00100000
Const WS_SYSMENU          = $00080000
Const WS_THICKFRAME       = $00040000
Const WS_GROUP            = $00020000
Const WS_TABSTOP          = $00010000

Const WS_MINIMIZEBOX      = $00020000
Const WS_MAXIMIZEBOX      = $00010000


EditWindow=CreateWindow("Ext Compiler",10,10,287,383,0,+1 +4)



ownhwnd = QueryObject(EditWindow, 1)

SetWindowLong(ownhwnd, GWL_STYLE, WS_VISIBLE Or WS_CLIPSIBLINGS Or WS_CLIPCHILDREN Or WS_BORDER Or WS_DLGFRAME Or WS_SYSMENU Or WS_MINIMIZEBOX)
HideGadget EditWindow
ShowGadget EditWindow

menu1 = CreateMenu(bbpath$, 1, WindowMenu(EditWindow))

UpdateWindowMenu EditWindow


InitAcceptFiles(GetActiveWindow())
AcceptFiles True 

	lblLabel0=CreateLabel("Ext Compiler",16,8,72,16,EditWindow,0)
		SetGadgetLayout lblLabel0,1,0,1,0
	chbCheckBox0=CreateButton("Compress with UPX",16,128,112,16,EditWindow,2)
		SetGadgetLayout chbCheckBox0,1,0,1,0
	chbCheckBox1=CreateButton("Compile with Debugger",16,152,126,16,EditWindow,2)
		SetGadgetLayout chbCheckBox1,1,0,1,0
	chbCheckBox2=CreateButton("Create EXE-File",16,176,96,16,EditWindow,2)
		SetGadgetLayout chbCheckBox2,1,0,1,0
	tfdTextField0=CreateTextField(136,216,96,20,EditWindow)
		;SetGadgetText tfdTextField0,"textfield"
		SetGadgetLayout tfdTextField0,1,0,1,0
	lblLabel1=CreateLabel("Enter Commandline",24,216,92,16,EditWindow,0)
		SetGadgetLayout lblLabel1,1,0,1,0
	btnButton0=CreateButton("Compile",40,296,64,24,EditWindow,1)
		SetGadgetLayout btnButton0,1,0,1,0
	btnButton1=CreateButton("Change output dir",136,176,96,16,EditWindow,1)
		SetGadgetLayout btnButton1,1,0,1,0
	lblLabel2=CreateLabel("Drag the bb file into this window.",24,32,158,16,EditWindow,0)
		SetGadgetLayout lblLabel2,1,0,1,0
	bbfilelabel=CreateLabel("-",24,56,196,20,EditWindow,3)
			sepLine0=CreateLine( "Settings",0,100,272,18,EditWindow,0)
			
			
;SetStatusText EditWindow,path$
;-mainloop--------------------------------------------------------------

Repeat


			If ready=0 DisableGadget(btnButton0)
			If ready=1 EnableGadget(btnButton0)
 			Local c = AcceptedFileCount()

   			For i= 0 To c-1
     			tocompile$=AcceptedFile(i)
	  			rightst$=Right(tocompile$,4)
	  			If Not Right(tocompile$,3)=".bb" Or rightst$=".txt" Or rightst$="bak1" Or rightst$="bak2"
					tocompile$="Only *.bb or *.txt files!"
					SetGadgetText(bbfilelabel,tocompile$)
					ready=0
	  			Else
					oldpos=1
					backslashpos=0
					succes=0
					Repeat
						backslashpos=Instr(tocompile$,"\",oldpos)
						If backslashpos=0 Then succes=1:Exit Else oldpos=backslashpos+1
					Forever
					If succes=1 Then  shorttocompile$=Mid(tocompile$,oldpos)
						SetGadgetText(bbfilelabel,"-"+shorttocompile$)
						ready=1
				EndIf  
   			Next


	id=WaitEvent()
	Select id
		Case $401									; interacted with gadget
			DoGadgetAction( EventSource() )
		Case $803									; close gadget
			Exit
	End Select
Forever


;-gadget actions--------------------------------------------------------

Function DoGadgetAction( gadget )
	Select gadget
		Case chbCheckBox0	; user changed checkbox
		compress=compress+1
		If compress>1 Then compress=0
		Case chbCheckBox1	; user changed checkbox
		debugger=debugger+1
		If debugger>1 Then debugger=0
		Case chbCheckBox2	; user changed checkbox
		crexe=crexe+1
		If crexe>1 Then crexe=0
		Case tfdTextField0
			If EventData() = 13 Then	; user pressed return in textfield
			EndIf

		Case btnButton0	; user pressed button => Compile
		add$=""
		If ready=1
		add$=tocompile$
		If debugger=1 Then add$=add$+" -d"
		If crexe=1 Then add$=add$+" -o"


		CopyFile (tocompilefile$,CurrentDir()+"temp.bb")

		toto$=CurrentDir()+"temp.bb"
		CompileToExe(toto$,bbpath$)

		Else
		Notify ("This should never happen!")
		EndIf 

		Case btnButton1	; user pressed button => Change
		savetodir$=RequestDir()


	End Select
End Function


Function CompileToExe(path$, blitzcc$)
	blitzcc$ = Replace(blitzcc$, "/", "\")
	If Right(blitzcc$, 1) <> "\" Then blitzcc$ = blitzcc$ + "\"

	blitzcc$=Chr$(34)+blitzcc$+"Bin\blitzcc.exe "+Chr(34)+"-o test.exe "+path$+Chr(34)+Chr$(34)
	ExecFile(blitzcc$)
End Function

Function CompileToExe(path$, blitzcc$)
	blitzcc$ = Replace(blitzcc$, "/", "\")
	If Right(blitzcc$, 1) <> "\" Then blitzcc$ = blitzcc$ + "\"

	blitzcc$=Chr$(34) + blitzcc$ + "Bin\blitzcc.exe" + Chr$(34) + " -o test.exe " + Chr$(34) + path$ + Chr(34)
	ExecFile(blitzcc$)
End Function