TEmbeddedWB Methods1

Author：傻猫
发布时间：July 31, 2007
17411views
No comments
29868 words
Categories：搞软件

<table cellspacing="0" cellpadding="0" width="590" align="center"> <tbody> <tr> <td style="background-color: rgb(200,224,238)" valign="middle" width="590" height="20">&nbsp;</td> </tr> <tr> <td style="background-color: rgb(204,204,204)" valign="middle" width="590" height="465"> This page is still Under Construction AddHtmlToAboutBlank: This function allow you to add a string to the blank pages (Like &quot;About : Blank&quot;) to create your own personal blank page. &nbsp;EmbeddedWB1.AddHtmlToAboutBlank('Enhanced&nbsp;Browser 2006');&nbsp; AutoFillIEFormAndExcecute: A procedure that can help you analyze and auto fill common forms that contain field name like 'INPUT', 'Text', 'FindWindow', &nbsp;'Submit' and 'Search'. You must remember that web sites programmers not always use the standard text and it will&nbsp;not function without the equal text fields. &nbsp;EmbeddedWB1.AutoFillIEFormAndExcecute; AddToRestrictedSiteList(URL :String): A procedure that will add the URL string into the&nbsp;list of &quot;Restricted Site List&quot;. &nbsp;EmbeddedWB1.AddToRestrictedSiteList('porn.com'); AddToTreustedSiteList(URL :String): A procedure that will add the URL string into the&nbsp;list of &quot;Trusted Site List&quot;. &nbsp;EmbeddedWB1.AddToTrustedSiteList('microsoft.com'); AddToFavorites(URL: String, Title: String); A procedure that will add a site to your favorites sites. You can enter only URL but then you will loose the proper display. &nbsp;EmbeddedWB1.AddToFavorites('bsalsa.com', 'Embedded Web Browser page');&nbsp; AssignDocument: A procedure which will navigate to &quot;About:Blank&quot; page and wait until the page is fully loaded. &nbsp;EmbeddedWB1.AssignDocument;&nbsp; Assign(Source: TPersistent): This procedure comes&nbsp;from Classes.pas. Call Assign to copy the properties or other attributes of one object from another. &nbsp;EmbeddedWB1.Assign(Source);&nbsp; AfterConstruction: This procedure is called automatically after the object's last constructor has executed. Do not call it explicitly in your applications. &nbsp;EmbeddedWB1.AfterConstruction; BrowseProperties: The procedure comes from OleCtrls and NOT supported anymore. &nbsp;EmbeddedWB1.BrowseProperties;&nbsp; Broadcast(var Message): This procedure comes from TWinControl. Use Broadcast when you want to send the same message to each of the child controls contained within the windowed control. Specify the message to be passed as the value of the Message parameter &nbsp;EmbeddedWB1.Broadcast(TheMessage);&nbsp; BeginDrag(Immediate: Boolean; Threshold: Integer): Call BeginDrag to start a drag operation. BeginDrag is called in application code only when the value of the control's DragMode is dmManual. If DragMode is dmAutomatic, BeginDrag is called automatically. If the Immediate parameter is true, the mouse pointer changes to the value of the DragCursor property and dragging begins immediately. If Immediate is false, the mouse pointer doesn't change to the value of the DragCursor property and dragging doesn't begin until the user moves the mouse pointer the number of pixels specified by the Threshold parameter. If the caller passes a Threshold value less than 0 (such as the default value for this parameter), BeginDrag uses the DragThreshold property of the global Mouse variable. Setting Immediate to false allows the control to accept mouse clicks without beginning a drag-and-drop or drag-and-dock operation. &nbsp;EmbeddedWB1.BeginDrag(true); BringToFront: Comes from Controls. You should Call BringToFront to ensure that a form is visible or to reorder overlapping controls within a form. Without BringToFront, controls are stacked in their order they were placed on the form.&nbsp; &nbsp;EmbeddedWB1.BringToFront; BeforeDestruction: BeforeDestruction is called automatically immediately before the component's first destructor executes. Do not call it explicitly in your applications. &nbsp;EmbeddedWB1.BeforeDestruction; CheckOnlineStatus: Call CheckOnlineStatus function to check your online status. It will return true if you are online and false for offline. &nbsp;If EmbeddedWB1.CheckOnlineStatus then... CheckIfInTrustedList(URL:String): Call CheckIfInTrustedList function to check if a&nbsp;URL is in the Trusted List. Return true if the URL is in the Trusted List &nbsp;if EmbeddedWB1.CheckIfInTrustedList('borland.com') then ... CheckIfInRestrictedList(URL:String): Call CheckIfInRestrictedList function to check if a&nbsp;URL is in the Restricted List. Return true if the URL is in the Restricted&nbsp;List &nbsp;if EmbeddedWB1.CheckIfInRestrictedList('borland.com') then ... ClearCache:&nbsp;Call ClearCache procedure to clear all the pc cache. You should remember that this procedure is irreversable and will delete also entire IE cache also. &nbsp;EmbeddedWB1.ClearCache;&nbsp; ClearHistory:&nbsp;Call ClearHistory procedure to clear all the&nbsp;internet History. You should remember that this procedure is irreversable and will delete also entire IE History&nbsp;also. &nbsp;EmbeddedWB1.ClearHistory; ClearTypedUrls: Call ClearTypedUrls&nbsp;procedure to clear all the&nbsp;Typed Urls as they appear in the address bar. You should remember that this procedure is irreversable and will delete also entire IE Typed Urls&nbsp;also. &nbsp;EmbeddedWB1.ClearTypedUrls;&nbsp; ClientToWindow<code>(var pcx: SYSINT; var pcy: SYSINT): </code>Do not use this method. It is included in the TEmbeddedWB interface because the IWebBrowser2 interface is shared with Internet Explorer. Internet Explorer uses ClientToWindow to convert between client coordinates and window coordinates. Copy: Copy procedure will copy the selected text or image to the clipboard. Remember to select something before trying to copy. &nbsp;EmbeddedWB1.Copy; CreateDesktopShortcut: This procedure will create a shortcut to the current web site location on your desktop. The procedure supports the web site address,&nbsp;title and favicon. &nbsp;EmbeddedWB1.CreateDesktopShortcut;&nbsp; CreateNewMail: This procedure will lunch your default Email client by creating a new mail without a context. &nbsp;EmbeddedWB1.CreateNewMail; Cut: Cut procedure will cut the selected text or image to the clipboard. Remember to select something before trying to cut, and that cut procedure is available under its terms. EmbeddedWB1.Cut; Create(Owner: TComponent): The Create constructor allow &nbsp;you to create TEmbeddedWB dynamically. &nbsp;procedure TForm1.Button1Click(Sender: TObject); &nbsp;&nbsp;var &nbsp; WB: TEmbeddedWB; &nbsp;&nbsp;begin &nbsp; &nbsp;&nbsp;WB := TEmbeddedWB.Create(nil); &nbsp; &nbsp;&nbsp;TControl(WB).Parent := panel1; //or whatever...&nbsp; &nbsp; &nbsp;&nbsp;Wb.Align:=alClient; &nbsp; &nbsp;&nbsp;WB.Loaded; &nbsp;&nbsp;&nbsp; WB.Visible := True; &nbsp;end; or: &nbsp;WB := TEmbeddedWB.(self); &nbsp; with TControl(WB) do &nbsp; Begin &nbsp; &nbsp; Parent := self; //or whatever... &nbsp; &nbsp; width:=800; &nbsp; &nbsp; height:=600; &nbsp; End; &nbsp; with WB do &nbsp;begin &nbsp; &nbsp; Loaded; &nbsp; &nbsp; Visible := True; &nbsp; &nbsp; DownloadOptions:=[&nbsp; DLCTL_NO_SCRIPTS , DLCTL_NO_JAVA &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;,DLCTL_NO_RUNACTIVEXCTLS &nbsp;,DLCTL_NO_DLACTIVEXCTLS &nbsp;]; &nbsp; End;&nbsp; CanFocus: Call CanFocus to find out if the control can receive input from the user. CanFocus returns true if both the control and its parent(s) have their Visible and Enabled properties set to true. If any of the Visible and Enabled properties of the control or the controls in which it is contained are not true, then CanFocus returns false. &nbsp;If EmbeddedWb1.CanFocus then... CleanupInstance: Do not call CleanupInstance directly. CleanupInstance is called automatically when the object instance is destroyed. CleanupInstance releases all long strings and variants. It sets long strings to empty and variants to Unassigned. DesignMode: Use this function to change to design mode on and off. DesignMode will return true for on state and false for off state. &nbsp;if EmbeddedWb1.DesaignMode then.. Destroy: Destroy is the component destructor. You do not use it within your application. DocumentLoaded: Use this function to query the loaded document. It will return false if the document = nil and true if the document is assigned. &nbsp;if EmbeddedWb1.DocumentLoaded then.. ExploreFolder(Path: String): This procedure will lunch Windows Explorer by the given path using ShellAPI. EmbeddedWB1.ExploreFolder('C:\Windows'); ExecWB: ExecWB lets you use the IOleCommandTarget interface to pass a command to the Web browser control. For more information, see the Microsoft documentation of IOleCommandTarget. cmdID specifies the command to execute. The Web Browser does not support all of the commands for which Microsoft providesconstants. Use the QueryStatusWB method to determine what commands can be used. cmdexecopt modifies how the command is executed. pvaIn specifies a Variant array that contains any input arguments. This value can be omitted if there are not input arguments. pvaOutspecifies a Variant that receives the results of the command, if any. This value can be omitted if there are no results if ( ActiveControl is TWebBrowser ) then begin WebBrowser1.ExecWB( OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT );&nbsp; FillForm(FieldName: string; Value: string):This function allow you to auto insert details into a web page &nbsp;procedure TfrmMain.FillFormWithPersonalDetails1Click(Sender: TObject); begin &nbsp;EmbeddedWB1.Navigate('http://edit.yahoo.com/config/eval_register?. done=http://groups.yahoo.com%2fgroup%2fdelphi-webbrowser%2f&amp;.src=ygrp&amp;.intl=us'); while EmbeddedWB1.ReadyState &lt;&gt; READYSTATE_COMPLETE do &nbsp;begin &nbsp;&nbsp;&nbsp;&nbsp;Forms.Application.ProcessMessages; &nbsp;end; &nbsp;&nbsp;&nbsp;with EmbeddedWB1 do &nbsp;&nbsp;&nbsp;begin &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FillForm('login', 'Mozart'); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FillForm('passwd', 'Bethoven'); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FillForm('.fn', 'lol1'); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FillForm('.ln', 'lol2'); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FillForm('.ln', 'lol2'); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FillForm('.pw', 'lol3333'); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FillForm('.pw2', 'lol444'); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FillForm('.pw_a', 'lolypop'); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FillForm('.pwqa_a', 'lolypop'); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FillForm('.em', 'loly@pop.com'); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FillForm('.pc', '123456'); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FillForm('.secword', ':)'); &nbsp;&nbsp;end; end; FrameCount: This function will return a LongInt that contain the document&nbsp;frames number. &nbsp;i:= EmbeddedWB1.FramesCount; FrameCountFromDocument(SourceDocIHtmlDocument2)):This function is an enhanced&nbsp;FrameCount and &nbsp;will return a integer that contain the document frames number. &nbsp;i:= EmbeddedWB1.FramesCountFromDocument('bla.html'); GetCachedFileFromURL(strUL: string; var strLocalFile: string): This function will return the path to a specific file in the cache procedure TfrmMain.GetCachedPathClick(Sender: TObject); var str : string; begin &nbsp;&nbsp;EmbeddedWB1.GetCachedFileFromURL(IEAddress1.Text, str); &nbsp;&nbsp;ShowMessage(str); end;&nbsp; GetCookie: This function will return the Cookie name as a string, if the page contains a&nbsp;cookie. If the page does not contain a cookie, it will return an empty string. &nbsp;procedure TfrmMain.CookiesCheck1Click(Sender: TObject); &nbsp;var &nbsp;st : string; begin &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;st:= EmbeddedWB1.GetCookie; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SetLength(st, 180); &nbsp;&nbsp;if st &lt;&gt; '' then ShowMessage('The web site has just added a cookie: &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;+#10+#13+ st) else ShowMessage('No cookies were found.'); end; GetCookiesPath: If you Call this function the result will be the IE Cookies path. &nbsp;procedure TfrmMain.GetCookiesClick(Sender: TObject); &nbsp;var &nbsp;st : string; begin &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;st:= EmbeddedWB1.GetCookiesPath; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ShowMessage('Cookies Path: '+ st); end;&nbsp; GetHistoryPath:If you Call this function the result will be the IE History&nbsp;path. procedure TfrmMain.GetHistoryClick(Sender: TObject); &nbsp;var &nbsp;st : string; begin &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;st:= EmbeddedWB1.GetHistoryPath; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ShowMessage('History Path: '+ st); end;&nbsp;&nbsp; GetFavoritesPath: If you Call this function the result will be the IE Favorites&nbsp;path. procedure TfrmMain.GetFavoritesClick(Sender: TObject); &nbsp;var &nbsp;st : string; begin &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;st:= EmbeddedWB1.GetFavoritesPath; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ShowMessage('Favorites Path: '+ st); end;&nbsp;&nbsp; GetFrame(FrameNo : Integer) : IWebbrowser2;:Returns Iwebbrowser2-interface to the specified frame. You can use it to print a particular frame, view frame-source etc GetDefaultBrowserFromRegistry: This function will return the Default Browser&nbsp;name as a string (if there is a Default Browser). If no Default Browser is set, then it will return 'No default browser was found' string. procedure TfrmMain.GetBrowserClick(Sender: TObject); &nbsp;var &nbsp;st : string; begin &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;st:= EmbeddedWB1.GetDefaultBrowserFromRegistry; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ShowMessage('Default Browser: '+ st); end;&nbsp;&nbsp;&nbsp; GetIEHomePage: This function will return the IE Home Page&nbsp; as a string. &nbsp;procedure TfrmMain.GetIEHomePageClick(Sender: TObject); &nbsp;var &nbsp;st : string; begin &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;st:= EmbeddedWB1.GetIEHomePage; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ShowMessage('Default Browser: '+ st); end; GetIEHandle(WebBrowser: TEmbeddedWB; ClassName: string): HWND: This function returns the handle of the Internet Explorer window (HWND) to assist the programer Invoke Hidden Commands in the EmbeddedWB. The&nbsp;following&nbsp;codes&nbsp;demonstrates&nbsp;an&nbsp;innovative&nbsp;way&nbsp;to&nbsp;invoke&nbsp;hidden commands&nbsp;to&nbsp;show&nbsp;modal&nbsp;dialogs&nbsp;such&nbsp;as&nbsp;&quot;Add&nbsp;To&nbsp;Favorite&quot;&nbsp;dialog, &quot;Import/Export&nbsp;Wizard&quot;&nbsp;dialog&nbsp;in&nbsp;your&nbsp;WebBrowser-based&nbsp;application Command&nbsp;IDs&nbsp;Handled&nbsp;by&nbsp;'Shell&nbsp;DocObject&nbsp;View' Const Uses: const&nbsp;ID_IE_FILE_PAGESETUP&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&nbsp;259; const&nbsp;ID_IE_FILE_PRINT&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&nbsp;260; const&nbsp;ID_IE_FILE_NEWWINDOW&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&nbsp;275; const&nbsp;ID_IE_FILE_PRINTPREVIEW&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&nbsp;277; const&nbsp;ID_IE_FILE_NEWMAIL&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&nbsp;279; const&nbsp;ID_IE_FILE_SENDPAGE&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&nbsp;282; const&nbsp;ID_IE_FILE_SENDLINK&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&nbsp;283; const&nbsp;ID_IE_FILE_SENDDESKTOPSHORTCUT&nbsp;=&nbsp;284; const&nbsp;ID_IE_HELP_VERSIONINFO&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&nbsp;336; const&nbsp;ID_IE_HELP_HELPINDEX&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&nbsp;337; const&nbsp;ID_IE_HELP_WEBTUTORIAL&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&nbsp;338; const&nbsp;ID_IE_HELP_FREESTUFF&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&nbsp;341; const&nbsp;ID_IE_HELP_PRODUCTUPDATE&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&nbsp;342; const&nbsp;ID_IE_HELP_FAQ&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&nbsp;343; const&nbsp;ID_IE_HELP_ONLINESUPPORT&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&nbsp;344; const&nbsp;ID_IE_HELP_FEEDBACK&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&nbsp;345; const&nbsp;ID_IE_HELP_BESTPAGE&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&nbsp;346; const&nbsp;ID_IE_HELP_SEARCHWEB&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&nbsp;347; const&nbsp;ID_IE_HELP_MSHOME&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&nbsp;348; const&nbsp;ID_IE_HELP_VISITINTERNET&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&nbsp;349; const&nbsp;ID_IE_HELP_STARTPAGE&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&nbsp;350; const&nbsp;ID_IE_HELP_NETSCAPEUSER&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&nbsp;351; const&nbsp;ID_IE_FILE_IMPORTEXPORT&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&nbsp;374; const&nbsp;ID_IE_HELP_ENHANCEDSECURITY&nbsp;&nbsp;&nbsp;&nbsp;=&nbsp;375; const&nbsp;ID_IE_FILE_ADDTRUST&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&nbsp;376; const&nbsp;ID_IE_FILE_ADDLOCAL&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&nbsp;377; const&nbsp;ID_IE_FILE_NEWPUBLISHINFO&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&nbsp;387; const&nbsp;ID_IE_FILE_NEWPEOPLE&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&nbsp;390; const&nbsp;ID_IE_FILE_NEWCALL&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=395; Command&nbsp;IDs&nbsp;Handled&nbsp;by&nbsp;'Internet&nbsp;Explorer_Server' const&nbsp;ID_IE_CONTEXTMENU_NEWWINDOW&nbsp;&nbsp;&nbsp;&nbsp;=&nbsp;2137; const&nbsp;ID_IE_CONTEXTMENU_ADDFAV&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&nbsp;2261; const&nbsp;ID_IE_CONTEXTMENU_REFRESH&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&nbsp;6042; &nbsp;procedure&nbsp;TForm1.ToolButton2Click(Sender:&nbsp;TObject); begin &nbsp;&nbsp;//Invoke&nbsp;&quot;Add&nbsp;To&nbsp;Favorite&quot;&nbsp;Dialog &nbsp;&nbsp;SendMessage(GetIEHandle(web,&nbsp;'Internet&nbsp;Explorer_Server'),&nbsp;WM_COMMAND, &nbsp;&nbsp;ID_IE_CONTEXTMENU_ADDFAV,&nbsp;0); end; &nbsp;procedure&nbsp;TForm1.ToolButton3Click(Sender:&nbsp;TObject); begin &nbsp;&nbsp;//Invoke&nbsp;&quot;Import/Export&nbsp;Wizard&quot;&nbsp;Dialog &nbsp;&nbsp;SendMessage(GetIEHandle(web,&nbsp;'Shell&nbsp;DocObject&nbsp;View'),&nbsp;WM_COMMAND, &nbsp;&nbsp;ID_IE_FILE_IMPORTEXPORT,&nbsp;0); end; Function GetIEVersion : String; Use this function to determine which version of Internet Explorer is installed on the computer. The function returns the fileversion of shdocvw.dll.&nbsp; The following chart lists the different versions of the Shdocvw.dll file and the corresponding versions of Internet Explorer: Version Product -------------------------------------------------------------- 4.70.1155 Internet Explorer 3.0 4.70.1158 Internet Explorer 3.0 (OSR2) 4.70.1215 Internet Explorer 3.01 4.70.1300 Internet Explorer 3.02 4.71.1008.3 Internet Explorer 4.0 PP2 4.71.1712.5 Internet Explorer 4.0 4.72.2106.7 Internet Explorer 4.01 4.72.3110.3 Internet Explorer 4.01 Service Pack 1 4.72.3612.1707 Internet Explorer 4.01 SP2 5.00.0518.5 Internet Explorer 5 Developer Preview (Beta 1) 5.00.0910.1308 Internet Explorer 5 Beta (Beta 2) 5.00.2014.213 Internet Explorer 5 5.0.2717.2000 Internet Explorer 5 with Update for &quot;Malformed Favorites Icon&quot; Security Issue installed 5.00.2721.1400 Internet Explorer 5 with Update for &quot;ImportExport Favorites()&quot; Security Issue installed 5.00.2919.800 Internet Explorer 5 (Windows 2000 RC1, build 5.00.2072) 5.00.2919.3800 Internet Explorer 5 (Windows 2000 RC2, build 5.00.2128) 5.00.2919.6307 Internet Explorer 5.01 5.50.3825.1300 Internet Explorer 5.5 Developer Preview (Beta) Link: <a href="https://www.samool.com/go/aHR0cDovL3N1cHBvcnQubWljcm9zb2Z0LmNvbS9zdXBwb3J0L2tiL2FydGljbGVzL3ExNjQvNS8zOS5hc3A=" target="_blank" >Determing Which Version of Internet Explorer you are using</a> GetLastVisitedPage(var LastVisitedPage: string): Call this function to get the last visited page (before your browser was closed). You must use SaveLastVisitedPage function on you form close event to enable this feature. &nbsp;procedure TfrmMain.GetLastVisitedPageClick(Sender: TObject); &nbsp;var &nbsp;&nbsp;&nbsp;st : string; begin &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;st:= EmbeddedWB1.GetLastVisitedPage; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ShowMessage('Default Browser: '+ st); end; GetIPAndHostName(var HostName, IPaddr, WSAErr: string): Boolean: Call this function to get the pc Host name and IP address (True result). In case of an error, WSAErr will hold an error string and the result will be false. procedure TfrmMain.GetHostAndIP1Click(Sender: TObject); var &nbsp;HostN,HostIP,Err : string; &nbsp;begin &nbsp;&nbsp;&nbsp;if EmbeddedWB1.GetIPAndHostName(HostN, HostIP, Err) then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;MessageDlg('PC Host Name: '+HostN + #10+#13+'Your Internal &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;IP: ' + HostIP, mtInformation, [mbOk], 0) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;else MessageDlg(Err, mtError, [mbOk], 0); &nbsp;end;&nbsp; GetSpecialFolderPath(CallerHandle: THandle; CSIDL: Integer): PChar: Call the function to retrive the path to windows special folders path. Const Uses: <ul> <li> CSIDL_ALTSTARTUP </li> <li> CSIDL_APPDATA </li> <li> CSIDL_BITBUCKET </li> <li> CSIDL_COMMON_ALTSTARTUP </li> <li> CSIDL_COMMON_DESKTOPDIRECTORY </li> <li> CSIDL_COMMON_FAVORITES </li> <li> CSIDL_COMMON_PROGRAMS </li> <li> CSIDL_COMMON_STARTMENU </li> <li> CSIDL_COMMON_STARTUP </li> <li> CSIDL_CONTROLS </li> <li> CSIDL_COOKIES </li> <li> CSIDL_DESKTOP </li> <li> CSIDL_DESKTOPDIRECTORY </li> <li> CSIDL_DRIVES </li> <li> CSIDL_FAVORITES </li> <li> CSIDL_FONTS </li> <li> CSIDL_HISTORY </li> <li> CSIDL_INTERNET </li> <li> CSIDL_INTERNET_CACHE </li> <li> CSIDL_NETHOOD </li> <li> CSIDL_NETWORK </li> <li> CSIDL_PERSONAL </li> <li> CSIDL_PRINTERS </li> <li> CSIDL_PRINTHOOD </li> <li> CSIDL_PROGRAMS </li> <li> CSIDL_RECENT </li> <li> CSIDL_SENDTO </li> <li> CSIDL_STARTMENU </li> <li> CSIDL_STARTUP </li> <li> CSIDL_TEMPLATES </li> </ul> procedure&nbsp;TForm1.Button1Click(Sender:&nbsp;TObject); begin &nbsp;&nbsp;OrganizeFavorite(Handle,&nbsp;GetSpecialFolderPath(Handle, &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;CSIDL_FAVORITES)); end; GetBmpFromBrowser(FileName : String): Boolean: Call GetBmpFromBrowser to create a screen capture of your page. Remember to enter a valid&nbsp;name or path with name for the file. Result will be true if the process will end succesfuly. &nbsp;procedure TfrmMain.getAScreanCapture1Click(Sender: TObject); &nbsp;begin &nbsp;if EmbeddedWB1.GetBmpFromBrowser('site.bmp')then &nbsp;&nbsp;&nbsp;&nbsp;begin &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;UpdateImage; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Image1.Picture.LoadFromFile('.site.bmp'); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ShowMessage('The screen capture is in your application &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;folder.'); &nbsp;&nbsp;&nbsp;&nbsp;end; end GetDocument: IHtmlDocument2 The result of this function will be&nbsp;the current loaded document as IHtmlDocument2. In case of an error, a proper message will be shown. &nbsp;if EmbeddedWB1.GetDocument then.. GetJPEGfromBrowser(FileName: string; SourceHeight, SourceWidth,&nbsp;TargetHeight, TargetWidth: integer): Boolean; This function is a different method to get a screen capture. This method is more flexible and you can set also the height and width. &nbsp;procedure TfrmMain.GetJpegPageCapture1Click(Sender: TObject); begin &nbsp;if EmbeddedWB1.GetJpegFromBrowser('.\Site.jpg', Height, Width, Height, Width) then &nbsp;&nbsp;&nbsp;begin &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Image1.Picture.LoadFromFile('.\Site.jpg'); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ShowMessage('The page screen capture is in your application folder.') &nbsp;&nbsp;&nbsp;&nbsp;end; end; &nbsp;GoBack:&nbsp; Navigates to the previous item in the history list. Call GoBack to return to the last document in the history list. GoBack has no effect unless the history list contains additional documents. <table class="notes"> <tbody> <tr> <td class="notes"> Note: </td> <td class="notes"> The Navigate or Navigate2 command can change the history list, depending on the specified flags. </td> </tr> </tbody> </table> GoForward: Navigates to the next item in the history list. &nbsp;Call GoForward to return to the next document in the history list. GoForward reverses the effect of the last GoBack command. GoHome: Navigates to the current start page. &nbsp;Call GoHome to navigate to the registered home or start page. The URL for this page is specified in the Registry at HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main under the name Startpage. You can change this value using the TRegistry or TRegistryIniFile object, or using Navigation tab of the Internet Explorer's Options dialog. &nbsp; GoSearch: Navigates to the current search page. Call GoSearch to navigate to the registered search page. The URL for this page is specified in the Registry at HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main under the name SearchPage. You can change this value using the TRegistry or TRegistryIniFile object, or using Navigation tab of the Internet Explorer's Options dialog. </td> </tr> </tbody></table>