XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Datei  - Eigenschaften einer Datei / eines Ordners anzeigen
Lauffähig ab Profan-Version 5.0
PRFellow-Vorlage
Autor: Thomas Hölzer
PropertyPage eines Laufwerks, Ordners oder einer Datei anzeigen
Parameter: Laufwerks, Ordner- oder Dateiname: String;
Nachteil: Seite wird nicht modal angezeigt
Falls das Listing trotz Übergabe eines gültigen Parameters nicht
funktionieren sollte, liegt es an einer fehlerhaften Registry.
Benötigt Profan 6.5 (bugfreier Clear-Befehl!)
Def ShellExecuteEx(1) !SHELL32,ShellExecuteExA
Declare SEI#,verb#,file#

Proc ShowPropertyPage

    Parameters file$
    Dim SEI#,60
    Dim verb#,12
    Dim file#,Add(Len(file$),1)
    String file#,0=file$
    String verb#,0=properties
    Clear SEI#
    Long SEI#,0=60
    Long SEI#,4=$044C
    Long SEI#,8=GetActiveWindow()
    Long SEI#,12=verb#
    Long SEI#,16=file#
    Long SEI#,20=0
    Long SEI#,24=0
    Long SEI#,28=1
    Long SEI#,32=0
    ShellExecuteEx(SEI#)
    Dispose verb#
    Dispose file#
    Dispose SEI#

EndProc

Beispiel
Cls
ShowPropertyPage C:
WaitInput