BlitzMax Executables

Import BRL.FileSystem
Import PUB.stdc
Strict
if AppArgs.length < 2 then
	Print "Invalid argument count"
	Print "Usage:IconMaker filename"
	Print "Number of arguments = "+AppArgs.length
	End
Endif
local iconfilename:String= AppArgs[1]
if FileType(iconfilename)<>1 then
	Print iconfilename +" does not exists or is not a file"
	end
end if
local rcfilename:String= stripall(iconfilename)+".rc"
Print "Creating RC File:"+rcfilename
if createfile(rcfilename) then
	Print "File Created"
	local f:TStream=openfile(rcfilename)
	f.WriteLine("1 ICON ~q"+iconfilename+"~q")
	closefile f
end if

Print "Executing Windres to create Object file"
local objfilename:String=stripext(rcfilename)+".o";
local command:string="windres -i ~q"+rcfilename+"~q -o ~q"+objfilename+"~q"
print command
if system_(command)=0 then
	Print "Created "+objfilename
	Print "Add "
	Print "Import ~q"+objfilename+"~q" 
	Print "to your BMX project to link in icon"
end if

Import "your.o"