Aus laufender Anwendung Exe Datei erstellen

[Larsi]

hi,
im titel steht ja scho so ziemlich alles. also ich programmier grad n installer für delphi anwendungen aber der muss ja eine exe datei erstllen koennen während er läuft und die exe datei muss man davor ja auch bearbeiten können. ich hab echt keine ahnung wie das gehen solla ber ihr koennt mir bestimmt helfen!


MFG Lars Wiltfang

[fwsp]

willst/musst du den installer wirklich selbst programmieren? wenn nicht such mal nach innosetup.

[Larsi]

ich möcht ja kein installer für meine anwendung programmieren, sondern sowas wie innosetup :)

[DeddyH]

1. Wieso das Rad neu erfinden?
2. InnoSetup ist OpenSource. Schau doch einfach da nach, wie es gemacht wird.

[Larsi]

Zitat:

Zitat von DeddyH

1. Wieso das Rad neu erfinden?

ich möchte ein programm ohne irgendwelche scriptsprachen für anfänger(wie mich :) ) erstellen und innosetup als ich das das erste mal gesehen hab hätte ich ohne anleitungen im netz damit gar nicht arbeiten können.

[DeddyH]

Dann nimm doch eins der GUIs, z.B. ISTool. Auf lange Sicht tust Du Dir damit eher einen Gefallen, als wenn Du quasi bei 0 selbst anfängst, finde ich.

[Larsi]

aber das ist doch scohn fertig und ich möcht ja was eigenes programmieren

[DeddyH]

Tu, was Du nicht lassen kannst :mrgreen: . Zu Deiner Ausgangsfrage such mal nach SFX, das dürfte in etwa dem entsprechen, was Du suchst.

[wicht]

Ganz primitiv könntest du es ungefähr so machen:

Du hängst an den Installer die zu installierenden Daten an, zum Beispiel mit TFileStream. Nach dem bearbeiten sollte deine Exe dann so aussehen:
[EXE-Datei Installer][Datei2][Größe Datei2][Datei1][Größe Datei1]

Also direkt hinter der Original-Exe hängt Datei2, dahinder die Größe von Datei2, dann das selbe für Datei1.

Wenn dein Installer jetzt das Programm installiert, öffnet er sich selber (Application.Exename) und öffnet auf sich selber einen TFilestream (fmOpenRead mit fmShareDenyWrite glaube ich, ist vielleicht auch falsch). Der FileStream geht nach hinten (.Position := .Size), geht dann 4 Bytes nach vorne (.Position := .Position - SizeOf(Integer)) und ließt einen Integer aus, dann weiß er hier die Größe von Datei1, die ja ganz hinten steht. Dann spult er die eben eingelesenen 4 Bytes (SizeOf(Integer)) wieder zurück und dazu noch die Größe von Datei1, die eben ausgelesen wurde. Dann ließt Du soviel Bytes ein, wie dir die zuerst gelesene Größe gesagt hat. Schwupp, da hast du deine Datei. So machst du dann für alle Dateien weiter.

Das ganze ist natürlich stark verbesserungswürdig (Kompression..) aber so könnte man es ganz schlicht machen...

HTH

[sirius]

Ich weis nicht ob der Exe-Loader zufrieden damit ist, wenn einfach noch ein riesen Batzen Daten hinten dranhängt, der im Header nicht "angemeldet" wird.

Eine eigene Exe zu erstellen oder auch nur eine zu verändern ist nicht ganz billig.

[Luckie]

Zitat:

Zitat von sirius

Ich weis nicht ob der Exe-Loader zufrieden damit ist, wenn einfach noch ein riesen Batzen Daten hinten dranhängt, der im Header nicht "angemeldet" wird.

Das ist dem Loader egal. Meine SFXTools http://www.michael-puff.de/Developer/Delphi/Programme/ funktionieren auch so.