[DELPHI] - Show IE Typed URL's-VBForums
Results 1 to 3 of 3

Thread: [DELPHI] - Show IE Typed URL's

  1. #1

    Thread Starter
    Supreme User Madboy's Avatar
    Join Date
    Oct 2003
    Location
    England
    Posts
    3,253

    [DELPHI] - Show IE Typed URL's

    Code:
    uses registry;
    
    procedure ShowTypedUrls(Urls: TStrings);
    var
      Reg: TRegistry;
      S: TStringList;
      i: Integer;
    begin
      Reg := TRegistry.Create;
      try
        Reg.RootKey := HKEY_CURRENT_USER;
        if Reg.OpenKey('Software\Microsoft\Internet Explorer\TypedURLs', False) then
        begin
          S := TStringList.Create;
          try
            reg.GetValueNames(S);
            for i := 0 to S.Count - 1 do
            begin
              Urls.Add(reg.ReadString(S.Strings[i]));
            end;
          finally
            S.Free;
          end;
          Reg.CloseKey;
        end;
      finally
        Reg.Free;
      end;
    end;
    
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      ShowTypedUrls(ListBox1.Items);
    end;

  2. #2
    Lively Member
    Join Date
    Feb 2005
    Posts
    120

    Re: [DELPHI] - Show IE Typed URL's

    Thx man..
    I was looking for this code

  3. #3

    Thread Starter
    Supreme User Madboy's Avatar
    Join Date
    Oct 2003
    Location
    England
    Posts
    3,253

    Re: [DELPHI] - Show IE Typed URL's

    Your welcome mate, stay tuned, i will be posting more Delphi snippets when i have the time

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Featured


Click Here to Expand Forum to Full Width

Survey posted by VBForums.