XProfan

Proc FindExecutable

    Parameters File$
    Declare Exe$

    If Len(File$) <= 4

        File$ = GetEnv$("TEMP") + "\\__sfdgetdks__." + File$
        Assign #1,File$
        ReWrite #1
        Close #1

    EndIf

    FindFirst$(File$)

    If %ioresult

        MessageBox(File$ + "\nkonnte nicht gefunden werden","Ein Fehler ist aufgetreten",48)
        Return ""

    EndIf

    Exe$ = MkStr$("\z",256)
    External("SHELL32","FindExecutableA",(File$),0,(Exe$))

    If Instr("\\__sfdgetdks__.",File$)

        Erase File$
        Case %ioresult:MessageBox(File$ + "\nkonnte nicht gelöscht werden","Ein Fehler ist aufgetreten",48)

    EndIf

    Return Trim$(Exe$)

EndProc

Cls
Print FindExecutable("html")
Print FindExecutable("avi")
WaitInput