Allgemeine Fragen zur PROFAN Programmierung
Views (Heute): 241756 (3192)
  Suchen
 Zurück zur Übersicht
 AutorThema: Eintrag aus Registry LESEN
Frank Thomas
Datum:19.09.02 17:29 Antwortenals Email verschicken  


Hallo,
Wie kann man mit (Profan 5) aus der Registry den Standart-Browser auslesen ?
Ich möchte einfach wissen welcher Browser als Stadart eingetragen ist und auf welchen Pfad er liegt. z.B.
Lese Eintrag der Registry und übergebe an Browser$
---
Let Browser$ = "C:\Programme\Netscape\Netscp.exe"
---
Dann brauch ich nur noch ein Parameter dran hängen und es geht was ich vvor habe.
Oder ist das nicht möglich mir version 5

Gruß
Frank


Stefan Schnell
Datum:19.09.02 18:31 Antwortenals Email verschicken (mail@stschnell.de) 


Hallo Frank,
so 100%ig kann ich Dir nicht helfen, jedoch meine ich, dass über die Funktionen des WinAPI
RegOpenKeyEx = Öffnen des Schlüssels
RegQueryValueEx = Wert des Schlüssels
RegCloseKey = Schließen des Schlüssel
mit Profan 5 durchaus auf die Registry zugegriffen werden kann.
Tschüss
Stefan


Frank Thomas
Datum:19.09.02 20:49 Antwortenals Email verschicken  


Hallo,
ein kleines Beispiel währe nicht übel, verstehe die sache nicht auf anhib.
Bin halt noch neu in Coden ;-)
Gruß
Frank


Andreas Miethe
Datum:19.09.02 20:38 Antwortenals Email verschicken (andreas@andreas-miethe.de) 


Hallo Frank,

Den Standard-Browser kannst Du auch ueber die Dateiendung ermitteln.

Hier ein Beispiel:

Def FindExecutable(3) !"SHELL32","FindExecutableA"

Proc FindStdBrowser
Declare findfile$,Find$
Assign #1,"~~ttt.html"'DummyFile anlegen
Rewrite #1
Close #1
Dim findfile#,20
Dim result#,255
string findfile#,0="~~ttt.html"
FindExecutable(findfile#,0,result#)'Programm ermitteln
Let Findfile$=String$(result#,0)
Dispose findfile#
Dispose result#
Let Find$ = @FindFirst$(FindFile$)
Assign #1,"~~ttt.html"
Erase #1'DummyFile loeschen
Return Longname$(FindFile$)
EndProc


Declare Findfile#,Result#
cls
FindStdBrowser
Print $(0)
waitinput
end


Gruss
Andreas


Frank Thomas
Datum: 19.09.02 20:53 Antwortenals Email verschicken  


Hallo Andreas,
supre sache, Danke dir.

MfG
Frank


 Zurück zur Übersicht