Seite 2 von 4
Verfasst: 08.04.2005 17:04
von 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]
Verfasst: 08.04.2005 17:07
von 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")
Verfasst: 08.04.2005 17:13
von 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
Verfasst: 08.04.2005 17:13
von 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.
Verfasst: 08.04.2005 17:14
von 125
jo genau
zu deinem TXT Prob siehe ein posting über dir
geht nicht
Verfasst: 08.04.2005 17:16
von Green Snake
sorry, geht nicht
bei GetAppDir() kommt:
GetAppDir() is not a function an arrya ar a linked list
Verfasst: 08.04.2005 17:18
von 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
Verfasst: 23.04.2005 14:03
von 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:
Verfasst: 23.04.2005 14:34
von 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
Verfasst: 23.04.2005 14:57
von zigapeda
geht das nicht intern?
also z.B.
Code: Alles auswählen
RunProgram(?programm1)
DataSection
programm1:IncludeBinary "test.exe"
EndDatasection
so oder so ähnlich?