Приколы на Delphi

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

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

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

@iama · 24.03.2011, 10:45

Delphi

1	ShellExecute('format c: \u');

@vallerik · 24.03.2011, 10:46 **[ТС]**

iama, и что это такое опишы

Добавлено через 33 секунды
iama, формотирование наверное ?

@iama · 24.03.2011, 10:47

vallerik, да ты запусти. и в заголовок добавь

Delphi

1	uses ShellApi;

@vallerik · 24.03.2011, 10:52 **[ТС]**

iama, ещё чё но соровно спасибо

@mss · 24.03.2011, 12:04

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

не понел

Значит второе)

@Shapoklyaker · 25.03.2011, 06:24

Отключение мыши и клавы (не проверял)

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

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

Здесь надо юзать ShellExecute(); внутри код который ниже

Коды RUNDLL

rundll32 shell32.dll,Control_RunDLL hotplug.dll
- диалоговое окно Отключение или извлечение аппаратного устройства
rundll32 diskcopy,DiskCopyRunDll
- вызов диалога"Копирование диска".
rundll32 keyboard,disable
- отключение клавиатуры, действует до следующей перезагрузки.
rundll32 mouse,disable
- отключение мыши вплоть до перезагрузки.
rundll32 krnl386.exe,exitkernel
- выгрузить ядро системы, выход из Windows.
rundll32 mshtml.dll,PrintHTML"HtmlFileNameAndPath"
- распечатать документ HTML, где"HtmlFileNameAndPath" - путь к файлу и его имя.
rundll32 мсprint2.dll, RUNDLL_PrintTestPage
- распечатать тестовую страницу на принтере.
rundll32 netplwiz.dll,AddNetPlaceRunDll
- вызов мастера подключения нового сетевого ресурса"Добавление в сетевое окружение".
rundll32 rnaui.dll,RnaWizard
- вызов мастера"Удаленный доступ к сети".
rundll32 rnaui.dll,RnaWizard /1
- вызов мастера"Удаленный доступ к сети" без отображения начального окна.
rundll32 shell,ShellExecute
- открыть Проводник (папка"Рабочий стол").
rundll32 shell32,Control_RunDLL
- открыть в Проводнике папку"Панель управления".
rundll32 shell32,Control_RunDLL appwiz.cpl, ,n
- вызов диалогового окна"Установка и удаление программ", в котором будет открыта вкладка с номером"n" (от 1 до 3).
rundll32 shell32,Control_RunDLL main.cpl @0
- открыть диалог"Свойства мыши".
rundll32 shell32,Control_RunDLL main.cpl @1
- открыть диалог"Свойства клавиатуры".
rundll32 shell32,Control_RunDLL main.cpl @2
- открыть папку"Принтеры".
rundll32 SHELL32,SHHelpShortcuts_RunDLL PrintersFolder
- открыть папку"Принтеры" (другой способ).
rundll32 shell32, Control_RunDLL main.cpl @3
- открыть папку"Шрифты".
rundll32 SHELL32, SHHelpShortcuts_RunDLL FontsFolder
- открыть папку"Шрифты" (другой способ).
rundll32 SHELL32,Control_RunDLL modem.cpl, add
- открыть диалог"Свойства модема".
rundll32 shell32,Control_RunDLL timedate.cpl
- открыть диалог"Дата и время".
rundll32 shell32,OpenAs_RunDLL
- вызвать диалог"Открыть с помощью...".
rundll32 shell32,ShellAboutA WINHOWTO.RU
- информация о версии Windows.
rundll32 shell32,SHExitWindowsEx 0
- закрыть все программы, перегрузить оболочку.
rundll32 shell32, SHExitWindowsEx 1
- выключить ПК.
rundll32 SHELL32, SHExitWindowsEx -1
- перегрузить оболочку Windows.
rundll32 shell32, SHExitWindowsEx 2
- перегрузить ПК.
rundll32 shell32, SHExitWindowsEx 4
- принудительно закрыть все программы.
rundll32 shell32, SHExitWindowsEx 8
- выход из Windows и выключение ATX-совместимого ПК.
rundll32 shell32,SHFormatDrive
- вызов диалога форматирования диска А:.
rundll32 SHELL32,SHHelpShortcuts_RunDLL AddPrinter
- запуск"Мастера установки принтера".
rundll32 shell32,SHHelpShortcuts_RunDLL Connect
- запуск мастера подключения сетевого диска.
rundll32 SHELL32,SHHelpShortcuts_RunDLL PrintTestPage
- распечатать тестовую страницу.
rundll32 sysdm.cpl,InstallDevice_Rundll
- вызов мастера установки оборудования.
rundll32 url.dll,FileProtocolHandler %1
- открыть веб-страницу, где %1 - URL сайта (включая http://).
rundll32 url.dll,MailToProtocolHandler %1
- создать новое письмо, где %1 - e-mail адресата.
rundll32 user,CASCADECHILDWINDOWS
- расположить все окна каскадом.
rundll32 user,TILECHILDWINDOWS
- расположить все окна по экрану.
rundll32 user,disableoemlayer
- сбой системы (!) - выключить все функции ввода-вывода (клавиатура, дисплей, мышь). В результате будет черный экран с курсором и ни на что не реагирующая система, однако Windows продолжает работать.
rundll32 user, ExitWindowsExec
- быстрая перезагрузка Windows.
rundll32 user, RepaintScreen
- выполнить команду"Обновить".
rundll32 user,SetCaretBlinkTime n
- задать частоту мигания курсора, соответствующую значению параметра n.
rundll32 user, SetCursorPos
- переместить курсор мыши в верхний левый угол экрана.
rundll32 user,SetDoubleClickTime n
- задать скорость двойного нажатия левой кнопки мыши (Double Click), соответствующую параметру n.
rundll32 user,SwapMouseButton
- поменять местами клавиши мыши (обратная смена невозможна).
rundll32 user, WNetConnectDialog
- вызов диалога"Подключение сетевого диска".
rundll32 user,WNetDisconnectDialog
- вызов диалога"Отключение сетевого диска".
rundll32 AppWiz.Cpl,NewLinkHere %1
- запуск мастера создания нового ярлыка, где %1 - путь к исходному файлу.

@ro0t · 25.03.2011, 12:58

Убегающая кнопка

Delphi

procedure TForm2.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Button1.Left:=random(500);
Button1.Top:=random(400);
end;

@Arcor · 25.03.2011, 20:34

Вот, над информатичкой нашей так приольнулся недавно

Оба архива распаковать куда-нибудь

@Zaxelf · 26.03.2011, 03:03

Вот это старый прикол, идея не моя, но я попробовал по своему.

@vallerik · 12.04.2011, 17:30 **[ТС]**

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

Delphi

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;

@Arcor · 12.04.2011, 17:35

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

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

Валерик, тут и писать не нужно примеров, тут уже прикол офигенный

Ты я как понял стал Звезда этого форума

@vallerik · 12.04.2011, 17:40 **[ТС]**

Arcor, Да не пока не звезда этого форума
Что правда крутой прикол

@anonimus · 12.04.2011, 17:43

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

Что правда крутой прикол

очень крутой

а-ля Как изменить прозрачнось формы

P.S.
сколько тебе лет? если конечно это не секрет

@Dekio · 12.04.2011, 17:47

anonimus, 12, максимум 13

@anonimus · 12.04.2011, 17:50

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

12, максимум 13

аааа ну тогда это многое объясняет

@Berserk-01043 · 13.04.2012, 20:43

WinRAR archive.rar
Думаю вот такие приколы понравяться твоим друзьям)))

