Delphi, Vírus que impede inicialização do IE durante execução de um projeto em delphi

Hoje aprenderemos a criar um "vírus" que pode ser usado para o bem.

Mas como assim, ser usado para o bem?
Esse virus é especialmente para os navegadores criados em delphi. As vezes quando são executados eles dão erro e abrem o internet explorer, e nosso virus apenas impedirá que o IE seja aberto.
Primeiro adicione um Timer(será o único componente a ser usado);

Declare a variável ByeIE da seguinte forma:
byeIE : Thandle;
Agora clique duas vezes no timer e colo o seguinte código:
procedure TForm1.Timer1Timer(Sender: TObject);
var
byeIE : Thandle;
begin
while byeIE <> 0 do
begin
byeIE := FindWindow('IEFrame',nil);
SendMessage(byeIE,WM_SYSCOMMAND,SC_CLOSE,0);
end;
CloseHandle(byeIE);
end;
Você também poderá súbstituir o 'IEFrame' por outra classe, para fazer com outros programas a mesma coisa.
e para o programa ficar invisível vá até PROJECT > VIEW SOURCE e coloque abaixo do Application.Initialize o sguinte código:

Application.ShowMainForm := False;


Tutorial de: Junior Evangelista ADM