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