XProfan

English

Description:

FindExecutable supply to a Filenames The EXE back, with the The angegebene File with one Double click in the Explorer launched go would.

Deklaration:

Def @FindExecutable(3) !SHELL32,FindExecutableA

Parameter:

1.Parameter: address one Strings or Memory-Variable with a String, the whom names the File contains. here hann too a way+Dateiname combination indicated go

2.Parameter: address one Strings or Memory-Variable with a String, the whom way the File contains. this Parameter can 0 his.

3.Parameter: Memory-Variable, whom whom names the EXE aufnimmt.

Return Value:

The Return Value is larger as 32, if The function successful completed watts. appear one worth under 33, entered Error on.

Examples:

Compile Mark Separation

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

WEND