SetResolution(width,height,bit,freq)

Blitz3D Forums/Blitz3D Userlibs/SetResolution(width,height,bit,freq)

hi silva, not off topic at all! b3dx2 actually fixes the alt-tab bug with this modification...

i checked B3D_WindowHack and it still works with the actual blitz version... maybe the howto is a little bit outdated ?!?

anyway, i found the code - so here it is ;)


Graphics 640,480,0,2

CopyFile "runtime.dll","runtime_backup.dll" ;dont run it twice or your backup is gone...
fil=OpenFile("runtime.dll")
siz=FileSize("runtime.dll")

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

SeekFile fil,pos
WriteByte fil,$00
CloseFile fil

Print ""
Print "Changing byte "+pos+" (value $10) to $00"
Print "Done. Press any key to continue."
WaitKey()