XProfan

'PCU-Version 0.5
'copyright by MB-Soft 2008 - 2011
'Author: Manfred Barei
'for Help this proposition would like I with following/n person/en thank:
'Frank Abbing
'The PCU is Freeware and may uneingeschrängt benuzt go, however lying The rights with MB-Soft.
'with Using the PCU in own Programs ought to/n the/The Authors erwähnt go!
 $u Picturewahl.pcu = Bild_'pcu integrate
Declare Bildpfad$,Bild&,way$,BildTyp$
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
WINDOWSTYLE 31
windowtitle "Bildauswahl-Test"
WINDOW (%maxx/2 - 640/2),(%maxy/2 - 500/2) - 640,500
CLS
Pfad$ = "C:\"
'BildTyp$ = "Alle"
' or
BildTyp$ = "*.JPG"' here can any Bildendungen indicated go The XProfan unterstüzt.
Bildpfad$ = Bild_wahl(way$,BildTyp$)' Calling the .pcu

If Bildpfad$ <> ""

    Bild& = @Create("HPIC",-1,Bildpfad$)
    DrawPic Bild&,0,0;0
    DeleteObject Bild&

EndIf

waitinput
end

Declare data#
Var Program$ = LoadFile $("Profan-Program open:","*.exe")

If Program$ > ""

    Dim data#, FileSize(Program$)
    File in whom memory reading
    @BlockRead(Program$, data#, 0, FileSize(Program$))
    Compilations-Signatur " RGH-PROFAN" search
    it becomes first of all the Vergleichs-String in the Runtime found.
    the führende space is important, there it otherwise More Fundstellen gives
    Var position1& = MemPos(data#, 0, " RGH-PROFAN")

    If position1& =  -1

        Messagebox("Keine gelinkte XProfan-Exe!", "Error:", 16)
        End

    Else

        now whom String in the Compilations find
        Var KompStart& = MemPos(data#, position1& + 1, " RGH-PROFAN")

        If KompStart& =  -1

            Messagebox("No Compilations hinzugelinkt!", "Error:", 16)
            End

        Else

            now having we The address and produce first of all one
            Backup the Originaldatei ...
            BlockWrite Program$+".bak", data#, 0, SizeOf(data#)
            ... and settle The found address in whom Header one!
            +1 because of the führenden Leerzeichens
            KompStart& = position1& + KompStart& + 1
            Long data#,$80 = KompStart&
            BlockWrite Program$, data#, 0, SizeOf(data#)
            Messagebox("Datei repariert!", "Hinweis:", 64)

        EndIf

    EndIf

Endif

End

name$=SubStr$(BildPfad$, -1, "\\") or ggf. without type
Typ$=SubStr$(name$, -1, ".")

'PCU-Version 0.5
'copyright by MB-Soft 2008 - 2011
'Author: Manfred Barei
'for Help this proposition would like I with following/n person/en thank:
'Frank Abbing
'The PCU is Freeware and may uneingeschrängt benuzt go, however lying The rights with MB-Soft.
'with Using the PCU in own Programs ought to/n the/The Authors erwähnt go!
 $u Picturewahl.pcu = Bild_'pcu integrate
Declare Bildpfad$,Bild&,way$,BildTyp$
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
WINDOWSTYLE 31
windowtitle "Bildauswahl-Test"
WINDOW (%maxx/2 - 640/2),(%maxy/2 - 500/2) - 640,500
CLS
Pfad$ = "C:\"
'BildTyp$ = "Alle"
' or
BildTyp$ = "*.JPG"' here can any Bildendungen indicated go The XProfan unterstüzt.
Bildpfad$ = Bild_wahl(way$,BildTyp$)' Calling the .pcu

If Bildpfad$ <> ""

    Bild& = @Create("HPIC",-1,Bildpfad$)
    DrawPic Bild&,0,0;0
    DeleteObject Bild&

EndIf

waitinput
end