باسلام
میشه لطفا بگید که چه شکلی میشه آدرس جاری در Google Chrome را بدست بیارم که الان کاربر در کدام سایت است؟؟
با تشکر.
دورود
یه 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;
مرسی دوست عزیز دستت درد نکنه.
واقعا نمیدونی چقدر دنبالش بودم ولی پیدا نمی کردم.
:-)
اگه به جای سرچ کردن تو اینترنت یه خرده خودت وقت بذاری هر کدی که بخوای می تونی بنویسی ;)