Internet Explorer - Titelleistencaption

[Daniel B]

Huhu,

hiermit kann man den Text in der Caption des IE einstellen, das ist der Text der nach dem - kommt und Standardmässig auf "Microsoft Internet Explorer" steht. Siehe auch Anhang...
uses ..., Registry;

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
//IE-Titeleisteninfo; neuen Text setzen
var
  MyRegistry: TRegistry;
begin
  MyRegistry := TRegistry.Create;
  try
    with MyRegistry do
    begin
      RootKey := HKEY_CURRENT_USER;
      OpenKey('Software\Microsoft\Internet Explorer\Main\', False);
      WriteString('Window Title', 'Delphi-PRAXiS');
      CloseKey;
    end; //with
  finally
    FreeAndNil(MyRegistry);
  end; //try
end;