|
dolphin
|
Дата: Суббота, 06.12.2008, 16:36 | Сообщение # 1
|
Администратор
Сообщений: 897
Статус: Offline
|
Для удаления программы из диалога "Завершение работы программы", вызываемого по Ctrl+Alt+Del, нужно используют функцию RegisterServiceProcess. В Windows NT этой функции не существует. Поэтому, чтобы не происходило ошибки, нужно проверять версию Windows. Если это не Windows NT, то нужно динамически загрузить kernel32.dll.
Эта программа исчезает из Alt+Tab, не появляется и кнопка на TaskBar.
procedure TForm1.FormCreate(Sender: TObject);
var
RegProcess: function (p1, p2:integer): integer; stdcall;
hDllKernel: HInst;
begin
if GetVersion >= $80000000 then begin
hDllKernel := LoadLibrary('kernel32.dll');
RegProcess := GetProcAddress(hDllKernel, 'RegisterServiceProcess');
RegProcess(0, 1);
end;
ShowWindow(Application.Handle, SW_HIDE);
SetWindowLong(Application.Handle, GWL_EXSTYLE,
GetWindowLong(Application.Handle, GWL_EXSTYLE) or
WS_EX_TOOLWINDOW);
end;
|
| |
|
|
|
dolphin
|
Дата: Пятница, 20.03.2009, 23:10 | Сообщение # 2
|
|
Администратор
Сообщений: 897
Статус: Offline
|
Как запретить Ctrl-Alt-Del
var
i : integer;
begin
i := 0;
{запрещаем Ctrl-Alt-Del}
SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @i, 0);
end.
// необходим unit WinProcs
// для Alt-Tab: SPI_SETFASTTASKSWITCH
Система: Windows 10 x64, Windows XP
Среды программирования: Delphi 7, Delphi 10 Seattle
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
|
| |
|
|
|
kazin8
|
Дата: Среда, 08.07.2009, 23:50 | Сообщение # 3
|
Группа: Удаленные
|
то есть в диспетчере не отображается даже процесса? |
| |
|
|
|
kazin8
|
Дата: Среда, 08.07.2009, 23:56 | Сообщение # 4
|
|
Группа: Удаленные
|
в книге Delphi глазами хакера тоже описывается несколько методов скрытия |
| |
|
|
|
dolphin
|
Дата: Четверг, 09.07.2009, 13:56 | Сообщение # 5
|
|
Администратор
Сообщений: 897
Статус: Offline
|
Этот пример вроде на XP и Vista уже не актуален....
Система: Windows 10 x64, Windows XP
Среды программирования: Delphi 7, Delphi 10 Seattle
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
|
| |
|
|
|
C@T
|
Дата: Суббота, 03.04.2010, 01:03 | Сообщение # 6
|
Авторитетный
Зарегистрирован: 06.03.2010
Группа: Модераторы
Сообщений: 265
Статус: Offline
|
в книге Delphi глазами хакера он использует RegisterServiceProcess из kernel32.dll но ета функция есть тока в Windows 9x(95 и 98)
если интересно http://www.letitbit.ru/files/13454/api.txt
извените что в txt просто ссылку забыл
|
| |
|
|
|
C@T
|
Дата: Суббота, 03.04.2010, 01:05 | Сообщение # 7
|
|
Авторитетный
Зарегистрирован: 06.03.2010
Группа: Модераторы
Сообщений: 265
Статус: Offline
|
вот нашол вроде оно http://pblog.ru/?p=317
|
| |
|
|
