|
INSTALL @lib$+"WINLIB5" SYS "LoadLibrary", "ATL.DLL" TO atl% SYS "GetProcAddress", atl%, "AtlAxWinInit" TO `AtlAxWinInit` SYS `AtlAxWinInit` ON CLOSE PROCcleanup : QUIT ON ERROR SYS "MessageBox", @hwnd%, REPORT$, 0, 0 : PROCcleanup : QUIT *ESC OFF url$ = "http://www.rtrussell.co.uk/" DIM rc{l%,t%,r%,b%} SYS "GetClientRect", @hwnd%, rc{} hATL% = FN_createwindow("AtlAxWin", url$, 0, 0, rc.r%, rc.b%, 0, &200000, 0) REPEAT WAIT 0 UNTIL FALSE END DEF PROCcleanup hATL% += 0 : IF hATL% PROC_closewindow(hATL%) : hATL% = 0 ENDPROC
|