Delphi. Юзер отделался первым легким испугом

Xakep, номер #032, стр. 032-073-1

Horrific (smiandr@mail.ru) www.x-c-r.com

Подписи:

Для Delphi1 - Свойства формы в объектном инспекторе

Для Delphi2 - Обработчик сообщения OnCreate

====Листинг 1====

procedure TForm1.FormCreate(Sender: TObject);

var

ScreenDC:HDC; //Переменная типа HDC

Canvas:TCanvas; //Переменная типа Tcanvas

Begin

ScreenDC := GetDC(0); //Получаем доступ к экрану

Canvas:=TCanvas.Create();//Создаем TCanvas

Canvas.Handle:=ScreenDC;//Присваивает в TСanvas экран

//Устанавливаю размер окна в размеры экрана

Width:=Screen.Width; //Ширина окна:=Ширина экрана

Height:=Screen.Height;

//Копирую содержимое экрана в компонент Image1

Image1.Canvas.CopyRect(Rect(0,0,Image1.Width,Image1.Height),

Canvas, Rect(0,0,Screen.Width,Screen.Height));

//Освобождаю переменную ScreenDC

ReleaseDC(0,ScreenDC);

//Удаляю Canvas

Canvas.Free;

end;

====Листинг 2====

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));

Image1.Canvas.Pen.Color:=clRed; //Устанавливаю цвет пера в красный

Image1.Canvas.Pen.Width:=20;//Устанавливаю ширину пера

Image1.Canvas.MoveTo(250,150);

Image1.Canvas.LineTo(Image1.Width-250,Image1.Height-150);

Image1.Canvas.MoveTo(Image1.Width-250,150);

Image1.Canvas.LineTo(250,Image1.Height-150);

ReleaseDC(0,ScreenDC);

Canvas.Free;

end;

В прошлом номере я уже познакомил тебя с начальными знаниями по Delphi, достаточными для программирования. Больше я не буду грузить тебя голой теорией, потому что, кроме голых теток, ничего больше в голом виде не может заинтересовать настоящего мэна. Так что сегодня мы напишем первую программу, и ты убедишься, что это очень просто и доступно. Хотя я рассчитывал это сделать немного позже, но что тянуть. Пора направить свой ум правильном направлении и немного пошКодить :).

Предыстория

В качестве примера я написал маленькую прогу, которая при запуске запоминает содержимое экрана. Затем появляется на весь экран и внутри окна показывает содержимое экрана до запуска.

Эффект от запуска проги: жертва (которой ты забросишь прогу) запускает ее. Один раз мигает экран, и больше ничего не происходит. Теперь вместо рабочего стола находится твоя прога, которая отображает рабочий стол. Но жертва этого не знает. Она думает, что видит настоящий рабочий стол, а не твое окно с изображением. Посмотри на этого лама со стороны. Прикольно наблюдать, как он тыкает мышкой по монитору и не может понять, почему ничего не происходит. Единственный способ закрыть прогу - нажать Alt+F4 или снять задачу через Ctrl+Alt+Del.

Начнем?

Запускай Delphi. После запуска перед тобой появится оболочка Delphi и новый пустой проект. Сразу сохрани все это. Для этого выбери "Save All" из меню "File". Сначала тебя попросят ввести имя формы (по умолчанию это Unit1), а затем нужно ввести имя проекта (по умолчанию это Project1). Я эти имена не стал менять, а просто жал на пимпу "Сохранить". Ты можешь задать человеческие имена. Кстати, имя проекта будет использоваться в качестве имени запускного файла. Так что как ты его назовешь, так и будет называться .ехе файл.

Содержание  Вперед на стр. 032-073-2

загрузка...
Журнал Хакер #151Журнал Хакер #150Журнал Хакер #149Журнал Хакер #148Журнал Хакер #147Журнал Хакер #146Журнал Хакер #145Журнал Хакер #144Журнал Хакер #143Журнал Хакер #142Журнал Хакер #141Журнал Хакер #140Журнал Хакер #139Журнал Хакер #138Журнал Хакер #137Журнал Хакер #136Журнал Хакер #135Журнал Хакер #134Журнал Хакер #133Журнал Хакер #132Журнал Хакер #131Журнал Хакер #130Журнал Хакер #129Журнал Хакер #128Журнал Хакер #127Журнал Хакер #126Журнал Хакер #125Журнал Хакер #124Журнал Хакер #123Журнал Хакер #122Журнал Хакер #121Журнал Хакер #120Журнал Хакер #119Журнал Хакер #118Журнал Хакер #117Журнал Хакер #116Журнал Хакер #115Журнал Хакер #114Журнал Хакер #113Журнал Хакер #112Журнал Хакер #111Журнал Хакер #110Журнал Хакер #109Журнал Хакер #108Журнал Хакер #107Журнал Хакер #106Журнал Хакер #105Журнал Хакер #104Журнал Хакер #103Журнал Хакер #102Журнал Хакер #101Журнал Хакер #100Журнал Хакер #099Журнал Хакер #098Журнал Хакер #097Журнал Хакер #096Журнал Хакер #095Журнал Хакер #094Журнал Хакер #093Журнал Хакер #092Журнал Хакер #091Журнал Хакер #090Журнал Хакер #089Журнал Хакер #088Журнал Хакер #087Журнал Хакер #086Журнал Хакер #085Журнал Хакер #084Журнал Хакер #083Журнал Хакер #082Журнал Хакер #081Журнал Хакер #080Журнал Хакер #079Журнал Хакер #078Журнал Хакер #077Журнал Хакер #076Журнал Хакер #075Журнал Хакер #074Журнал Хакер #073Журнал Хакер #072Журнал Хакер #071Журнал Хакер #070Журнал Хакер #069Журнал Хакер #068Журнал Хакер #067Журнал Хакер #066Журнал Хакер #065Журнал Хакер #064Журнал Хакер #063Журнал Хакер #062Журнал Хакер #061Журнал Хакер #060Журнал Хакер #059Журнал Хакер #058Журнал Хакер #057Журнал Хакер #056Журнал Хакер #055Журнал Хакер #054Журнал Хакер #053Журнал Хакер #052Журнал Хакер #051Журнал Хакер #050Журнал Хакер #049Журнал Хакер #048Журнал Хакер #047Журнал Хакер #046Журнал Хакер #045Журнал Хакер #044Журнал Хакер #043Журнал Хакер #042Журнал Хакер #041Журнал Хакер #040Журнал Хакер #039Журнал Хакер #038Журнал Хакер #037Журнал Хакер #036Журнал Хакер #035Журнал Хакер #034Журнал Хакер #033Журнал Хакер #032Журнал Хакер #031Журнал Хакер #030Журнал Хакер #029Журнал Хакер #028Журнал Хакер #027Журнал Хакер #026Журнал Хакер #025Журнал Хакер #024Журнал Хакер #023Журнал Хакер #022Журнал Хакер #021Журнал Хакер #020Журнал Хакер #019Журнал Хакер #018Журнал Хакер #017Журнал Хакер #016Журнал Хакер #015Журнал Хакер #014Журнал Хакер #013Журнал Хакер #012Журнал Хакер #011Журнал Хакер #010Журнал Хакер #009Журнал Хакер #008Журнал Хакер #007Журнал Хакер #006Журнал Хакер #005Журнал Хакер #004Журнал Хакер #003Журнал Хакер #002Журнал Хакер #001