Naja, die Verschlüsselungsfunktion hast evtl. nicht getestet, aber auch ohne
diese, ein schönes Programm

Kannst Du mir evtl. mehr dazu erklären, wie man eine gepackte DateiPackerEx_Include adds extended packer functions to your project like rewrite filedates when extracting, or the ability to add and delete files in existing archives. Also you can insert empty directories or 0-byte files or full directories with subfolders. Another feature is to append archives to executables or whatever-you-want-files. So it will be easy to create selfextractors, standalones, and others and the best thing is, that content will be still editable.
Done with PureBasic 3.92 by thINk! (relative)
Code: Alles auswählen
; Sourcecode Auszug 'EasySetup' (PB4)
; Thorsten Hoeppner
; === Setup-Programm erstellen
; SourceDir$ = Quellverzeichnis mit Programmdateien
; SetupName$ = Name des Setupprogrammes (z.B. Installer.exe)
;
PackDir(SourceDir$, ProgDir$+"temp.pck") ; Temporäres Archiv mit Programmdateien
AppendFilePack(OutputDir$+SetupName$,ProgDir$+"temp.pck") ; Anhängen des Archives an den Installer
DeleteFile(ProgDir$+"temp.pck")
; === Installer.exe ===
; TempDir$ = Temporäres Verzeichnis
; PackName$ = Setup-Programm (z.B. Installer.exe)
;
CreateDirectory(TempDir$) ; Temp-Verzeichnis für Installation
OpenFilePack(PackName$)
ExtractPack(TempDir$)
CloseFilePack()
Code: Alles auswählen
XIncludeFile "PackerEx_IncludeV4.pb"
AppendFilePack("D:\installer.exe","D:\icons.pck")
Code: Alles auswählen
XIncludeFile "PackerEx_IncludeV4.pb"
CreateDirectory("C:\df")
OpenFilePack("D:\installer.exe",0,0)
ExtractPack("C:\df")
CloseFilePack(0)
Es müssen natürlich "D:\installer.exe" und "D:\icons.pck" existieren. "icons.pck" muss ein zuvor mit "PackerEx_IncludeV4.pb" erstelltes Archiv sein.funk.munich hat geschrieben:Beim Starten des AppendFilePack Befehls bekomme ich jedoch immer eine Fehlermeldung unter PB4.Code: Alles auswählen
XIncludeFile "PackerEx_IncludeV4.pb" AppendFilePack("D:\installer.exe","D:\icons.pck")