Приколы на Delphi

@vallerik · Регистрация: 11.01.2011

Студворк — интернет-сервис помощи студентам

Дайте пожалуйста какиенибуть исходники или исходный код приколов на Delphi
ЗАРАНИЕ БЛАГОДАРЮ

@Arcor · 13.04.2012, 23:20

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

Улыбнула прога)) гениальна и проста..

прикол был в том, когда я тестировал ее, я сидел среди кучи идиотов школьников, и один написал в эдит 1 000 000 и кликнул ОК без моего ведома.... мой бедный ноутбук так повис...

смотрите последнее сообщение которое было оставлено, и потом эта тема была позабыта, прошел ровно год и 1 день

@paxan86 · 13.04.2012, 23:25

Ахаххааха

DD не заметил..дату...

DDDDD я набрал 1к)) через штук 50 смог вырубить)

@snowextreeme · 14.04.2013, 22:49

Когда-то случайно на один сайт зашел, почитал, посмеялся над идеями приколов и закрыл. А сейчас делать стало нечего и вспомнил, что сайт хороший с приколами был и искал его весь вечер и все-таки нашел!
вот тот самый сайт
почитайте, там много интересного. Прикол про смену названия кнопки пуск вообще зачетный!

@MegaBatcher2000 · 14.09.2019, 22:10

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

Вот я из книги вычитал
Каждые 5 секунд курсор мыши перемещается в случайное место

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender: TObject);
var
OK: boolean;
begin
OK:=false;
repeat
randomize;
setcursorpos(random(Screen.Width-1),random(Screen.Height-1));
sleep (5000);
until OK;
end;

А так не проще и лучше?

Delphi
1
2
3
4
5
6
7
8
procedure TForm1.Button1Click(Sender: TObject);
begin
repeat
randomize;
setcursorpos(random(Screen.Width-1),random(Screen.Height-1));
Timer1.Enabled:=true;
until false;
end;

Код для таймера:

Code
1
пусто

Настройки таймера:

Code
1
2
Interval: 500
Enabled: false

Не по теме:

snowextreeme, скинь что там было пожалуйста

@Пытливый · 15.09.2019, 02:35

Зачем так сложно? Просто переверните ему монитор на 180 градусов и всех делов. Если вращается то механически, а если нет, то можно настройкой монитора.

@MegaBatcher2000 · 29.02.2020, 15:07

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

Отключить :
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0);
Включить :
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);

Дак это выключение монитора

@GoodWeather · 29.02.2020, 21:50

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

Каждые 5 секунд курсор мыши перемещается в случайное место

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

А так не проще и лучше?

Добавлено через 1 минуту
Вообще-то как бы должно быть вот так вот:

Interval: 5000

Enabled: False

Delphi
1
2
3
4
5
6
7
8
9
procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize();
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := True;
end;

Delphi
1
2
3
4
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Mouse.CursorPos := Point(Random(Screen.DesktopWidth) - Screen.DesktopLeft, Random(Screen.DesktopHeight) - Screen.DesktopTop);
end;

Новые блоги и статьи Все статьи Все блоги /
Особенности gif сгенерированных в Си russiannick 21.10.2026 Рассмотрим генерацию gif файлов, которые в Си имеют свои особенности. Gif представляет собой графический формат популярный в интернете. Посмотрим на палитру. Gif файл сгенерированный в си отличается. . .	FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .

@vallerik Фрилансер 67 / 37 / 2 Регистрация: 11.01.2011 Сообщений: 280

	Приколы на Delphi 24.03.2011, 10:42. Показов 15730. Ответов 26 Метки нет (Все метки) Дайте пожалуйста какиенибуть исходники или исходный код приколов на Delphi ЗАРАНИЕ БЛАГОДАРЮ 0

@paxan86 51 / 46 / 8 Регистрация: 18.05.2011 Сообщений: 497
	13.04.2012, 23:25
	Ахаххааха DD не заметил..дату... DDDDD я набрал 1к)) через штук 50 смог вырубить) 0

@snowextreeme 4 / 4 / 1 Регистрация: 14.04.2013 Сообщений: 5
	14.04.2013, 22:49
	Когда-то случайно на один сайт зашел, почитал, посмеялся над идеями приколов и закрыл. А сейчас делать стало нечего и вспомнил, что сайт хороший с приколами был и искал его весь вечер и все-таки нашел! вот тот самый сайт почитайте, там много интересного. Прикол про смену названия кнопки пуск вообще зачетный! 0

@Пытливый 3765 / 2272 / 706 Регистрация: 29.05.2013 Сообщений: 9,622
	15.09.2019, 02:35
	Зачем так сложно? Просто переверните ему монитор на 180 градусов и всех делов. Если вращается то механически, а если нет, то можно настройкой монитора. 0