XProfan

Français

Beschreibung:

FindExecutable liefert trop einem Dateinamen qui EXE zurück, avec qui qui angegebene Dossier chez einem Double-cliquez sur im Explorer gestartet volonté serait.

Deklaration:

Def @FindExecutable(3) !SHELL32,FindExecutableA

paramètre:

1.paramètre: Adresse eines Cordes ou bien Bereichsvariable avec einem String, qui den Namen qui Dossier contient. ici hann aussi une Pfad+Dateiname Kombination angegeben volonté

2.paramètre: Adresse eines Cordes ou bien Bereichsvariable avec einem String, qui den Pfad qui Dossier contient. cette paramètre peux 0 son.

3.paramètre: Bereichsvariable, den den Namen qui EXE aufnimmt.

Rückgabewert:

qui Rückgabewert ist größer comme 32, si le Funktion erfolgreich abgeschlossen wurde. Erscheint un Wert sous 33, trat un faute sur.

Beispiele:

Kompilieren Marque Séparation

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