Code : Tout sélectionner
OpenHelp( ?Helpp, "")
DataSection
helpp:
IncludeBinary #chem2+"help.chm"
end_helpp:
EndDataSection

Code : Tout sélectionner
OpenHelp( ?Helpp, "")
DataSection
helpp:
IncludeBinary #chem2+"help.chm"
end_helpp:
EndDataSection
Code : Tout sélectionner
CreateFile(#mf, #chem2+"help2.chm")
For index = ?helpp To ?end_helpp
WriteByte(#mf,PeekB(index))
Next
CloseFile(#mf)