XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Datei: Ausführbares Modul für eine Dateiendung finden.
PRFellow-Vorlage
Autor: Thomas Hölzer
Ausführbares Modul für eine Dateiendung finden.
Einziger Parameter: Dateiendung OHNE Punkt
Die abgefragte Datei muß existieren.
Deshalb wird ggf. eine temp. Datei angelegt.
(siehe auch Vorlage TEMPFILE.PRV)
Wenn die Prozedur in @$(0) einen Leerstring zurückliefert,
existiert kein assoziiertes Programm (oder es ist ein Fehler aufgetreten)
Def FindExecutable(3) !SHELL32,FindExecutableA
Declare file#,result#

Proc FindExeName

    Parameters ext$
    Declare file$,kill%
    Let file$=C:~;Str$(&GetTickCount);~.;ext$
    FindFirst$(file$)

    If %IORESULT

        Assign #1,file$
        Rewrite #1
        Close #1
        Let kill%=1

    EndIf

    Dim file#,Add(Len(file$),1)
    Dim result#,255
    String file#,0=file$
    FindExecutable(file#,0,result#)
    Let file$=String$(result#,0)
    Dispose file#
    Dispose result#
    Case kill%: Erase #1
    Return file$

EndProc

Beispiel:
Cls
FindExeName txt

If Equ$($(0),)

    Print Kein assoziiertes Programm gefunden

Else

    Print $(0)

EndIf

WaitInput