troubleshooting Question

detect if a oleobject windows isn't valid by handle

Avatar of hidrau
hidrauFlag for Brazil asked on
Delphi
4 Comments1 Solution203 ViewsLast Modified:
Hello,

I have this function where I open my internet explorer with a url. I need to detect if my internet explorer was closed and then allow my function create a new call, if it is not closed, I just send the new url to it. How can I check this once I have the handle kept?

function OpenIE(url: string; ie: IWebBrowser2): IWebBrowser2;
var

  Flags, TargetFrameName, PostData, Headers: OleVariant;
begin
  if Not Assigned(ie) then
  Begin
    // Uses ComObj + SHDocVw_TLB
    ie := CreateOleObject('InternetExplorer.Application') as IWebBrowser2;
    //  SetParent(ie.HWND, form1.Handle);
    ie.Left := (Screen.Width - 750) div 2;
    ie.Top := (Screen.Height - 560) div 2;


    ie.Width := 750;
    ie.Height := 560;
    ie.MenuBar := false;
    ie.AddressBar := false;
    ie.Resizable := True;
    ie.StatusBar := false;
    ie.ToolBar := 0;

    ie.Navigate2(Url,Flags,TargetFrameName,PostData,Headers);
    ie.Visible := true;
  End Else
  Begin
    ie.Navigate2(Url,Flags,TargetFrameName,PostData,Headers);
  End;

  result := ie;
//  http://codeverge.com/embarcadero.delphi.win32/opening-an-application-inside-delphi/1049698
end;

Open in new window


Thanks
Alex
ASKER CERTIFIED SOLUTION
Sinisa Vuk
Software architect

Our community of experts have been thoroughly vetted for their expertise and industry experience.

Top Expert 2012

The Distinguished Expert awards are presented to the top veteran and rookie experts to earn the most points in the top 50 topics.

Log in to continue reading
Become an EE member today7-DAY FREE TRIAL
Members can start a 7-Day Free trial then enjoy unlimited access to the platform for $9.99/mo
View membership options
Unlock 1 Answer and 4 Comments.
or
Learn why we charge membership fees
We get it - no one likes a content blocker. Take one extra minute and find out why we block content.
See how we're fighting big data
The Value of Experts Exchange in My Daily IT Life

Experts Exchange (EE) has become my company's go-to resource to get answers. I've used EE to make decisions, solve problems and even save customers. OutagesIO has been a challenging project and... Keep reading >>

Mike

Owner of Outages.IO
Phoenix, Arizona, United States
Member Since 2016
Join a full scale community that combines the best parts of other tools into one platform.
Unlock 1 Answer and 4 Comments.
View membership options
“All of life is about relationships, and EE has made a virtual community a real community. It lifts everyone's boat.”
William Peck

Member since 2004