C#
C++ (7)
Delphi (617)
.NET (2)
Database (71)
Delphi IDE (89)
Network (39)
Printing (3)
Strings (12)
VCL (83)
Windows with Delphi (280)
Java (8)
JavaScript (31)
perl (9)
php (4)
VBScript (1)
Visual Basic (1)
Exchange Links
About this site
| |
 |
Closing Internet Explorer (IE) from Delphi
This article has not been rated yet. After reading, feel free to leave comments and rate it.
Question:
My application has to close the IE. How can an application close the Internet Explorer or an Explorer window?
Answer:
The key is to post to the *right* window. Use the code below and it will close all instances of IE.
 |  | |
program Sample;
function CloseIEs(Wnd : HWnd; Form : TForm1) : Boolean; export; stdcall;
var
sCap : array [0..255] of char;
begin
GetWindowText (Wnd, sCap, sizeof(sCap));
if pos ('Microsoft Internet Explorer', sCap) > 0 then
begin
PostMessage (Wnd, WM_CLOSE, 0, 0);
end
else
begin
// check by class name!
GetClassName (Wnd, sCap, sizeof(sCap));
if sCap = 'IEFrame' then
PostMessage (Wnd, WM_CLOSE, 0, 0);
end;
CloseIEs := true; { next window, please }
end;
begin
// close all hidden instances
EnumWindows(@CloseIEs, 0);
end. | ||
 |  |
|
||||||||
Comments:
| ||
|
so good!
| ||
| ||
|
WARNING !
I have not tested this, but I suspect the code above has a dangerous bug - maybe it will close not only every instance of MS-Internet explorer, but also any TWebBrowser component that is on any form included in any Delphi -made program ! Since it is not normal to close individual components in a running Delphi -program, this may cause severe malfunction in any delphi-application affected. especially I find this one suspicious: begin // check by class name! GetClassName (Wnd, sCap, sizeof(sCap)); if sCap = 'IEFrame' then PostMessage (Wnd, WM_CLOSE, 0, 0); end; Myself, I would use the EnumWindows API call instead. it requires a callback function, but defining your callback with the stdcall directive should make that no problem at all. | ||
| ||
|
пиздец, нихуя не понятно
| ||
| ||
|
Belarus, these articles are well beyond your tiny little brain, or your translator capability. Stop insulting authors here and go back to what you do best.
 http://ru.youtube.c..n4cS68FODo | ||
| ||
|
eewewewewe
|
