XProfan

- Page 1 -

Jac
de
Lad

Grummel.

Ich seh was ich tun kann. Bei mir hats komischerweise funktioniert...hab sicher nur die alte File reingepackt. Heute abend gibts Abhilfe.

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

Jörg
Sellmeyer

Damit es dann noch besser geht ist hier noch eine PH-File, mit der man die Typen auch gleich als Texte ermitteln kann:

FileInfo.ph
Kompilieren Markieren Separieren

ArchivTypen = ARC|ZIP|ZOO|LZH|DWC|MDCD|LBR|ARJ|HYP|UC2|HAP|HA|HPack|SQZ (Squeeze It)|RAR|PAK|ARC+|LIM|BSN/BSA (PTS-DOS)|PUT|SQWEZ|Crush/ZIP|Crush/ARJ|Crush/LZH|Crush/ZOO|Crush/HA|LZExe|PKLite|Diet|TinyProg|GIF|JPG (JFIF)|JPG (HSI)|AIN|AINEXE|SAR|BS2/BSArc|GZIP/Comp 4.3|ACB|MAR|CPShrink|JRC|JArcs|Quantum|ReSOF|Crush/ungepackt|ARX|UCEXE|WWPack|QuArk|YAC|X1|Codec|AMGC|NuLIB|PAKLeo|TGZ|WWPack-Datendatei|ChArc|PSA|ZAR|LHARK|CrossePAC|Freeze|KBoom|NSQ|DPA|TTComp|WIC (Fake-ARCHIVER!!!!!!!!!)|RKive|JAR|ESP|ZPack|DRY|OWS (Fake-ARCHIVER!!!!!!!!!)|SKY|ARI|UFA|Microsoft CAB|FOXSQZ|AR7|TSComp|PPMZ|MS Compress|MP3 (Marco Czudej)|ZET|XPack-Data|XPack-Diskimage|ARQ|ACE|Squash|Terse|XPack Single Data|Stuffit (Mac)|PUCrunch|BZip|UHarc|ABComp|CMP (André Olejko)|BZip2|LZOP|szip (M. Schindler from 1.10)|Splint|TAR|InstallShield|CARComp|LZS|BOA|InstallShield Z|ARG|Gather|Pack Magic|BTS|ELI|QFC|PRO-PACK|MSXiE|RAX|777|LZS221|HPA|Arhangel|EXP1|IMP|BMF|NRV|PAK (D. Dvoinikov)|Squish (Mike Albert)|Par|HIT (Bogdan Ureche)|SBX|NSK|Disintegrator|ASD (T. Svensson)|InstallShield CAB|TOP4|BatComp (4DOS)|BlakHole|BIX (Igor Pavlov)|ChiefLZA|Blink (D.T.S.)|CAR (MylesHi!)|SARJ|Compack Sfx|LogiTech Compress|ARS-SFX|AktType|Flash|PC/3270|NPack|PFT|XTreme|SemOne|Akt32|InstallIt|PPMD|Swag|FIZ|BA (M. Lundqvist)|BeckerTools Exe Extractor|RK (successor of RKIVE)|Redhat RPM-Dateien|Deepfreezer|ZZip (Damien Debin)|XPA32 (Jauming Tseng).|DC (Edgar Binder)|AiType|YbsType|TpcType|Ai32Type|SBCTYPE|DitType|EPCType|VSAType|PDZ|Package for the Web|Nullsoft Installer|Wise Installer|DZip (N.Pflug)|7ZIP|ReDuq|aPackage|WinImage|GCA|PPMN (Max Smirnov)|SAPCAR|SQXType|Compressia (Yaakov Gringeler)|UHBC 1.0|PKZIP BZ|Resource 2.6x |WINHKI|Deepfreezer v2|Debian DEP|BGA|PurePack|NOA32|PAQAR|WINUDA|LFB|ZLIB|UCL|BriefLZ|SPL32|Aplib|MSI|FilePacker|ALZ|PMA|PMASFX|PAQ7|CHM|KGB Archiver|UDA||||||||||||||||||||||||||||||||||||PAQ8|Miliki Super Compressor Pro|Inno Setup (tested with 2.019, 3.0x, 4.x and 5.x)|NEWZIP Crypted ZIPfile (NEWZIP version 1.8b4 and higher)|unbekannt|Datei nicht gefunden;

