XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Datei: Ausführbares Programm zu einer Datendatei finden (Verknüpfung)
Def @Findexecutable(3) !SHELL32,FindExecutableA
Declare File$,Exe#,Spfad$
Windowstyle 31
Windowtitle EXE zu einem Dateinamen finden
Window 0,0 - 640,440
Let File$ = @Input$( Hier den Namen einer Datei eingeben, Dokument?, @Findfirst$(*.TXT))
Dim Exe#,261
Let Spfad$ = C:WINDOWS
@Findexecutable( @Addr(File$), 0, Exe#)
Print @String$(Exe#,0)
Dispose Exe#

While 0 = 0

    Waitinput