XProfan

Italia

Beschreibung:

FindExecutable liefert zu einem Dateinamen die EXE zurück, mit der die angegebene File bei einem Doppelklick im Explorer gestartet werden würde.

Deklaration:

Def @FindExecutable(3) !SHELL32,FindExecutableA

Parameter:

1.Parameter: Adresse eines Strings oder Bereichsvariable mit einem String, der den Namen der File enthält. Hier hann auch eine Pfad+Dateiname Kombination angegeben werden

2.Parameter: Adresse eines Strings oder Bereichsvariable mit einem String, der den Pfad der File enthält. Dieser Parameter kann 0 sein.

3.Parameter: Bereichsvariable, den den Namen der EXE aufnimmt.

Rückgabewert:

Der Rückgabewert ist größer als 32, wenn die Funktion erfolgreich abgeschlossen wurde. Erscheint ein Wert unter 33, trat ein Fehler auf.

Beispiele:

Kompilieren Markieren Separieren

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