so gehts...

[frankx]

Hallo Frankx,

schau doch mal unter: http://www.swissdelphicenter.ch/de/showcode.php?id=2272,

zwei Einträge in die Registry reichen.

Weiß jemand, was das für eine Sprache ist? VBS? Es geht ja auch zu Fuss, aber automatisch wär ja auch schön.

Dank Frankx

procedure RegisterProtocol(const Name, Describtion, ExecuteStr: string);
var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  try
    reg.RootKey := HKEY_CLASSES_ROOT;
    reg.OpenKey(Name, True);
    try
      reg.Writestring('', 'URL:' + Name +' (' + Describtion + ')');
      reg.WriteInteger('EditFlags', 2);
      reg.WriteString('Source Filter', '');
      reg.WriteString('URL Protocol', '');
      reg.OpenKey('shell', True);
      reg.OpenKey('open', True);
      reg.OpenKey('command', True);
      reg.Writestring('', ExecuteStr);
    finally
      reg.CloseKey;
    end;
  finally
    reg.Free;
  end;
end;