XProfan

Titre de la fenêtre "Suchfunktion pour Système (v13.1)"
style de fenêtre 24:Cls:declare t$,s$,sysvar$[],flg&
sysvar$[]=explode("\
 $AppDataDir Verzeichnis pour Anwendungsdaten\n\
%BitsPixel Farbtiefe des Desktops dans Bits pro Pixel\n\
%BmpB Farbtiefe des zuletzt geladenen Bildes dans 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 Hauteur des zuletzt geladenen Bildes\n\
%Button Wert des zuletzt betätigten Buttons\n\
&BytesRead v11 Aktuell gelesene Bytes chez DownloadFile()\n\
%ChildMessage Message pour Klick sur untergeordnetes Element\n\
%CsrLin Augenblickliche la ligne im simulierten Textmodus\n\
 $CurrentDir v13.1 cela aktuelle Arbeitsverzeichnis\n\
%cyCaption Hauteur qui Titelleiste\n\
%cyMenu Hauteur qui Menüzeile\n\
%dbDeleted Löschkennzeichen des aktuellen Datensatzes\n\
%dbEoF Fin-Of-File-Kennzeichen qui aktiven Tabelle\n\
%dbFCount numéro qui Felder eines Satzes qui aktiven Tabelle\n\
%dbFDecs Dezimalstellen des aktuellen Feldes\n\
%dbFLen Longueur des aktuellen Feldes\n\
 $dbFName nom des aktuellen Feldes\n\
%dbFNumber numéro des aktuellen Feldes\n\
 $dbFType Typ des aktuellen Feldes\n\
%dbHeader Longueur des Headers qui aktiven Tabelle\n\
 $dbLUpdate date qui letzten Changement qui Tabelle (l'an 2-stellig)\n\
 $dbLUpdate4 date qui letzten Changement qui Tabelle (l'an 4-stellig)\n\
%dbMemo Kennzeichen si Tabelle Memo-Felder contient\n\
&dbRecCount Anzahl qui Datensätze qui Tabelle\n\
&dbRecNo numéro des aktuellen Datensatzes\n\
%dbRecSize Longueur eines Datensatzes qui Tabelle\n\
%dbVersion Version qui geöffneten Tabelle\n\
%DDEWin Handle des DDE-Servers\n\
%Desktop Handle des Hintergrundfensters\n\
&DlgProc Prozeduradresse eines avec Créer('Dialog' erzeugten Fensters\n\
&DlgWProc Prozeduradresse eines avec Créer('Fenêtre' erzeugten Fensters\n\
%DOS16 Liefert 1 dans qui alten 16-bit DOS-Version de Profan zurück\n\
%DOS32 Liefert 1 dans qui 32-bit DOS-Version de XProfan zurück\n\
 $DosVer Ermittelt qui DOS-Version\n\
 $Télécharger Ergebnis qui Funktion @DownLoadFile()\n\
 $Drive Nouvelles Laufwerk, sans Pfadangabe\n\
 $ErrFile Dossier, dans qui qui faute auftrat\n\
%ErrLine la ligne, dans qui qui faute auftrat\n\
%ErrNumber Enthält qui numéro des zuletzt aufgetretenen Fehlers\n\
%Error qui zuletzt aufgetretene Fehlercode\n\
%ErrorLevel Augenblicklicher Errorlevel\n\
 $ErrStr Zusätzliche Informationen zum faute\n\
%ExitCode v11 Exitcode des zuletzt avec WinExecWait gestarteten Programms\n\
%Font Handle sur qui avec UseFont eingestellte Schrift\n\
%FontColor v12 qui avec ChooseFont() gewählte Textfarbe\n\
%FTPConnected Kennzeichen si FTP-liaison besteht\n\
%FTPStatus Status-/Fehlernummer qui letzten FTP-Funktion\n\
 $FTPStatus Status-/Fehlertext qui letzten FTP-Funktion\n\
%GetCount Anzahl qui Einträge dans qui ListBox-liste\n\
%GetCurSel numéro des dans einer Listbox gewählten Eintrages\n\
%GetFocus Handle des aktiven Fensterobjektes\n\
%GetInputState Augenblicklicher Eingabestatus\n\
 $GetInput qui zuletzt avec qui Funktion @Contribution$ eingegebene Text\n\
 $GetText qui zuletzt dans einem Listbox-Dialog ausgewählte Text\n\
&GetTickCount Anzahl de Millisekunden depuis Windows aktiv\n\
%hDC Display-Context des Hauptfensters\n\
%hDC2 Display-Context qui Hauptfensterkopie\n\
%hInstance Instanz-Handle des aktuell laufenden XProfan-Programmes\n\
&hMenu Handle des Menüs des Hauptfensters\n\
&hMusic v13 Fil-ID avec qui Hintergrundmusik\n\
&hPaintWin v13 la fenêtre/objet sur cela akt.m. Début de peinture gezeichnet wird\n\
%hWnd Handle des Hauptfensters des XProfan-Programmes (v13.1:Long)\n\
&index v13 voiture-Zuweisungen avec index (Arrays u Hash)\n\
%Contribution qui zuletzt avec Contribution eingegebene Integer-Wert\n\
!Contribution qui zuletzt avec Contribution eingegebene Float-Wert\n\
 $Contribution qui zuletzt avec Contribution eingegebene String\n\
&Contribution qui zuletzt avec Contribution eingegebene LongInt-Wert\n\
%IOResult Ergebnis einer Dateioperation ou bien einer Annuaire-cherche\n\
%ItemId Zuletzt angewähltes Dialogelement (DialogID)\n\
%Key ANSI-Code qui zuletzt gedrückten bouton\n\
&LastFocus aktives Handle beim letzen WaitInput\n\
%LastMessage Message fest des letzten WaitInput\n\
%LFN Kennziffer si longtemps Dateinamen verwandt volonté (toujours 1)\n\
%Linux Liefert 1 chez Linux zurück\n\
%Loading Gibt ab, si qui Télécharger abgeschlossen ist ou bien encore fonctionne\n\
&Boucle Zählvariablen dans einer WhileLoop-Boucle\n\
&lParam Meldungsspezifische données einer Message\n\
 $Match Ergebnisstring einer cherche avec Regulärem Ausdruck\n\
%MatchLen Ergebnislänge einer cherche avec Regulärem Ausdruck\n\
%MatchPos Position des Ergebnisses einer cherche avec Regulärem Ausdruck\n\
%MaxX Horizontale Auflösung des Bildschirmes\n\
%MaxY Vertikale Auflösung des Bildschirmes\n\
%MCIError Zuletzt gemeldeter faute beim Senden eines MCI-Cordes\n\
&MemDC Devicecontext qui Memory-Bitmap\n\
%MenuItem Identifikationsnummer des zuletzt angewählten Menüpunktes\n\
%Message numéro qui letzten aufgetretenen Message\n\
%MfX Breite des zuletzt geladenen Metafiles\n\
%MfY Hauteur des zuletzt geladenen Metafiles\n\
%MouseKey Zuletzt betätigte Bouton de la souris\n\
%MousePressed Kennziffer qui actuellement betätigten bouton\n\
%MouseX Aktuelle X-Position qui souris\n\
%MouseY Aktuelle Y-Position qui souris\n\
%MWnd Zielfenster qui letzten Message (v13.1:Long)\n\
%NotifyCode Code des aufgetretenen Ereignisses\n\
&NotifyWnd Handle des Dialogelementes, cela %NotifyCode sendete\n\
!Now v12 Aktueller la date im XProfan-/Delphi-Format\n\
%oGLError qui dernier aufgetretene faute chez OpenGL-Funktionen\n\
%OS2 Liefert 1 chez qui alten OS-2-Version de Profan zurück\n\
%ParCount Anzahl qui übergebenen Kommandozeilen-paramètre\n\
%PCount Anzahl qui übergebenen paramètre des letzten Prozeduraufrufes\n\
&PDC Device-Context des Druckers\n\
%PeekMessage Kennziffer si une Message vorliegt\n\
&Pid Prozess-ID des laufenden Programmes\n\
%Playing v13 Musik écoutes im Hintergrund, si pas 0\n\
%Pos Augenblickliche Spalte im simulierten Textmodus\n\
%Printing Kennziffer si Druckvorgang aktiv ist\n\
 $ProfVer Aktuelle XProfan-Version\n\
 $PROGDIR Verzeichnis, dans dem qui Exedatei gestartet wurde\n\
%ProgEnd Position dans Dossier, wohin Kompilat aufhört et données commencer\n\
%ScanKey Scancode (virtueller Code) qui zuletzt gedrückten bouton\n\
&ScProc v11.2 interne Adresse qui SubClassProc\n\
&sLParam Meldungsspezifische données qui Subclassing-Message\n\
%sMessage Meldungsnummer qui Subclassing-Message\n\
&SQLCount Anzahl qui vom letzen SQL-Befehl bearbeiteten Datensätze\n\
&SQLDBC Enthält cela Handle qui justement aktuellen Datenbankverbindung\n\
&SQLENV Enthält cela Environmenthandle qui aktuellen ODBC-Session\n\
 $SQLError Fehlertext des letzten SQL-Fehlers\n\
&sWnd Zielfenster qui Subclassing-Message\n\
&sWParam Meldungsspezifische données qui Subclassing-Message\n\
 $SysPath Windows-System-Pfad\n\
 $TempDir Nouvelles temporäres Verzeichnis\n\
%TextHeight v12 Texthöhe pour DrawText\n\
&UlParam Wert de lParam qui Usermessage\n\
%UMessage Kennziffer si Usermessage aufgetreten, ist\n\
 $UserDir v13.1 cela aktuelle User Verzeichnis\n\
&UWnd Zielfenster qui Usermessage\n\
&UwParam Wert de wParam qui Usermessage\n\
%Win16 Liefert 1 chez qui alten 16-bit Version de Profan zurück\n\
%Win32 Liefert 1 chez qui 32-bit Windows-Version de XProfan zurück\n\
%WinBottom Y-Koordinate des unteren Fensterrandes\n\
%Fenêtre Style Aktueller XProfan-Fensterstil\n\
&WinDProc Prozeduradresse eines Hauptfensters avec Dialogstil\n\
%WinError qui zuletzt aufgetretene Windowsfehler\n\
%WinLeft X-Koordinate des linken Fensterrandes\n\
 $WinPath Windows-Pfad\n\
&WinProc Prozeduradresse une Hauptfensters\n\
%WinRight X-Koordinate des rechten Fensterrandes\n\
%WinTop Y-Koordinate des oberen Fensterrandes\n\
 $WinVer Ermittelt qui Windows-Version\n\
%wmNotify Kennziffer si Message wm_Notify aufgetreten ist\n\
%wmPaint Kennziffer si Ereignis wm_Paint ausgelöst wurde\n\
%wmtimer Kennziffer si qui Minuteur avec SetTimer eingestellt wurde\n\
&wParam Meldungsspezifische données einer Message\
»\n")
repeat:font 2:imprimer "\n      SysVar - Suchbegriff: ";
huh:
Contribution t$:si t$=»:locate %csrlin-1,29:sound 2000,10:goto "huh":endif
t$=lower$(t $):imprimer:font 0:flg&=0

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

    si instr(t$,lower$($ S)):inc flg&

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

    endwhile

    si flg&=0:imprimer " ** Keinen Eintrag trouvé ** ":sound 400,60:endif

    until 0

    end