IncludeBinary

[zigapeda]

Also geht das nicht. Dann hätte ich aber noch eine frage:
Eine Includete Textdatei. Kann ich diese verändern ohne sie extern abspeichern zu müssen?

@Green Snake klar geht das (siehe Setup-Dateien) ich weiß nur nicht wie

[Edit]Rubiko war schneller mit der EXE includen[/Edit]

[125]

welches Problem hast du denn am Ende des programmes

Datesection
BILD1: IncludeBinary "BILD1.bmp"
BILD2: IncludeBinary "BILD2.bmp"
BILD3: IncludeBinary "BILD3.bmp"
BILD4: IncludeBinary "BILD4.bmp"
BILD5: IncludeBinary "BILD5.bmp"
BILD6: IncludeBinary "BILD6.bmp"
EndDataSection
zu schreiben und die bilder mit Catchsprite und ?BildNR zu laden?

Zu GreenSnakes Problem:

EXEStart:
IncludeBinary "dene EXE"
ExeEnd:

CreateFile(0, GetAppDir()+"dene EXE")
WriteData(?EXEStart, ?ExeEnd- ?ExeStart)
CloseFile(0)

RunProgram(GetAppDir()+"dene EXE")

[125]

Zu dem Ding mit TXT ohne Saven verändern:

Code: Alles auswählen

DeineTXT$=PeekS(?StartTxt,?EndTxt-?StartTxt)

DataSection
StartTxt:
IncludeBinary "deine.txt"
EndTxt:
EndDataSection 

jetzt kannst du bequem DeineTXT$ mit deinem Programm bearbeiten

[zigapeda]

so wie ich das jetzt gesehen hab muss ich am anfang catchsprite(0, ?bild1) schreiben und in den Letzten zeilen bild1: includebinary "1.bmp" und mit DisplaySprite(0,200,200) kann ich es dann jederzeit auf dem bildschirm einfügen.

[125]

jo genau

zu deinem TXT Prob siehe ein posting über dir

[Green Snake]

sorry, geht nicht

bei GetAppDir() kommt:

GetAppDir() is not a function an arrya ar a linked list

[125]

ups hier ist die proci:

Code: Alles auswählen

Procedure.s GetAppDir() 
  FullPath.s = Space(#MAX_PATH) 
  GetModuleFileName_(GetModuleHandle_(0), @FullPath, #MAX_PATH) 
  FullPath = GetPathPart(FullPath) 
  If Right(FullPath, 1) <> "\" : FullPath + "\" : EndIf 
  ProcedureReturn FullPath 
EndProcedure

[zigapeda]

jetzt hab ich noch mal eine frage die ich der hilfe nicht entnehmen kann: wenn ich eine exedatei mit includebinary einfüge wie kann ich sie dann starten bzw. wenn ich eine flashdatei einfüge wie kann ich sie dann mit flash öffnen? wenn ich sie extern hätte würde ich folgenden code benutzen:

Code: Alles auswählen

RunProgramm("pfad\name.endung")

[125]

Du musst das dan so machen:

Code: Alles auswählen

StartExeOrFlash:
IncludeBinary "Exe or Flash Datei"
EndExeOrFlash:

CreateFile(0,"Exe or Flash Datei")
WriteData(?StartExeOrFlash,?EndExeOrFlash-?STartExeOrFlash)
CloseFile(0)

RunProgram("Exe or Flash Datei")

Und danach dann gegebenfalls mit DeleteFile löschen

[zigapeda]

geht das nicht intern?
also z.B.

Code: Alles auswählen

RunProgram(?programm1)

DataSection
programm1:IncludeBinary "test.exe"
EndDatasection

so oder so ähnlich?