hadisalahi2
دوشنبه 20 بهمن 1393, 11:57 صبح
سلام به دوستان
فرض کنید که مرورگر پیش فرض باز هست و یک صفحه وب رو نمایش میده
حالا من میخوام از طریق دلفی ، با فشردن یک دکمه ، هم آدرس صفحه و هم عنوان اون رو به دست بیارم .
کدهای زیر رو پیدا کردم
اما برای IE هستش
من میخوام روی مرورگر پیش فرض و مخصوصا گوگل کروم این کار رو انجام بدم
function GetURL_IE: string;
var
hIeWindow, hWorkerA, hToolbar, hComboBoxEx,
hComboBox, hEdit: hWnd;
Buffer: array[0..255] of Char;
begin
hIeWindow := FindWindow('IEFrame', nil);
if hIeWindow 0 then begin
hWorkerA := FindWindowEx(hIeWindow, 0, 'WorkerA', nil);
hToolbar := FindWindowEx(hWorkerA, 0, 'RebarWindow32', nil);
hComboBoxEx := FindWindowEx(hToolbar, 0, 'ComboBoxex32', nil);
hComboBox := FindWindowEx(hComboBoxEx, 0, 'ComboBox', nil);
hEdit := FindWindowEx(hComboBox, 0, 'Edit', nil);
Sendmessage (hEdit, WM_GETTEXT, Length(Buffer), Longint(@Buffer));
Result := String(Buffer);
end
else
Result := '';
end;
function GetCaption_IE: string;
var
hIeWindow: hWnd;
Buffer: array[0..255] of Char;
begin
hIeWindow := FindWindow('IEFrame', nil);
if hIeWindow 0 then begin
Sendmessage (hIeWindow, WM_GETTEXT, Length(Buffer), Longint(@Buffer));
Result := String(Buffer);
end
else
Result := '';
end;
فرض کنید که مرورگر پیش فرض باز هست و یک صفحه وب رو نمایش میده
حالا من میخوام از طریق دلفی ، با فشردن یک دکمه ، هم آدرس صفحه و هم عنوان اون رو به دست بیارم .
کدهای زیر رو پیدا کردم
اما برای IE هستش
من میخوام روی مرورگر پیش فرض و مخصوصا گوگل کروم این کار رو انجام بدم
function GetURL_IE: string;
var
hIeWindow, hWorkerA, hToolbar, hComboBoxEx,
hComboBox, hEdit: hWnd;
Buffer: array[0..255] of Char;
begin
hIeWindow := FindWindow('IEFrame', nil);
if hIeWindow 0 then begin
hWorkerA := FindWindowEx(hIeWindow, 0, 'WorkerA', nil);
hToolbar := FindWindowEx(hWorkerA, 0, 'RebarWindow32', nil);
hComboBoxEx := FindWindowEx(hToolbar, 0, 'ComboBoxex32', nil);
hComboBox := FindWindowEx(hComboBoxEx, 0, 'ComboBox', nil);
hEdit := FindWindowEx(hComboBox, 0, 'Edit', nil);
Sendmessage (hEdit, WM_GETTEXT, Length(Buffer), Longint(@Buffer));
Result := String(Buffer);
end
else
Result := '';
end;
function GetCaption_IE: string;
var
hIeWindow: hWnd;
Buffer: array[0..255] of Char;
begin
hIeWindow := FindWindow('IEFrame', nil);
if hIeWindow 0 then begin
Sendmessage (hIeWindow, WM_GETTEXT, Length(Buffer), Longint(@Buffer));
Result := String(Buffer);
end
else
Result := '';
end;