Testprogramm
Kompilieren Markieren Separieren

 $H FileInfo.ph
 $U FileInfo.pcu
Randomize
Declare Typ%

WhileLoop 10

    Typ% = Rnd(254) + 1
    Print Typ%,=,SubStr$(~ArchivTypen,Typ%,|)

Wend

Typ% = fileinfo(Par$(0))
Case Typ% > 0:Print Par$(0)+:  + SubStr$(~ArchivTypen,Typ%,|)
nput

Mal sehen, ob die Codebox solche langen Strings verpackt

(Tatsächlich - locker sogar!)

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

- Page 2 -

Jac
de
Lad

Darf ich das mit in die ZIP packen?

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

Jörg
Sellmeyer

Natürlich!

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Jac
de
Lad

Ferdich...

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

Jörg
Sellmeyer

hm - hashes.zip? Zuviel Hasch?

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Jac
de
Lad

Sch**ße, falscher Download.

Ich hab Kopfschmerzen, war heute in der Kläranlage, im Schauspielhaus, im Büro, die Volleyballstunde fiel aus, es hat in Strömen geregnet, ich hab zweimal ne halbe Stunde am Bahnhof gestanden, weil der Zug ausfiel, meine Tochter hat die Oma getreten und ich weiß jetzt schon, dass ich am Wochenende keine Sekunde Ruhe finde...... Bitte verzeiht mir. Richtiger Download jetzt hier...

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

Dietmar
Horn

Fehler beim Laden der DLL: Z:dpinfo95dpinfo25.dll

Ich habe gar keinen Ordner Z:dpinfo95

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

Jac
de
Lad

Sch...ich bin heute echt nich auf der Höhe...

dpinfo95.zip	38 kB

Hochgeladen:	09.11.2007

Downloadcounter:
		Download

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

Jörg
Sellmeyer

Na, jetzt läufts wenigstens.

Allerdings ist mir nicht ganz klar, warum man so eine Minimal Dll als pcu verpacken muß. Deine Arbeit in allen Ehren, aber das hier tuts auch:
Kompilieren Markieren Separieren

Headerdatei (Inhalt siehe oben)
 $H FileInfo.ph
Deklarationen
Var hDll& = UseDll(dpinfo95.dll)
Def DPInfo_AType(1) !dpinfo95.dll,AType
Def DPInfo_ARc_Type(1) !dpinfo95.dll,ARc_Type
Def DPInfo_DPINFOConfigDialog(3) !dpinfo95.dll,DPINFOConfigDialog
Programm
Cls
Randomize
Declare Typ%
Print ein paar der erkannten Archivtypen

WhileLoop 10

    Typ% = Rnd(254) + 1
    Print Format$(000,Typ%), = ,SubStr$(~ArchivTypen,Typ%,|)

Wend

Print
ChDir $WinPath
Var s$=$WinPath +  + FindFirst$(*.zip)
Ermittlung als Ziffer
Typ% = DPInfo_AType(Addr(s$))
Case Typ% > 0:Print S$ +  ist ein Archiv vom Typ:
,typ%,SubStr$(~ArchivTypen,Typ%,|)
interne MessageBox der Dll
DPInfo_ARc_Type(Addr(s$))
Versionsmessagebox der Dll
DPInfo_DPINFOConfigDialog(%hwnd,,0)
waitinput
FreeDll hDll&
End
Das sind die Funktionen in der Dll
ARc_Type
AType
Anzahl
DPINFOConfigDialog
IsExe
Version

Ich finde pcus sind etwas, womit man aufwendige Programmierarbeit, oder mühsam selbstentwickelte Tricks vor den Blicken Anderer verbergen kann. Aber per die dll eine pcu ist etwas Overkill.
Und jetzt schießt schön auf mich los.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Wenn er die DLL in die PCU verpackt und Vistakonform verarbeitet dann erspart die PCU zumindest das Beiliefern der DLL als Extradatei - ist also praktischer.

Jac
de
Lad

Ja, stimmt. Naja, ich bins von Parcival gewöhnt ne PCU dazuzuliefern. Egal, ich kann auch ne Inc draus machen (bei der Hash.dll vielleicht noch interessaneter).

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP