Esta utilidad puede servir, por ejemplo, para no dejar que se ejecute Internet Explorer, basta con iniciar la aplicación en el arranque, añadirle la opción de que no se muestre en la barra de tareas (ver truco) ni en Tareas activas (al pulsar Ctrl+Alt+Sup) (ver truco) y programarla para que se ejecute la función cada x tiempo, así no dejará al usuario conectarse a Internet.

Listado del programa completo:

unit Unit1;

interface

uses
  Windows, Messages, Classes, Graphics, Controls, Forms, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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
    // verificar por el nombre de la clase
    GetClassName (Wnd, sCap, sizeof(sCap));
    if sCap = 'IEFrame' then
      PostMessage (Wnd, WM_CLOSE, 0, 0);
  end;

  CloseIEs := true; { siguiente ventana }
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  //para cerrar todas las instancias de Internet Explorer abiertas
  EnumWindows(@CloseIEs, 0);
end;

end.

Publicado el: 2003-09-19