XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Dateien  - Windows-Suchdialog starten
Lauffähig ab Profan-Version 6.6
PRFellow-Vorlage
Autor: Thomas Hölzer
Such-Dialog mit voreingestelltem Pfad starten
Parameter: gültiger Pfadname
Def ShellExecuteEx(1) !SHELL32,ShellExecuteExA
Declare SEI#,verb#,file#

Proc ShowFindDialog

    Parameters file$
    Dim SEI#,60
    Clear sei#
    Dim verb#,5
    Dim file#,Add(Len(file$),1)
    String file#,0=Upper$(file$)
    String verb#,0=find
    Long SEI#,0=60
    Long SEI#,8=GetActiveWindow()
    Long SEI#,12=verb#
    Long SEI#,16=file#
    Long SEI#,28=1
    ShellExecuteEx(SEI#)
    Dispose verb#
    Dispose file#
    Dispose SEI#

EndProc

Beispiel
Cls ohne Fenster gibts GPF
ShowFindDialog C:
WaitInput