Чувствую в этой теме буду 1 я отписыватся. 1. Убегающая кнопка.
Много кто до меня и после меня писал эту программу.
Смысл проги нажать на кнопку.
Кнопка же сопротивляется этому всеми силами, убегая от подлого курсора.
Вот собственно Исходник.
Quote
procedure TForm2.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
i:integer;
begin
i:=random(4);
case i of
1:Button1.Left:=button1.Left+button1.Width; // Сво-во left отвечает за нахождение объекта по горизонтале. в данном случае объект сдвинется влево.
2:Button1.Left:=button1.Left-Button1.Width;
3:Button1.Top:=Button1.Top-Button1.Width; //Тор как можно предположить высота. в данном случае объект сдвигается вниз
4:Button1.Top:=Button1.Top+Button1.Height;
end;
if Button1.Left<0 then // проверка условия что бы кнопка не вылетела за края.
Button1.Left:=0;
if Button1.Top<0 then
Button1.Top:=216;
if button1.Left>Form2.Width then
Button1.Left:=Form2.Width-Button1.Left;
if Button1.Top>Form2.Height then
Button1.top:=Form2.Height-Button1.Top;
end; //ну тут всё прозрачно если положение кнопки больше высоты(ширины) формы то мы отнимаем от формы положение кнопки.
end.
В принцепе всё.
Можно пробовоть.
Ну что за на...?
когда ловишь курсором кнопку она останавливается.
всё очень просто добавляем события onmouse... кнопки для формы.
Всё наслаждайтеь
Добавлено (04.01.2009, 21:30:14)
---------------------------------------------
Не большой урок вирусологии.
Глядя на это творение я плачу и успокаиваю себя тем что мы все с чего-то начинали.
Вариант 1 под кодовым названием
"не палит антивирус но весит много"
Создаём форму
Oncreate для неё.
Quote
var
i:integer;
begin
Form2.Hide;
While 1=1 do // Организовываем бесконечный цикл))
i:=i*4*i*1*1*1*1*6*1
end.
Всё.
Дам 2 пояснения.
Метод Hide прячет форму от посторонних глаз.
выключить процесс можно через диспетчер задач процессы.
Минус Этого приложения в том что весит он 500кб
Вариант два
Создаём новый проэкт.
Включаем в вкладке view project meneger
В появившемся окошке выбираем unit1 наш подключенный модуль и отправляем его на тот свет
клавишей del.
Компилируем.
всё теперь у нас это счастье весит 25-20 кубиков что бы узнать точно
PRoject
Information for project.
Теперь к написанию самого кода.
Вменеджере проэкто правой клавишей по файлу с раширением exe view source.
под uses стираем Forms пишем Windows.
uses
Windows;
Между бегином и Эндом убираем всё. Можем переписывать всё то что написли в 1-й версее вируса кроме Form2.Hide;
Компилируем.
В этот момент должен проснутся даже самый безмятежный антивирус.
Теперь о том что он делает.
После загрузки он селится в оперативке и запускает свой бесконечный цикл.
лично у меня он сжирает 50% процессорного времени.
то есть в мощную игру уже не поиграть((
Исходник кидать не буду кому интересно так сделают)
