Try creating file.rc with this:
Code: Select all
dim as string s
s+=chr(13,10)
s+=chr(13,10)
s+="1 VERSIONINFO"+chr(13,10)
s+="FILEVERSION 1,0,0,0"+chr(13,10)
s+="PRODUCTVERSION 1,0,0,0"+chr(13,10)
s+="BEGIN"+chr(13,10)
s+=" BLOCK "+chr(34)+"StringFileInfo"+chr(34)+chr(13,10)
s+=" BEGIN"+chr(13,10)
s+=" BLOCK ""080904E4"""+chr(13,10)
s+=" BEGIN"+chr(13,10)
s+=" VALUE ""CompanyName"", ""Some company"""+chr(13,10)
s+=" VALUE ""FileDescription"", ""Some description"""+chr(13,10)
s+=" VALUE ""FileVersion"", ""1.0"""+chr(13,10)
s+=" VALUE ""InternalName"", ""Some file name"""+chr(13,10)
s+=" VALUE ""LegalCopyright"", ""Some copyright"""+chr(13,10)
s+=" VALUE ""OriginalFilename"", ""shell.exe"""+chr(13,10)
s+=" VALUE ""ProductName"", ""Some product name"""+chr(13,10)
s+=" VALUE ""ProductVersion"", ""1.0"""+chr(13,10)
s+=" END"+chr(13,10)
s+=" END"+chr(13,10)
s+=chr(13,10)
s+=" BLOCK ""VarFileInfo"""+chr(13,10)
s+=" BEGIN"+chr(13,10)
s+=" VALUE ""Translation"", 0x809, 1252"+chr(13,10)
s+=" END"+chr(13,10)
s+="END"+chr(13,10)
function savefile(filename As String,p As String) as string
Dim As long n=freefile
If Open (filename For Binary Access Write As #n)=0 Then
Put #n,,p
Close
Else
Print "Unable to save " + filename:sleep:end
End If
return filename
End function
savefile("file.rc",s)
should be about 596 bytes.
If you still have problems try removing the chr(13,10) from the end
i.e.
s+="END"
Did anybody else have problems with this?