Сделать программу резидентной

[detalik]

Добрый день, есть программа, которая делает снимок экрана, вот ее исходник

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    SavePictureDialog1: TSavePictureDialog;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
//    procedure CreateParams (var Params: TCreateParams); override;

  end;

var
  Form1: TForm1;
  DC: HDC;
bmp: TBitmap;
jpgImg:TJPEGImage;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Canvas:TCanvas;
 ScreenV:HDC;
 i: String;
begin
 bmp:=TBitmap.Create;
  jpgImg := TJPEGImage.Create;
    bmp.Height:=Screen.Height;
    bmp.Width:=Screen.Width;
    DC:=GetDC(0);
    bitblt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
      DC, 0, 0, SRCCOPY);

  ReleaseDC(0, DC);
  jpgImg.Assign(bmp); {â JPG ãðóçèì Áèòìàï}
  jpgImg.CompressionQuality:=100; {óñòàíàâëèâàåì êîìïðåññèþ (êà÷åñòâî) (1-100)}
  SavePictureDialog1.Execute;
  jpgImg.SaveToFile(SavePictureDialog1.FileName+'.jpg'); {ñîõðàíÿåì â ôîðìàòå JPG}
  jpgImg.Free;
  bmp.Free;


end;

procedure TForm1.Button2Click(Sender: TObject);
var
  Params: TCreateParams;
begin
  inherited CreateParams (Params);
  Params.ExStyle := Params.ExStyle or
    WS_EX_TRANSPARENT;

end;

end.

Необходимо сделать, чтобы при нажатии на Button2 программа "стала невидимой" (т.е. ее невидно ни в трее, ни в диспетчере задач, ни на рабочем столе) и в определенное время делала снимок экрана и сохраняла в определенном месте. Подскажите, пожалуйста, как это сделать.

[Стелс]

типа так вот

procedure TForm1.Button2Click(Sender: TObject);
begin
 Form1.Visible:=false;
end;

[GunSmoker]

Очередной юный хакер?

[Стелс]

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

Очередной юный хакер?

скажите пожалуйста а что он этим кодом "хакает" ???

[Человек_Борща]

Незаметное хищение личной информации.
Делает скины и отсылает их.

[Стелс]

ааааа вот оно как !!!! вот гад а я ему еще хотел помочь , а он значит гад такой снмики с экрана красть хочет нужно срочно позвонить по 02

[detalik]

Я ничего не хакаю, это задание на курсовой проект))) Мамой клянусь))) Единственное Form1.Visible:=false это хорошо, а как бы сделать, чтобы еще и в процессах видно не было?

[ВалекFCRK]

Сообщение от Стелс

типа так вот

procedure TForm1.Button2Click(Sender: TObject);
begin
 Form1.Visible:=false;
end;

в рпоцессах она видна будет

[NetSpace]

Чтоб сделать программу невидимой-невидимой, уже пытались. но результат есть только для Windows XP, под 7 не фурычит. Могу дать исходник своей программы, похожей по действию: выбираешь частоту записи с экрана, саму область записи и папку, куда будешь фотки складывать. она и исчезает на 1-5 минут...время можно задавать. а получается только форму скрыть, а из процессов лучше не убирать, так хоть в случае чего выключить её можно. на, полюбуйся, если что, код могу дать. вдруг понадобится

[GunSmoker]

это задание на курсовой проект)))

Что за бред.