Title.s=""
Message.s=""
Global ProgName.s=ProgramFilename()

Procedure.s GetResurse(Number)
 String.s=""
 lHLib = LoadLibrary_(ProgName)
    If lHLib
      lHRes = FindResource_(lHLib, Number, #RT_RCDATA)
      If lHRes
        lHResLoad = LoadResource_(lHLib, lHRes)
        lSz = SizeofResource_(lHLib, lHRes)
        If lHResLoad And lSz>0
          *lPResLock = LockResource_(lHResLoad)
          If *lPResLock
            String=PeekS(*lPResLock, lSz)
          EndIf
        EndIf
      EndIf
      FreeLibrary_(lHLib)
    EndIf  
 ProcedureReturn String
EndProcedure

Title.s=GetResurse(1)
Message.s=GetResurse(2)

MessageRequester(Title, Message)
; IDE Options = PureBasic 4.31 (Windows - x86)
; CursorPosition = 8
; Folding = -
; EnableXP
; UseIcon = Значок.ico
; Executable = prog.exe