Supafly Blitz3D Window!!!

Blitz3D Forums/Blitz3D Programming/Supafly Blitz3D Window!!!

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Hmm. Doesn't sound so good :/

Well you can always include a Win95/98 version of your app.

Here's a proggie to patch your runtimedll for you:
Graphics 640,480,0,2

CopyFile "runtime.dll","runtime_backup.dll"

fil=OpenFile("runtime.dll")
siz=FileSize("runtime.dll")

For i=0 To siz
	byt=ReadByte(fil)
	If Frst=True Then
		If scnd=True Then
			If byt=$8B Then
				pos=i-1
				Exit
			Else
				scnd=False
				If byt<>$CA Then frst=False
			EndIf
		ElseIf byt=$10 Then
			scnd=True
		Else
			If byt<>$CA Then Frst=False
		EndIf
	ElseIf byt=$CA Then
		Frst=True
	EndIf	
Next

Print "Changing byte "+pos+" (value $10) to $00"

SeekFile fil,pos
WriteByte fil,$00

CloseFile fil

Print "Done. Press any key to continue."


You have to compile this to an exe in blitz\bin, and then run.

And a handy function:
Function AppName(title$,close_prompt$="")
	AppTitle title$,close_prompt$
	hwnd=FindWindow("Blitz Runtime Class",title$)
	ShowWindow hwnd,5
End Function


A tip, if you resize the app in program then set ShowWindow Hwnd,0 then resize, and then set ShowWindow Hwnd,5.