XProfan

Español

Descripción:

Searchpath sucht en el angegebenen Directorio después de uno Expediente y son zurück, si esta hay disponible es. Mit Searchpath lässt se el Dateiname de uno Pfad + Dateiname-Kombination extrahieren.

Deklaration:

DEF SearchPath(6) !KERNEL32,SearchPathA

Parámetro:

1.Parámetro: Adresse uno Cuerdas oder Bereichsvariable con un String, el el a durchsuchenden Pfad enthält. Lo voluntad no Unterverzeichnisse durchsucht. Ist dieser Parámetro 0, se en folgenden Verzeichnissen gesucht: =>
-Im Directorio, de el el Programa geladen wurde.
-Im aktuellen Directorio.
-Im Windows Systemverzeichnis.
-En NT en el 16 BIT Systemverzeichnis.
-Im Windowsverzeichnis.
-In el Verzeichnissen, el bajo el Umgebungsvariable PATH aufgeführt son.

2.Parámetro: Adresse uno Cuerdas oder Bereichsvariable con un String, el el Dateinamen (sin Erweiterung) enthält.

3.Parámetro: Adresse uno Cuerdas oder Bereichsvariable con un String, el el Erweiterung el Expediente (con Punkt) enthält.

4.Parámetro: Größe el Bereichsvariablen de Parámetro 5 (en Buchstaben).

5.Parámetro: Bereichvariable, el el gefundenen Pfadnamen plus el Dateinamen empfängt.

6.Parámetro: Bereichsvariable, el el Adresse des Dateinamens innerhalb des en Parámetro 5 zurückgegebenen Cuerdas empfängt.

Rückgabewert:

0 en Misserfolg. En Erfolg el Longitud des Cuerdas en Parámetro 5 sin abschließendes Nullbyte.

Beispiele:

Kompilieren Marca Separación

Declarar Searchpath$,Filename$,Extension$,Size&,Buffer#,Pointer#,Fehler&,Point&
DEF SearchPath(6) !"KERNEL32","SearchPathA"
LET Searchpath$=$WINPATH
LET Filename$="NOTEPAD"
LET Extension$=".EXE"
Size&=255
DIM Buffer#,260
DIM Pointer#,4
Claro Buffer#
Claro Pointer#
Fehler&=@Searchpath(0,@addr(Filename$),@addr(Extension$),Size&,Buffer#,Pointer#)
Fehler&=@Searchpath(@addr(Searchpath$),@addr(Filename$),@addr(Extension$),Size&,Buffer#,Pointer#)
PRINT "Länge des Cuerdas: "+@STR$(FEHLER&)
PRINT "Gefundene Expediente: "+@String$(Buffer#,0)
Imprimir "Adresse des Dateinamens: "+@str$(@Largo(Pointer#,0))
LET POINT&=Buffer#
LET POINT&=@LONG(Pointer#,0)-POINT&
Imprimir "Hier beginnt el Dateiname: "+@STR$(POINT&)
Imprimir "Dateiname sin Pfad: "+@String$(Buffer#,Point&)
Disponer Buffer#
Disponer Pointer#
waitkey