PureBasic Forums - English

Code: Select all

hModule = LoadLibraryM(PBData_Get(1))
address = GetProcAddressM(hModule,FunctionName.s)

Code: Select all

Procedure UDRes_WriteFile(File$, ResNumber, hModule = 0)
  Protected *Mem = UDRes_Get(ResNumber, hModule)
  Protected File

  If *Mem
    If CRC32FileFingerprint(File$) <> CRC32Fingerprint(*Mem, MemorySize(*Mem))
      File = CreateFile(#PB_Any, File$)
      If File
        WriteData(File, *Mem, MemorySize(*Mem))
        CloseFile(File)
      EndIf
    EndIf
    FreeMemory(*Mem)

    ProcedureReturn File
  EndIf

EndProcedure

Procedure UDRes_CatchXML(XML, ResNumber, Flag = 0, hModule = 0)
  Protected *Mem = UDRes_Get(ResNumber, hModule)
  Protected Result

  If *Mem
    Result = CatchXML(XML, *Mem, MemorySize(*Mem), Flag)
    FreeMemory(*Mem)

    ProcedureReturn Result
  EndIf

EndProcedure

Code: Select all

"%FILEdc" /CREATESILENT="%FILE.res"

Code: Select all

  ; Programmparameter einlesen
  If j
    For i = 0 To j - 1
      Parameter = ProgramParameter(i)
      uParameter = Left(UCase(Parameter), 13)
      Select uParameter
        Case "/PORTABLE"
          Prefs\portable = #True
        Case "/IGNOREPOS"
          Prefs\ignorepos = #True
        Case "/CREATESILENT"
          SilentName = RemoveString(Parameter, "/CREATESILENT=", #PB_String_NoCase)
          SilentName = RemoveString(SilentName, #DQUOTE$)
        Default
          If FileSize(Parameter) > 0
            If UCase(GetExtensionPart(Parameter)) = "PBDC"
              Prefs\projectdir = GetPathPart(Parameter)
              Prefs\projectfile = GetFilePart(Parameter)
            EndIf
          EndIf
      EndSelect
    Next
  EndIf