Michael
J'ai effectué la modification qui permet de connaître l'URL saisie par l'utilisateur dans le champ navigation.
Pour le moment je me contente de l'afficher dans un TRACE de la façon suivante
PROCEDURE ProcessBrowserMessage(uMsg is unsigned int, wParam is unsigned int, lParam is system int)
// Beta version 1.03
IF wParam = WM_NCDESTROY THEN // Last Browser TAB is closing
IF gP.hRgn THEN
DeleteObject(gP.hRgn); gP.hRgn = 0
SetWindowRgn(gP.hMain, gP.hRgn, False)
IF BTN_Undock..Visible THEN
Browser_Template..Y += gP.dock_offset // Beta version 1.03
Browser_Template..Height -= gP.dock_offset // Beta version 1.03
END//else
BTN_Undock..Visible = False
BTN_Dock..Visible = True
WindowRedraw(gP.hMain)
END
ELSE IF wParam = WM_SETTEXT THEN // version 1.08
FILE_MAP_ALL_ACCESS is unsigned int = 983040 | 0x0001 | 0x0002 | 0x0004 | 0x0008 | 0x0010
hMapFile is system int = API(KERNEL32, "OpenFileMappingA", FILE_MAP_ALL_ACCESS, False, "WV2B_MF")
IF (hMapFile) THEN
BUF_SIZE is int = MAX_PATH * 2
pBuf is system int = API(KERNEL32, "MapViewOfFile", hMapFile, FILE_MAP_ALL_ACCESS, 0, 0, BUF_SIZE)
IF (pBuf) THEN
Trace(StringRetrieve(pBuf, srUNICODEAddress))
API(KERNEL32, "UnmapViewOfFile", pBuf)
END
API(KERNEL32, "CloseHandle", hMapFile)
END
END
uMsg = uMsg; wParam = wParam; lParam = lParam