ليست سايتهاي مورد استفاده در Internet Explorer

[iran-network]

سلام دوستان من بک برنامه دارم که لیست سایت هایی که میرم ثبت میکنم حالا چطور میتونم وقتی روی edit میخوام بنویسم ادرس سایت هایی که میرم بیاد اون هایی که تا بحال باز کردم .

اگه قبلا مطرح شده عذر میخوام

[BORHAN TEC]

سلام
آدرس های وارد شده در IE در یکی از مسیر های رجیستری ذخیره می شود. منظورم این مسیر است:

HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs
حالا خیلی راحت می توانید مقادیر موجود در این آدرس را استخراج کرده و از آنها استفاده کنید.
موفق باشید...

[iran-network]

من تازه دلفی شروع کردم میشه بگید از این ادرس چطور استفاده کنم یک
مثال بزنید . با تشکر

[hossein_h62]

من تازه دلفی شروع کردم میشه بگید از این ادرس چطور استفاده کنم یک
مثال بزنید . با تشکر
در مورد کار با رجیستری در دلفی جستجو کنید

[بهروز عباسی]

درود به شما

با این کدها می تونی کارت رو انجام بدی . (لطفاً پست قبلی رو پاک کن:لبخند:)
بهتره به جای Edit از ComboBox استفاده کنی (خاصیت AutoComplete)

...
uses System.Win.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;
//Example of use...
procedure TForm1.btn_ExapleClick(Sender: TObject);
begin
ShowTypedUrls(lst_Show.Items);
end;

موفق باشید

[iran-network]

میشه بهروز جان یک مثال بزنی ؟


unit Unit2;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs , System.Win.Registry, Vcl.StdCtrls,
Vcl.Buttons;

type
TForm2 = class(TForm)
ComboBox1: TComboBox;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

{$R *.dfm}
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;
//Example of use...

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
ShowTypedUrls(lst_Show.Items);
end;

end.

من اینطوری نوشتم خطا داد