UserResidents
Posted: Sat Jan 31, 2026 3:10 pm
Please allow constants (.res] files to be included from:
Thank you.
Code: Select all
../PureBasic/Residents/UserResidentsCode: Select all
../PureBasic/Residents/UserResidentsCode: Select all
#OriginalResFiles$ = "Expat.res Interface.res InterfaceDX.res OpenGL.res PureBasic.res Scintilla.res WebView2.res Windows.res"
Procedure IsOutputFilenameAnOriginal(SourceFilename$) ; BOOL
Protected outFile$
outFile$ = GetFilePart(SourceFilename$, #PB_FileSystem_NoExtension) + ".res" ; output filename !!
If FindString(#OriginalResFiles$, outFile$) ; <== Safety Check => don't overwrite the PB original residents files
ProcedureReturn #True
EndIf
ProcedureReturn #False
EndProcedure