Entwickler-Ecke

Internet / Netzwerk - Protokoll registrieren


maxk - Di 25.02.03 12:58
Titel: Protokoll registrieren
Wenn man im IE http://... eingibt, startet er das eigene Programm zum anzeigen. Wenn ich aber sig2dat://... eingebe, dann startet er Sig2Dat mit dem Paramter sig2dat://.... Wie registriere ich 1234://, damit mein Programm gestartet wird?

maxk

PS: Ich poste hier, da der IE mit Netwerk zu tun hat!

EDIT: Ein paar sehr peinliche Rechtschreibfehler entfernt :roll:


maxk - Di 25.02.03 16:53

Ich hab's herausgefunden: Moderiert von user profile iconNarses: Zugehöriger MSDN-Link: http://msdn.microsoft.com/en-us/library/aa767914(VS.85).aspx
Folgendes muss in die Registry eingetragen werden:

Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
[HKEY_CLASSES_ROOT\test]
@="URL:Testurl"
"URL Protocol"=""

[HKEY_CLASSES_ROOT\test\shell]

[HKEY_CLASSES_ROOT\test\shell\open]

[HKEY_CLASSES_ROOT\test\shell\open\command]
@="command /K echo %1"

Dann geht's!

maxk


Moritz M. - Di 25.02.03 18:31

Hää...wie macht man dass?
Kannst du das etwas detaillierter schreiben?


Alibi - Di 25.02.03 18:45

An welchem Punkt kommst du denn nicht weiter? Einfach die beschriebenen Regeinträge machen.


Moritz M. - Di 25.02.03 18:47

Ich kenn mich einfach in dem Beispiel nicht aus. Das ist mein problem. Ne textanleitung wäre schön.


Alibi - Di 25.02.03 19:07

Also weißt du nicht, wie man Regeinträge mit Delphi macht?


Moritz M. - Di 25.02.03 20:07

Doch! Klar! Ich weiß wie man mit der Registry umgeht(auch in Delphi). Nur versteh ich nicht, was ich machen soll!


maxk - Di 25.02.03 20:25

Hast du verstanden, was ich meine? Wenn der IE nicht "weiter weiß", dann nimmt er ein anderes Programm. Das wird ausgeführt, um die Infos zu verarbeiten.


Moritz M. - Di 25.02.03 20:26

Ich hab verstanden was du meinst nur die ANleitung, wie du das machts, eben nicht.


maxk - Di 25.02.03 21:07

Ach so :P :P ,

Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
with TRegistry.Create do try
 RootKey:=HKEY_CLASSES_ROOT;
 if not OpenKey('\123',True) then exit; // Fehler beim Zugriff
 WriteString('URL Protocol','');
 if not OpenKey('\123\shell\open\command',True) then exit; // Fehler
 WriteString('','"'+Application.ExeName+'" %1');
finally
 CloseKey;
 Free;
end;


Moderiert von user profile iconNarses: Code- durch Delphi-Tags ersetzt