DBR Delphi-Ecke

// Hiermit kann man in der Titelzeile des Internet-Explorers die
// Bezeichnung "Microsoft Internet Explorer" ändern.

// Getestet mit D4 unter WinME bei IE 5.5

uses Registry; 
 
procedure IE_Title(txt: string); 
var 
  Reg: TRegistry; 
begin 
  Reg := TRegistry.Create; 
  try 
    Reg.RootKey := HKEY_CURRENT_USER; 
    if Reg.OpenKey('\Software\Microsoft\Internet Explorer\Main', true) 
      then begin 
      Reg.WriteString('Window Title', txt); 
      Reg.CloseKey; 
    end; 
    Reg.RootKey := HKEY_LOCAL_MACHINE; 
    if Reg.OpenKey('\Software\Microsoft\Internet Explorer\Main', true) 
      then Reg.WriteString('Window Title', txt); 
  finally 
    Reg.CloseKey; 
    Reg.Free; 
  end; 
end; 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  IE_Title('DBR.Software');
end;