Einzelnen Beitrag anzeigen

Benutzerbild von erich.wanker
erich.wanker

Registriert seit: 31. Jan 2008
Ort: im schönen Salzburger Land
460 Beiträge
 
Delphi XE4 Professional
 
#1

Eigenen Hyperlink erstellen (aus http:// wird myapp://)

  Alt 23. Nov 2010, 15:08
Hallo leute,

Datei-Suffix habe ich via untenstehenden Code mit meiner Anwendung "verknüpft":

Delphi-Quellcode:
procedure RegisterFileType(ExtName:String; AppName:String) ;
var
   reg:TRegistry;
begin
  reg := TRegistry.Create;
  try
   reg.RootKey:=HKEY_CLASSES_ROOT;
   reg.OpenKey('.' + ExtName, True) ;
   reg.WriteString('', ExtName + 'file') ;
   reg.CloseKey;
   reg.CreateKey(ExtName + 'file') ;
   reg.OpenKey(ExtName + 'file\DefaultIcon', True) ;
   reg.WriteString('', AppName + ',0') ;
   reg.CloseKey;
   reg.OpenKey(ExtName + 'file\shell\open\command', True) ;
   reg.WriteString('',AppName+' "%1"') ;
   reg.CloseKey;
  finally
   reg.Free;
  end;

  SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil) ;


end;
Jetzt würde ich gerne einen Hyperlink mit meiner Anwendung verknüpfen.
Hat jemand eine idee - wie ich das lösen könnte:

Beispiel:
Aus
Code:
<a href="http://www.domain.at">Hyperlink</a>
würde ich gerne:
Code:
<a href="vst://parameter">Hyperlink</a>
machen (oder so ähnlich)

Was ich bis dato hab (aber nicht funktioniert) ist:
Delphi-Quellcode:
REGEDIT4
[HKEY_CLASSES_ROOT\vst] @="URL:vst Protocol" "URL Protocol"=""
[HKEY_CLASSES_ROOT\vst\shell]
[HKEY_CLASSES_ROOT\vst\shell\open]
[HKEY_CLASSES_ROOT\vst\shell\open\command] @="\"C:\\Programme\\myApplication.exe\" \"%1\""
vielen Dank für Hinweise

Erich
Erich Wanker - for life:=1971 to lebensende do begin ..
O
/H\
/ \
  Mit Zitat antworten Zitat