5,387
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
yancey 2001-09-19
- 打赏
- 举报
gz
果冻 2001-09-19
- 打赏
- 举报
procedure TFormMain.FormCreate(Sender: TObject);
var
Reg: TRegistry;
i:integer;
begin
toolbar1.flat:=true;
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('\Software\Microsoft\Internet Explorer\TypedURLs',True)
then
begin
for i:=1 to 30 do
if reg.readstring('url'+inttostr(i))<>'' then
rzcombobox1.Items.add(reg.readstring('url'+inttostr(i)));
end;
finally
Reg.CloseKey;
Reg.Free;
inherited;
end;
end;
var
Reg: TRegistry;
i:integer;
begin
toolbar1.flat:=true;
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('\Software\Microsoft\Internet Explorer\TypedURLs',True)
then
begin
for i:=1 to 30 do
if reg.readstring('url'+inttostr(i))<>'' then
rzcombobox1.Items.add(reg.readstring('url'+inttostr(i)));
end;
finally
Reg.CloseKey;
Reg.Free;
inherited;
end;
end;
