|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
27.01.2009, 15:18 | #11 |
Пользователь
Регистрация: 23.12.2008
Сообщений: 74
|
}{oт@бь)ч, на все эти вопросы может ответить DelphiWorld, причем в нескольких вариантах предложит как сделать то или инное...
|
27.01.2009, 15:34 | #12 |
Форумчанин
Регистрация: 08.01.2009
Сообщений: 180
|
Хочешь написать программу-шутку, прикалыватся над кем-то?
"Все что натыкано на клаве, ведет тебя к погибели иль славе"
Если помог нажми на весы |
28.01.2009, 22:34 | #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.01.2016, 11:22 | #14 |
Регистрация: 20.02.2015
Сообщений: 3
|
|
14.01.2016, 12:12 | #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 |