PureBasic Forums - English

Code: Select all

#ProgName$ = "Foo"
#Version$ = "1.00"
#Description$ = #PB_Editor_FileDescription  ; #PB_Editor_FileDescription contains the content of VersionField6.
#Copyright$ = "© Me 2026"

MessageRequester("Test", #Description$)

; IDE Options = PureBasic 6.30 (Windows - x64)
; EnableXP
; EnableUser
; DPIAware
; DllProtection
; EnableExeConstant
; IncludeVersionInfo
; VersionField6 = MyDescription

Code: Select all

CompilerIf Not Defined(PB_Editor_FileDescription, #PB_Constant)

#PB_Editor_FileDescription = "Default description"
; (...)
; other constants imported from the PureBasic IDE
; 
CompilerEndIf

Code: Select all

; set #compile_as_demo=1 in the project target's or standalone source file's compiler options
CompilerIf Not Defined(compile_as_demo, #PB_Constant)
; here is default behavior
; before we want to turn off features in a demo, we want to focus on creating them first ;o)
; by default the full version should compile
;
; things only available in full version:
XInclude "full_version_fix.pb" 
;
CompilerElseIf Not #compile_as_demo  ; (same as =0)
; here the constant was set in the IDE either in the project target's settings or in the standalone source file (main source file)
; or it was manually set with /constant parameter
; or you defined it earlier in the code, but forgot about it ;)
;
; things only available in full version
XInclude "full_version_fix.pb"
;
CompilerElse
; constant was manually set to be non-zero in the IDE or manually with parameter, this means we want to build the demo version
;
XInclude "demo_version_fix.pb"
;
CompilerEndif 

; demo & full versions shared code continues here

Code: Select all

Defined(..., #PB_Constant)

Code: Select all

; CmdLine compile: D:\PureBasic\Portable\PureBasic_Windows_X64_6.30\Compilers\pbcompiler.exe D:\PureBasic\Test\_Test.pb /EXE D:\PureBasic\Test\_Test.exe /XP /DPIAWARE

#ThisSourceFile$ = "D:\PureBasic\Test\_Test.pb"
#IDEOptions$ = "; IDE Options = PureBasic"

CompilerIf Defined(PB_Editor_FileDescription, #PB_Constant) ; Change to an unknown constant for debugging
  Description$ = #PB_Editor_FileDescription
  Description$ = "FileDescription (IDE compile) = " + Description$
CompilerElse
  If PeekA(?SourceFile) = $EF And PeekA(?SourceFile+1) = $BB And PeekA(?SourceFile+2) = $BF ; Detect BOM UTF-8
    Source$ = PeekS(?SourceFile, -1, #PB_UTF8)
  Else
    Source$ = PeekS(?SourceFile, -1, #PB_Ascii)
  EndIf
  
  Pos = FindString(Source$, #IDEOptions$, 2)
  If Pos
    Pos = FindString(Source$, #IDEOptions$, Pos+25)
    If Pos
      Source$=Mid(Source$, Pos)
      
      Pos = FindString(Source$, "VersionField6", 2)
      If Pos
        Pos2 = FindString(Source$, #CRLF$, Pos+16)
        If Pos2
          Description$ = Mid(Source$, Pos+16, Pos2-Pos-16)
        Else
          Description$ = Mid(Source$, Pos+16)
        EndIf
        Description$ = "FileDescription (CmdLine compile) = " + Description$
      EndIf
    EndIf
  EndIf
  
  DataSection
    SourceFile:
    IncludeBinary #ThisSourceFile$
    Data.b 0
  EndDataSection
CompilerEndIf

MessageRequester("Test PB FileDescription", Description$)

; IDE Options = PureBasic 6.30 (Windows - x64)
; EnableXP
; DPIAware
; Executable = _test.exe
; IncludeVersionInfo
; VersionField6 = MyDescription