Supafly Blitz3D Window!!!

Here is my version. I used Blitz+, so there is no need for a DLL:
http://www.leadwerks.com/post/BlitzEXEHacker.zip

Now what would be cool is if someone could hack in an icon, and eliminate the need to use ResHacker.

Repeat

	path$=RequestFile("Modify Executable","exe")
	If path="" Exit
	;Print "Modifying "+Chr(34)+path+Chr(34)+"..."
	fil=OpenFile(Path$)
	If fil
		siz=FileSize(Path$)
		For i=0 To siz
			byt=ReadByte(fil)
			If Frst
				If scnd
					If byt=$8B
						pos=i-1
						Exit	
					Else
						scnd=False
						If byt<>$CA frst=False
					EndIf
				ElseIf byt=$10
					scnd=True
				Else
					If byt<>$CA Frst=False
				EndIf
			ElseIf byt=$CA
				Frst=True
			EndIf	
		Next
		SeekFile fil,pos
		WriteByte fil,$00
		CloseFile fil
		EndIf
	
	Forever

;Print "Done."
;WaitKey
End