registry

[Luckie]

Zitat von dde:

ist jetzt nur 114 KB groß.

Und geht so nicht. Oder wo gibts du die Root an?

Delphi-Quellcode:

program Project1;

uses
  Registry,
  Windows;

var
  R:Tregistry; 
begin
  R:=TRegistry.Create;
  try
    R.RootKey:=HKEY_CURRENT_USER;
    if R.DeleteKey('Software\Microsoft\Internet Explorer\TypedURLs') then
      MessageBox(0, 'Verlauf erfolgreich geleert.','Verlauf leeren', MB_ICONINFORMATION)
    else
      MessageBox(0, 'Verlauf konnte nicht geleert werden.','Verlauf leeren', MB_ICONSTOP);
  finally
    R.Free;
  end;
end.