VPF::Как спрятоть прогу от ctrl+alt+del и панели задач?

WaReZMEN

Дата 4.7.2007, 02:00 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 683
Регистрация: 9.6.2006
Где: Россия, Санкт-Пет ербург

Репутация: нет
Всего: 3

Как спрятоть прогу от ctrl+alt+del и панели задач?
Все было просто в винде 2000 и 9х а вот в XP старые трюки не прокатывают.... как быть?

Это сообщение отредактировал(а) WaReZMEN - 4.7.2007, 02:01

Ak47black

Дата 4.7.2007, 02:03 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: нет
Всего: 0

WaReZMEN, например через регистр. Там гдето прописать нужно.
Вообщем на форуме было вроде.
P.S. Сорри я сразу плохо прочил что ты хотел.

Это сообщение отредактировал(а) Ak47black - 4.7.2007, 02:15

MetalFan

Дата 4.7.2007, 06:41 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 16
Всего: 128

Цитата(WaReZMEN @ 4.7.2007, 03:00

)

Все было просто в винде 2000 и 9х

прааастите, но в 2000 должно быть так же "сложно", как и в XP.
см. Перехват API

--------------------

There are always someone smarter than you...

WaReZMEN

Дата 4.7.2007, 06:52 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 683
Регистрация: 9.6.2006
Где: Россия, Санкт-Пет ербург

Репутация: нет
Всего: 3

MetalFan, прощаю в SP2 почемуто не так smile

MetalFan

Дата 4.7.2007, 07:25 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 16
Всего: 128

Цитата(WaReZMEN @ 4.7.2007, 07:52

)

почемуто не так

не как? я то откуда знаю, как ты в 2000х "скрывался")))

--------------------

There are always someone smarter than you...

WaReZMEN

Дата 4.7.2007, 07:28 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 683
Регистрация: 9.6.2006
Где: Россия, Санкт-Пет ербург

Репутация: нет
Всего: 3

ShowWindow(self.Heldle,SW_HIDE);

MetalFan

Дата 4.7.2007, 09:45 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 16
Всего: 128

гы) скрылся)) ЛОЛ
попробуй
ShowWindow( Application.Handle,SW_HIDE);

--------------------

There are always someone smarter than you...

Ak47black

Дата 4.7.2007, 10:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: нет
Всего: 0

Цитата

ShowWindow( Application.Handle,SW_HIDE);

Мой способ от processes если что.

Предложу немного навороченный способ, назвать прогу svchost.exe и фиг кто отличит настоящий от твоего так как там их куча. smile

Это сообщение отредактировал(а) Ak47black - 4.7.2007, 12:48

WaReZMEN

Дата 4.7.2007, 23:00 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 683
Регистрация: 9.6.2006
Где: Россия, Санкт-Пет ербург

Репутация: нет
Всего: 3

MetalFan, Спасибо.... Я забыл что нужно Application.Handle. Ведь это хендл приложения а я прятол тока форму .

Ak47black, спасибо за совет но я думаю мне не придется от ctrl+alt+del прятать у тестя мозгов не хватит вырубить мои процесс smile

.

Добавлено через 7 минут и 13 секунд
А как перезагрузить комп можно? Выключить я знаю а перезагрузить хз... По XP SP2

Ak47black

Дата 4.7.2007, 23:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: нет
Всего: 0

Код


function MyExitWindows(RebootParam: Longword): Boolean;
var
  TTokenHd: THandle; 
  TTokenPvg: TTokenPrivileges; 
  cbtpPrevious: DWORD; 
  rTTokenPvg: TTokenPrivileges; 
  pcbtpPreviousRequired: DWORD; 
  tpResult: Boolean; 
const 
  SE_SHUTDOWN_NAME = 'SeShutdownPrivilege'; 
begin 
  if Win32Platform = VER_PLATFORM_WIN32_NT then 
  begin 
    tpResult := OpenProcessToken(GetCurrentProcess(), 
      TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, 
      TTokenHd); 
    if tpResult then 
    begin 
      tpResult := LookupPrivilegeValue(nil, 
                                       SE_SHUTDOWN_NAME, 
                                       TTokenPvg.Privileges[0].Luid); 
      TTokenPvg.PrivilegeCount := 1; 
      TTokenPvg.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED; 
      cbtpPrevious := SizeOf(rTTokenPvg); 
      pcbtpPreviousRequired := 0; 
      if tpResult then 
        Windows.AdjustTokenPrivileges(TTokenHd, 
                                      False, 
                                      TTokenPvg, 
                                      cbtpPrevious, 
                                      rTTokenPvg, 
                                      pcbtpPreviousRequired); 
    end; 
  end; 
  Result := ExitWindowsEx(RebootParam, 0); 
end;

Код


        MyExitWindows(EWX_SHUTDOWN or EWX_FORCE);
        MyExitWindows(EWX_REBOOT or EWX_FORCE);
        MyExitWindows(EWX_LOGOFF or EWX_FORCE);

И т.д.
В DRKB3 заглядывай.
И один топик - один вопрос.

Это сообщение отредактировал(а) Ak47black - 4.7.2007, 23:27

WaReZMEN

Дата 4.7.2007, 23:30 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 683
Регистрация: 9.6.2006
Где: Россия, Санкт-Пет ербург

Репутация: нет
Всего: 3

Ak47black, а что за DRKB3& smile

Rennigth

Дата 5.7.2007, 09:40 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 8
Всего: 76

Цитата(WaReZMEN @ 4.7.2007, 23:30

)

а что за DRKB3&

http://www.drkb.ru/

--------------------

(* Honesta mors turpi vita potior *)

KapJIsoH

Дата 31.8.2007, 10:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 23.1.2007
Где: тАжкент

Репутация: нет
Всего: нет

Ныкаем программу от Ctrl Alt Del в WinXP

Эта библиотека должна помочь весит 16 кб
Работает с обной функцией:

Код


program HideProj;

uses
windows, messages;

function HideProcess(pid: DWORD; HideOnlyFromTaskManager: BOOL): BOOL; stdcall;
external 'hide.dll';

function ProcessMessage(var Msg: TMsg): Boolean;
var
Handled: Boolean;
begin
Result := False;
begin
Result := True;
if Msg.Message <> WM_QUIT then
begin
Handled := False;
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
end
end;
end;

procedure ProcessMessages;
var
Msg: TMsg;
begin
while ProcessMessage(Msg) do {loop}
;
end;

begin
HideProcess(GetCurrentProcessId, false);
while true do
begin
ProcessMessages;
end;
end.

нарыл на одном из кучи форумов в сети ...непроверял лично ..

MetalFan

Дата 31.8.2007, 11:09 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 16
Всего: 128

Цитата(KapJIsoH @ 31.8.2007, 10:10

)

нарыл на одном из кучи форумов в сети ...непроверял лично ..

а зачем непроверенное выкладывать?! ты наверное даже не уверен, работает ли это?
а это и неможет работать... где hide.dll? без нее никак)

--------------------

There are always someone smarter than you...

Rennigth

Дата 31.8.2007, 12:09 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 8
Всего: 76

Цитата(KapJIsoH @ 31.8.2007, 10:10

)

Ныкаем программу от Ctrl Alt Del в WinXP

Эта библиотека должна помочь весит 16 кб
Работает с обной функцией:

На сколько помню в XPSP2 это уже не работает.

З.Ы. не проверял, просто помню что обсуждалось где-то.

--------------------

(* Honesta mors turpi vita potior *)

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »