Get URL Google Chrome

[The.Ghost]

باسلام
میشه لطفا بگید که چه شکلی میشه آدرس جاری در Google Chrome را بدست بیارم که الان کاربر در کدام سایت است؟؟
با تشکر.

[veyskarami]

دورود

یه Edit و Button بذار روی فرم.

کد:

...
var
Form1: TForm1;

implementation

{$R *.dfm}


Function EnumWinProc(Wnd2 : HWND; lParams : LPARAM) : Boolean; StdCall;
Function EnumChildProc(Wnd : HWND; lParam : LPARAM) : Boolean; StdCall;
var
Len:Longint;
Buff,CurrClass:array [0..256] of char;
begin
GetClassName(Wnd,CurrClass,255);
Len := SendMessage (wnd, WM_GETTEXTLENGTH, 0, 0);
SendMessage (wnd, WM_GETTEXT, Len + 1, LongInt (@Buff));
if (Buff <>'')and(CurrClass = 'Chrome_OmniboxView') then
begin
form1.Edit1.Text:=Buff;
Exit;
end;
Result := True;
end;
begin
EnumChildWindows(wnd2,@EnumChildProc,0);
Result := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
EnumWindows(@EnumWinProc,0);
end;

[The.Ghost]

مرسی دوست عزیز دستت درد نکنه.
واقعا نمیدونی چقدر دنبالش بودم ولی پیدا نمی کردم.
:-)

[veyskarami]

اگه به جای سرچ کردن تو اینترنت یه خرده خودت وقت بذاری هر کدی که بخوای می تونی بنویسی ;)