PureBasic Forums - English

Code: Select all

fix$ = GetPathPart(ProgramFilename())

Path$ = fix$ + "PureBasic\PureBasic.exe"

Working$ = fix$ + "PureBasic\"  

arg$ = ProgramParameter() + Chr(32)

Param$ = "/P " + Chr(34) + fix$ + "Preferences\PureBasic.prefs" + Chr(34) + 
         "/T " + Chr(34) + fix$ + "Preferences\Templates.prefs" + Chr(34) + 
         "/H " + Chr(34) + fix$ + "Preferences\History.db" + Chr(34) +  
         "/A " + Chr(34) + fix$ + "Preferences\Tools.prefs" + Chr(34) +
         "/NOEXT" + Chr(34) 

If Not RunProgram(Path$, arg$ + Param$, Working$)
  MessageRequester("PureBasic Application Not Found..","Please be sure that PureBasic is installed in the correct location.", #PB_MessageRequester_Warning | #PB_MessageRequester_Ok)
  ;Result = RunProgram(Filename$ [, Parameter$, WorkingDirectory$ [, Flags [, SenderProgram]]])
EndIf

Code: Select all

; To Compile in PB_Launcher_Path\Compilers\pbcompiler.exe"
fix$ = GetPathPart(ProgramFilename())

Path$ = fix$ + "..\PureBasic\Compilers\pbcompiler.exe"

For I = 0 To CountProgramParameters() - 1
  If FindString(ProgramParameter(I), Chr(32))
    arg$ + Chr(34) + ProgramParameter(I) + Chr(34) + Chr(32)
  Else
    arg$ + ProgramParameter(I) + Chr(32)
  EndIf
Next

;If Not RunProgram(Path$, arg$, "", #PB_Program_Hide | #PB_Program_Wait)
;  MessageRequester("PureBasic Compiler Not Found..","Please be sure that PureBasic is installed in the correct location.", #PB_MessageRequester_Warning | #PB_MessageRequester_Ok)
;  End 1
;EndIf

Compiler = RunProgram(Path$, arg$, "", #PB_Program_Hide | #PB_Program_Open | #PB_Program_Read)
If Compiler
  While ProgramRunning(Compiler)
    If AvailableProgramOutput(Compiler)
      LastProgramString$ = ReadProgramString(Compiler)
    EndIf
  Wend
  If ProgramExitCode(Compiler) <> 0
    CloseProgram(Compiler)
    MessageRequester("Warning", "Fail to compile:" +#CRLF$+ "PBcompiler.exe " + arg$  + #CRLF$+#CRLF$+ LastProgramString$, #PB_MessageRequester_Warning|#PB_MessageRequester_Ok)
    End 1
  Else
    CloseProgram(Compiler)
    End 0
  EndIf
Else
  MessageRequester("Warning", "Fail to compile:" +#CRLF$+ "PBcompiler.exe " + arg$, #PB_MessageRequester_Warning|#PB_MessageRequester_Ok)
  End 1
EndIf

Code: Select all

PBRegCommand = ReadRegSZKey(#HKEY_CLASSES_ROOT, "PureBasic.exe\shell\open\command", "")
If PBRegCommand = ""
  RunProgram(PBIDEpath, #DQUOTE$+ sFilePath +#DQUOTE$, "")
Else
  ShellExecute_(#Null, @"open", @sFilePath, #Null, #Null, #SW_SHOWNORMAL)   ; Use the association. It seems better to open the code in the same Purebasic Window  
EndIf

Code: Select all

CompilerPath = GetPathPart(PBIDEpath) + "Compilers\pbcompiler.exe"                 
If EnableDPIAware
  Compiler = RunProgram(CompilerPath, #DQUOTE$+ sFilePath +#DQUOTE$+ " /EXE " +#DQUOTE$+ PreviewProgramName +#DQUOTE$+ " /XP /DPIAWARE", "", #PB_Program_Hide | #PB_Program_Open | #PB_Program_Read)
Else
  Compiler = RunProgram(CompilerPath, #DQUOTE$+ sFilePath +#DQUOTE$+ " /EXE " +#DQUOTE$+ PreviewProgramName +#DQUOTE$+ " /XP", "", #PB_Program_Hide | #PB_Program_Open | #PB_Program_Read)
EndIf
.....
RunProgram(PreviewProgramName, "", "", #PB_Program_Open)