![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
¿Cómo saber la URL en el navegador?
Hola a todos.
encontre este codigo function TForm1.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 begin Result := ' '; end; pero me da error cuando pregunta en el if hIeWindow 0 then si pueden me ayudan me da error gracias a todos por colaborar con sus respuestas. |
|
|
![]() |
||||
Tema | Autor | Foro | Respuestas | Último mensaje |
¿Cómo saber la URL en el navegador? | Alucho2007 | Internet | 4 | 18-06-2008 21:11:16 |
como determinar el navegador por defecto | Velia | API de Windows | 4 | 13-11-2005 16:54:10 |
Como obtener el navegador predeterminado | El_Chava | Internet | 4 | 19-09-2005 19:14:26 |
Como abrir un documento html en el navegador? | VivaLeon | Varios | 1 | 19-05-2005 18:12:32 |
Como crear un navegador web simple | CeNtInElA | Internet | 4 | 25-02-2005 14:31:06 |
![]() |
|