XProfan

WindowTitle "Suchfunktion nach Systemvariablen (v13.1)"
windowstyle 24:Cls:declare t$,s$,sysvar$[],flg&
sysvar$[]=explode("\
 $AppDataDir Verzeichnis für Anwendungsdaten\n\
%BitsPixel Farbtiefe des Desktops in Bits pro Pixel\n\
%BmpB Farbtiefe des zuletzt geladenen Bildes in Bits pro Pixel\n\
&BmpCol Farbanzahl des zuletzt geladenen Bildes\n\
!BmpF Vergrößerungsfaktor des zuletzt geladenen Bildes\n\
%BmpX Breite des zuletzt geladenen Bildes\n\
%BmpY Höhe des zuletzt geladenen Bildes\n\
%Button Wert des zuletzt betätigten Buttons\n\
&BytesRead v11 Aktuell gelesene Bytes bei DownloadFile()\n\
%ChildMessage Message nach Klick auf untergeordnetes Element\n\
%CsrLin Augenblickliche Zeile im simulierten Textmodus\n\
 $CurrentDir v13.1 Das aktuelle Arbeitsverzeichnis\n\
%cyCaption Höhe der Titelleiste\n\
%cyMenu Höhe der Menüzeile\n\
%dbDeleted Löschkennzeichen des aktuellen Datensatzes\n\
%dbEoF End-Of-File-Kennzeichen der aktiven Tabelle\n\
%dbFCount Zahl der Felder eines Satzes der aktiven Tabelle\n\
%dbFDecs Dezimalstellen des aktuellen Feldes\n\
%dbFLen Länge des aktuellen Feldes\n\
 $dbFName Name des aktuellen Feldes\n\
%dbFNumber Nummer des aktuellen Feldes\n\
 $dbFType Typ des aktuellen Feldes\n\
%dbHeader Länge des Headers der aktiven Tabelle\n\
 $dbLUpdate Datum der letzten Änderung der Tabelle (Jahr 2-stellig)\n\
 $dbLUpdate4 Datum der letzten Änderung der Tabelle (Jahr 4-stellig)\n\
%dbMemo Kennzeichen ob Tabelle Memo-Felder enthält\n\
&dbRecCount Anzahl der Datensätze der Tabelle\n\
&dbRecNo Nummer des aktuellen Datensatzes\n\
%dbRecSize Länge eines Datensatzes der Tabelle\n\
%dbVersion Version der geöffneten Tabelle\n\
%DDEWin Handle des DDE-Servers\n\
%Desktop Handle des Hintergrundfensters\n\
&DlgProc Prozeduradresse eines mit Create('Dialog' erzeugten Fensters\n\
&DlgWProc Prozeduradresse eines mit Create('Window' erzeugten Fensters\n\
%DOS16 Liefert 1 in der alten 16-bit DOS-Version von Profan zurück\n\
%DOS32 Liefert 1 in der 32-bit DOS-Version von XProfan zurück\n\
 $DosVer Ermittelt die DOS-Version\n\
 $Download Ergebnis der Funktion @DownLoadFile()\n\
 $Drive Aktuelles Laufwerk, ohne Pfadangabe\n\
 $ErrFile Datei, in der der Fehler auftrat\n\
%ErrLine Zeile, in der der Fehler auftrat\n\
%ErrNumber Enthält die Nummer des zuletzt aufgetretenen Fehlers\n\
%Error Der zuletzt aufgetretene Fehlercode\n\
%ErrorLevel Augenblicklicher Errorlevel\n\
 $ErrStr Zusätzliche Informationen zum Fehler\n\
%ExitCode v11 Exitcode des zuletzt mit WinExecWait gestarteten Programms\n\
%Font Handle auf die mit UseFont eingestellte Schrift\n\
%FontColor v12 Die mit ChooseFont() gewählte Textfarbe\n\
%FTPConnected Kennzeichen ob FTP-Verbindung besteht\n\
%FTPStatus Status-/Fehlernummer der letzten FTP-Funktion\n\
 $FTPStatus Status-/Fehlertext der letzten FTP-Funktion\n\
%GetCount Anzahl der Einträge in der ListBox-Liste\n\
%GetCurSel Nummer des in einer Listbox gewählten Eintrages\n\
%GetFocus Handle des aktiven Fensterobjektes\n\
%GetInputState Augenblicklicher Eingabestatus\n\
 $GetInput Der zuletzt mit der Funktion @Input$ eingegebene Text\n\
 $GetText Der zuletzt in einem Listbox-Dialog ausgewählte Text\n\
&GetTickCount Anzahl von Millisekunden seit Windows aktiv\n\
%hDC Display-Context des Hauptfensters\n\
%hDC2 Display-Context der Hauptfensterkopie\n\
%hInstance Instanz-Handle des aktuell laufenden XProfan-Programmes\n\
&hMenu Handle des Menüs des Hauptfensters\n\
&hMusic v13 Thread-ID mit der Hintergrundmusik\n\
&hPaintWin v13 Fenster/Objekt auf das akt.m. StartPaint gezeichnet wird\n\
%hWnd Handle des Hauptfensters des XProfan-Programmes (v13.1:Long)\n\
&Index v13 Auto-Zuweisungen mit Index (Arrays u Hash)\n\
%Input Der zuletzt mit Input eingegebene Integer-Wert\n\
!Input Der zuletzt mit Input eingegebene Float-Wert\n\
 $Input Der zuletzt mit Input eingegebene String\n\
&Input Der zuletzt mit Input eingegebene LongInt-Wert\n\
%IOResult Ergebnis einer Dateioperation oder einer Directory-Suche\n\
%ItemId Zuletzt angewähltes Dialogelement (DialogID)\n\
%Key ANSI-Code der zuletzt gedrückten Taste\n\
&LastFocus aktives Handle beim letzen WaitInput\n\
%LastMessage Message fest des letzten WaitInput\n\
%LFN Kennziffer ob lange Dateinamen verwandt werden (immer 1)\n\
%Linux Liefert 1 bei Linux zurück\n\
%Loading Gibt ab, ob der Download abgeschlossen ist oder noch läuft\n\
&Loop Zählvariablen in einer WhileLoop-Schleife\n\
&lParam Meldungsspezifische Daten einer Message\n\
 $Match Ergebnisstring einer Suche mit Regulärem Ausdruck\n\
%MatchLen Ergebnislänge einer Suche mit Regulärem Ausdruck\n\
%MatchPos Position des Ergebnisses einer Suche mit Regulärem Ausdruck\n\
%MaxX Horizontale Auflösung des Bildschirmes\n\
%MaxY Vertikale Auflösung des Bildschirmes\n\
%MCIError Zuletzt gemeldeter Fehler beim Senden eines MCI-Strings\n\
&MemDC Devicecontext der Memory-Bitmap\n\
%MenuItem Identifikationsnummer des zuletzt angewählten Menüpunktes\n\
%Message Nummer der letzten aufgetretenen Message\n\
%MfX Breite des zuletzt geladenen Metafiles\n\
%MfY Höhe des zuletzt geladenen Metafiles\n\
%MouseKey Zuletzt betätigte Maustaste\n\
%MousePressed Kennziffer der augenblicklich betätigten Taste\n\
%MouseX Aktuelle X-Position der Maus\n\
%MouseY Aktuelle Y-Position der Maus\n\
%MWnd Zielfenster der letzten Message (v13.1:Long)\n\
%NotifyCode Code des aufgetretenen Ereignisses\n\
&NotifyWnd Handle des Dialogelementes, das %NotifyCode sendete\n\
!Now v12 Aktueller Zeitpunkt im XProfan-/Delphi-Format\n\
%oGLError Der letzte aufgetretene Fehler bei OpenGL-Funktionen\n\
%OS2 Liefert 1 bei der alten OS-2-Version von Profan zurück\n\
%ParCount Anzahl der übergebenen Kommandozeilen-Parameter\n\
%PCount Anzahl der übergebenen Parameter des letzten Prozeduraufrufes\n\
&PDC Device-Context des Druckers\n\
%PeekMessage Kennziffer ob eine Message vorliegt\n\
&Pid Prozess-ID des laufenden Programmes\n\
%Playing v13 Musik spielt im Hintergrund, wenn nicht 0\n\
%Pos Augenblickliche Spalte im simulierten Textmodus\n\
%Printing Kennziffer ob Druckvorgang aktiv ist\n\
 $ProfVer Aktuelle XProfan-Version\n\
 $ProgDir Verzeichnis, in dem die Exedatei gestartet wurde\n\
%ProgEnd Position in Datei, wo Kompilat aufhört und Daten beginnen\n\
%ScanKey Scancode (virtueller Code) der zuletzt gedrückten Taste\n\
&ScProc v11.2 interne Adresse der SubClassProc\n\
&sLParam Meldungsspezifische Daten der Subclassing-Message\n\
%sMessage Meldungsnummer der Subclassing-Message\n\
&SQLCount Anzahl der vom letzen SQL-Befehl bearbeiteten Datensätze\n\
&SQLDBC Enthält das Handle der gerade aktuellen Datenbankverbindung\n\
&SQLENV Enthält das Environmenthandle der aktuellen ODBC-Session\n\
 $SQLError Fehlertext des letzten SQL-Fehlers\n\
&sWnd Zielfenster der Subclassing-Message\n\
&sWParam Meldungsspezifische Daten der Subclassing-Message\n\
 $SysPath Windows-System-Pfad\n\
 $TempDir Aktuelles temporäres Verzeichnis\n\
%TextHeight v12 Texthöhe nach DrawText\n\
&UlParam Wert von lParam der Usermessage\n\
%UMessage Kennziffer ob Usermessage aufgetreten, ist\n\
 $UserDir v13.1 Das aktuelle User Verzeichnis\n\
&UWnd Zielfenster der Usermessage\n\
&UwParam Wert von wParam der Usermessage\n\
%Win16 Liefert 1 bei der alten 16-bit Version von Profan zurück\n\
%Win32 Liefert 1 bei der 32-bit Windows-Version von XProfan zurück\n\
%WinBottom Y-Koordinate des unteren Fensterrandes\n\
%WindowStyle Aktueller XProfan-Fensterstil\n\
&WinDProc Prozeduradresse eines Hauptfensters mit Dialogstil\n\
%WinError Der zuletzt aufgetretene Windowsfehler\n\
%WinLeft X-Koordinate des linken Fensterrandes\n\
 $WinPath Windows-Pfad\n\
&WinProc Prozeduradresse eine Hauptfensters\n\
%WinRight X-Koordinate des rechten Fensterrandes\n\
%WinTop Y-Koordinate des oberen Fensterrandes\n\
 $WinVer Ermittelt die Windows-Version\n\
%wmNotify Kennziffer ob Message wm_Notify aufgetreten ist\n\
%wmPaint Kennziffer ob Ereignis wm_Paint ausgelöst wurde\n\
%wmTimer Kennziffer ob der Timer mit SetTimer eingestellt wurde\n\
&wParam Meldungsspezifische Daten einer Message\
","\n")
repeat:font 2:print "\n      SysVar - Suchbegriff: ";
huh:
Input t$:if t$="":locate %csrlin-1,29:sound 2000,10:goto "huh":endif
t$=lower$(t$):print:font 0:flg&=0

whileloop 0,133+12:s$=sysvar$[&Loop]

    if instr(t$,lower$(s$)):inc flg&

        font 2:print " ";substr$(s$,1," "),
        font 0:print tab(16);del$(s$,1,1," "):print
        endif:if %csrlin>28:print " o/o";:waitinput:cls:print:endif

    endwhile

    if flg&=0:print " ** Keinen Eintrag gefunden ** ":sound 400,60:endif

    until 0

    end