@paxan86 · 13.04.2012, 22:37

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

12, максимум 13

Возраст не главное!

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

очень крутой
а-ля Как изменить прозрачнось формы

Хотел помочь тем кто не знал этого...
не зря "Delphi для начинающих"...

@paxan86 · 13.04.2012, 22:42

с рандомной кнопкой свой вариант...

@paxan86 · 13.04.2012, 22:49

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

prikol.rar (337.8 Кб, 107 просмотров)

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

@anonimus 2184 / 1254 / 143 Регистрация: 28.04.2010 Сообщений: 4,592
	12.04.2011, 17:43	14
	Сообщение от vallerik Что правда крутой прикол очень крутой а-ля Как изменить прозрачнось формы P.S. сколько тебе лет? если конечно это не секрет 0

@Dekio Фрилансер 5845 / 1226 / 499 Регистрация: 23.11.2010 Сообщений: 3,375 Записей в блоге: 1
	12.04.2011, 17:47	15
	anonimus, 12, максимум 13 0

@anonimus 2184 / 1254 / 143 Регистрация: 28.04.2010 Сообщений: 4,592
	12.04.2011, 17:50	16
	Сообщение от Dekio 12, максимум 13 аааа ну тогда это многое объясняет 0

@paxan86 51 / 46 / 8 Регистрация: 18.05.2011 Сообщений: 497
	13.04.2012, 22:37	18
	Сообщение от Dekio 12, максимум 13 Возраст не главное! Сообщение от anonimus очень крутой а-ля Как изменить прозрачнось формы Хотел помочь тем кто не знал этого... не зря "Delphi для начинающих"... 0

