registry

[dde]

wieso funktioniert das nicht:

Delphi-Quellcode:

uses registry...

procedure TForm1.FormCreate(Sender: TObject);
var Reg : TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.OpenKey ('Software\Microsoft\Internet Explorer\TypedURLs', FALSE);
Reg.WriteString ('url1', '');
Reg.WriteString ('url2', '');
Reg.WriteString ('url3', '');
Reg.WriteString ('url4', '');
Reg.WriteString ('url5', '');
Reg.WriteString ('url6', '');
Reg.WriteString ('url7', '');
Reg.WriteString ('url8', '');
Reg.WriteString ('url9', '');
Reg.WriteString ('url10', '');
Reg.WriteString ('url11', '');
Reg.WriteString ('url12', '');
Reg.WriteString ('url13', '');
Reg.WriteString ('url14', '');
Reg.WriteString ('url15', '');
Reg.WriteString ('url16', '');
Reg.WriteString ('url17', '');
Reg.WriteString ('url18', '');
Reg.WriteString ('url19', '');
Reg.WriteString ('url20', '');
Reg.WriteString ('url21', '');
Reg.WriteString ('url22', '');
Reg.WriteString ('url23', '');
Reg.WriteString ('url24', '');
Reg.WriteString ('url25', '');
Reg.Destroy;
Form1.Close;
end;