![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#11 |
Пользователь
Регистрация: 23.12.2008
Сообщений: 74
|
![]()
}{oт@бь)ч, на все эти вопросы может ответить DelphiWorld, причем в нескольких вариантах предложит как сделать то или инное...
|
![]() |
![]() |
![]() |
#12 |
Форумчанин
Регистрация: 08.01.2009
Сообщений: 180
|
![]()
Хочешь написать программу-шутку, прикалыватся над кем-то?
"Все что натыкано на клаве, ведет тебя к погибели иль славе"
Если помог нажми на весы ![]() |
![]() |
![]() |
![]() |
#13 |
Пользователь
Регистрация: 28.01.2009
Сообщений: 32
|
![]()
Ещё вариант написать Dll и поместить его а автозапуск от Winlogon.exe.
1. Гребём в раздел: HKEY_LOCAL_MACHINE\SOFTWARE\Microso ft\Windows NT\CurrentVersion\Winlogon\Notify 2. Создаём новый раздел с любым именем. 3. В нём параметры Asynchronous (REG_DWORD) Значение: 0 запуск функции из основного потока процесса winlogon.exe, загрузк системы не возможен до тех пор, пока функция не вернет управление. 1 асинхронный запуск, в отдельном потоке. DllName (REG_SZ) Путь к Dll. Если валяется в системной папке достаточно её имени. Impersonate (REG_DWORD) Права доступа: 0 права системы 1 права пользователя Startup (REG_SZ) запуск функции при старте системы. В значении имя функции. а вот исходние запуска блокнота из Dll library Run; uses windows; procedure ExecuteNotepad(); var St: TStartupinfo; Pr: TProcessInformation; begin ZeroMemory(@St, SizeOf(St)); St.cb := SizeOf(St); St.lpDesktop := PChar('winsta0\default'); CreateProcess(nil, 'notepad.exe', nil, nil, false, 0, nil, nil, St, Pr); end; exports ExecuteNotepad; begin end. а в реестр примерно такое [HKEY_LOCAL_MACHINE\SOFTWARE\Microso ft\Windows NT\CurrentVersion\Winlogon\Notify\R un] "Asynchronous"=dword:00000001 "Impersonate"=dword:00000000 "DllName"="run.dll" "Logon"="ExecuteNotepad" |
![]() |
![]() |
![]() |
#14 |
Регистрация: 20.02.2015
Сообщений: 3
|
![]() |
![]() |
![]() |
![]() |
#15 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
![]()
iMic, поторопились Вы со своим важным и нужным комментарием.
А вот дождались бы 28 января, было бы ровно семь лет, как эта тема умерла! |
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
сделать программу на весь экран | Killbrum | Помощь студентам | 10 | 09.09.2008 09:50 |
Как развернуть проигрываемый видео файл на весь екран | SeRhy | Мультимедиа в Delphi | 2 | 26.01.2008 21:43 |
Флажки на весь столбец | Talisman | Microsoft Office Excel | 12 | 02.01.2008 19:20 |
форма во весь экран??? | zzzzz | Помощь студентам | 8 | 08.11.2007 08:39 |
во весь экран | Артэс | Общие вопросы C/C++ | 7 | 17.08.2007 23:37 |