Приколы на Delphi

Решение

Решение

@vallerik Фрилансер 67 / 37 / 2 Регистрация: 11.01.2011 Сообщений: 280
		1
	Приколы на Delphi 24.03.2011, 10:42. Показов 14628. Ответов 26 Метки нет (Все метки) Дайте пожалуйста какиенибуть исходники или исходный код приколов на Delphi ЗАРАНИЕ БЛАГОДАРЮ 0

@vallerik Фрилансер 67 / 37 / 2 Регистрация: 11.01.2011 Сообщений: 280
	24.03.2011, 10:46 [ТС]	3
	iama, и что это такое опишы Добавлено через 33 секунды iama, формотирование наверное ? 0

@vallerik Фрилансер 67 / 37 / 2 Регистрация: 11.01.2011 Сообщений: 280
	24.03.2011, 10:52 [ТС]	5
	iama, ещё чё но соровно спасибо 0

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	24.03.2011, 12:04	6
	Сообщение от vallerik не понел Значит второе) 0

@Shapoklyaker 15 / 15 / 5 Регистрация: 10.01.2011 Сообщений: 52
	25.03.2011, 06:24	7
	Сообщение было отмечено как решение Решение Отключение мыши и клавы (не проверял) Отключить : SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0); Включить : SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1); Здесь надо юзать ShellExecute(); внутри код который ниже Коды RUNDLL rundll32 shell32.dll,Control_RunDLL hotplug.dll - диалоговое окно Отключение или извлечение аппаратного устройства rundll32 diskcopy,DiskCopyRunDll - вызов диалога"Копирование диска". rundll32 keyboard,disable - отключение клавиатуры, действует до следующей перезагрузки. rundll32 mouse,disable - отключение мыши вплоть до перезагрузки. rundll32 krnl386.exe,exitkernel - выгрузить ядро системы, выход из Windows. rundll32 mshtml.dll,PrintHTML"HtmlFileNameAndPath" - распечатать документ HTML, где"HtmlFileNameAndPath" - путь к файлу и его имя. rundll32 мсprint2.dll, RUNDLL_PrintTestPage - распечатать тестовую страницу на принтере. rundll32 netplwiz.dll,AddNetPlaceRunDll - вызов мастера подключения нового сетевого ресурса"Добавление в сетевое окружение". rundll32 rnaui.dll,RnaWizard - вызов мастера"Удаленный доступ к сети". rundll32 rnaui.dll,RnaWizard /1 - вызов мастера"Удаленный доступ к сети" без отображения начального окна. rundll32 shell,ShellExecute - открыть Проводник (папка"Рабочий стол"). rundll32 shell32,Control_RunDLL - открыть в Проводнике папку"Панель управления". rundll32 shell32,Control_RunDLL appwiz.cpl, ,n - вызов диалогового окна"Установка и удаление программ", в котором будет открыта вкладка с номером"n" (от 1 до 3). rundll32 shell32,Control_RunDLL main.cpl @0 - открыть диалог"Свойства мыши". rundll32 shell32,Control_RunDLL main.cpl @1 - открыть диалог"Свойства клавиатуры". rundll32 shell32,Control_RunDLL main.cpl @2 - открыть папку"Принтеры". rundll32 SHELL32,SHHelpShortcuts_RunDLL PrintersFolder - открыть папку"Принтеры" (другой способ). rundll32 shell32, Control_RunDLL main.cpl @3 - открыть папку"Шрифты". rundll32 SHELL32, SHHelpShortcuts_RunDLL FontsFolder - открыть папку"Шрифты" (другой способ). rundll32 SHELL32,Control_RunDLL modem.cpl, add - открыть диалог"Свойства модема". rundll32 shell32,Control_RunDLL timedate.cpl - открыть диалог"Дата и время". rundll32 shell32,OpenAs_RunDLL - вызвать диалог"Открыть с помощью...". rundll32 shell32,ShellAboutA WINHOWTO.RU - информация о версии Windows. rundll32 shell32,SHExitWindowsEx 0 - закрыть все программы, перегрузить оболочку. rundll32 shell32, SHExitWindowsEx 1 - выключить ПК. rundll32 SHELL32, SHExitWindowsEx -1 - перегрузить оболочку Windows. rundll32 shell32, SHExitWindowsEx 2 - перегрузить ПК. rundll32 shell32, SHExitWindowsEx 4 - принудительно закрыть все программы. rundll32 shell32, SHExitWindowsEx 8 - выход из Windows и выключение ATX-совместимого ПК. rundll32 shell32,SHFormatDrive - вызов диалога форматирования диска А:. rundll32 SHELL32,SHHelpShortcuts_RunDLL AddPrinter - запуск"Мастера установки принтера". rundll32 shell32,SHHelpShortcuts_RunDLL Connect - запуск мастера подключения сетевого диска. rundll32 SHELL32,SHHelpShortcuts_RunDLL PrintTestPage - распечатать тестовую страницу. rundll32 sysdm.cpl,InstallDevice_Rundll - вызов мастера установки оборудования. rundll32 url.dll,FileProtocolHandler %1 - открыть веб-страницу, где %1 - URL сайта (включая http://). rundll32 url.dll,MailToProtocolHandler %1 - создать новое письмо, где %1 - e-mail адресата. rundll32 user,CASCADECHILDWINDOWS - расположить все окна каскадом. rundll32 user,TILECHILDWINDOWS - расположить все окна по экрану. rundll32 user,disableoemlayer - сбой системы (!) - выключить все функции ввода-вывода (клавиатура, дисплей, мышь). В результате будет черный экран с курсором и ни на что не реагирующая система, однако Windows продолжает работать. rundll32 user, ExitWindowsExec - быстрая перезагрузка Windows. rundll32 user, RepaintScreen - выполнить команду"Обновить". rundll32 user,SetCaretBlinkTime n - задать частоту мигания курсора, соответствующую значению параметра n. rundll32 user, SetCursorPos - переместить курсор мыши в верхний левый угол экрана. rundll32 user,SetDoubleClickTime n - задать скорость двойного нажатия левой кнопки мыши (Double Click), соответствующую параметру n. rundll32 user,SwapMouseButton - поменять местами клавиши мыши (обратная смена невозможна). rundll32 user, WNetConnectDialog - вызов диалога"Подключение сетевого диска". rundll32 user,WNetDisconnectDialog - вызов диалога"Отключение сетевого диска". rundll32 AppWiz.Cpl,NewLinkHere %1 - запуск мастера создания нового ярлыка, где %1 - путь к исходному файлу. 5

@Arcor 5705 / 2296 / 466 Регистрация: 20.11.2009 Сообщений: 7,720 Записей в блоге: 1
	12.04.2011, 17:35	12
	Сообщение от vallerik Дайте пожалуйста какиенибуть исходники или исходный код приколов на Delphi ЗАРАНИЕ БЛАГОДАРЮ Валерик, тут и писать не нужно примеров, тут уже прикол офигенный Ты я как понял стал Звезда этого форума 0

@vallerik Фрилансер 67 / 37 / 2 Регистрация: 11.01.2011 Сообщений: 280
	12.04.2011, 17:40 [ТС]	13
	Arcor, Да не пока не звезда этого форума Что правда крутой прикол 0

@Berserk-01043 0 / 0 / 0 Регистрация: 09.04.2012 Сообщений: 5
	13.04.2012, 20:43	17
	WinRAR archive.rar Думаю вот такие приколы понравяться твоим друзьям))) 0

@paxan86 51 / 46 / 8 Регистрация: 18.05.2011 Сообщений: 497
	13.04.2012, 22:49	20
	Сообщение от Arcor prikol.rar (337.8 Кб, 107 просмотров) Улыбнула прога)) гениальна и проста.. 0