Прикол с рабочи столом

Содержание материала

Страница 1 из 3

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

Code:

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, чтобы картинка занимала всё свободное. место

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

Прикол с рабочи столом

Прикол с рабочи столом

Содержание материала

Новые статьи

Ранние статьи

Случайные статьи

Популярные статьи

Добавить комментарий

Системные функции и WinAPI

Вопросы по Delphi

VCL

Язык Дельфи

Облако тегов

Карта сайта