Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.08.2009, 19:58   #1
Vol666
Гуру Разврата
Форумчанин
 
Аватар для Vol666
 
Регистрация: 29.07.2009
Сообщений: 373
Печаль заблокировать TaskMgr в Windows Vista\7 (рееестр)

uses RegisTry;
procedure TForm1.FormCreate(Sender: TObject);
var reg: tregistry;
begin
reg := tregistry.create;
reg.rootkey := HKEY_CURRENT_USER;
reg.lazywrite := false;
reg.openkey('Software\Microsoft\Win dows\CurrentVersion\Policies\system ',true);
Reg.WriteInteger('DisableTaskMgr',1 );
Reg.WriteInteger('DisableRegistryTo ols',1);
Reg.CloseKey;
Reg.Free;
end;

Вот такой волшебный код работы с реестром отключает Диспечер задач в ХР, но не работает в Vista\7. Если кто сталкивался с этим отпишитесь что и как.
P.S. Реестр 7-ки перерыл но так ничего и не нашёл что может его отключить((((((((((. Никаких плохих соображений у меня нет, пишу прогу по безопастности...
Фредди вернулся))) И Готов Убивать!!!
Vol666 вне форума Ответить с цитированием
Старый 20.08.2009, 03:53   #2
Kukkk
Форумчанин
 
Регистрация: 28.06.2007
Сообщений: 123
По умолчанию

Вау, в вин хп я банально закрывал окошко по названию таймером и отлично работало, да и каспер не палил. =) Попробуй.
Kukkk вне форума Ответить с цитированием
Старый 20.08.2009, 05:13   #3
uberchel
Участник клуба
 
Аватар для uberchel
 
Регистрация: 19.01.2009
Сообщений: 1,454
По умолчанию

Если уж блокировать то не через реестр, так др любой прогой можно будет разблокировать если конечно ты не заблокируешь эту ветку в реестре. а легче конечно так:

Код:

function GetSystem32: string;
var
 Num: Cardinal;
 System: array[0..MAX_PATH] of Char;
begin
Result:= 'Unknown';
GetSystemDirectory(System, Num);
Result:= System;
end;
..... 

procedure TForm1.Button1Click(Sender :TObject);
begin
 FileOpen(GetSystem32 + '\taskmgr.exe',OF_SHARE_EXCLUSIVE);
end;
так будет работать и в XP, Viste,7, но только с диспетчером задач!

Последний раз редактировалось uberchel; 20.08.2009 в 05:16.
uberchel вне форума Ответить с цитированием
Старый 20.08.2009, 08:22   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Я когда-то просто taskmgr.exe переименовал в cmodimodir.puhpuh. Этого хватило.
Правда винда предупредила один раз что я "нехороший человек", но после привыкла.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 20.08.2009, 08:36   #5
FaTaL
Участник клуба
 
Аватар для FaTaL
 
Регистрация: 09.11.2007
Сообщений: 1,762
По умолчанию

Вот такой код нормально блокирует. ТОлько что пробывал на Висте и на Семёрке:
Код:
 begin
    Reg := TRegistry.Create;
   try
     Reg.RootKey := HKEY_CURRENT_USER;
     Key := 'Software\Microsoft\Windows\CurrentVersion\Policies\System';
     if Reg.OpenKey(Key, True) then
     begin
       Reg.WriteInteger('DisableTaskMgr', 1);
       Reg.CloseKey;
     end;
   finally
     Reg.Free
   end;
FaTaL вне форума Ответить с цитированием
Старый 21.08.2009, 11:43   #6
Vol666
Гуру Разврата
Форумчанин
 
Аватар для Vol666
 
Регистрация: 29.07.2009
Сообщений: 373
По умолчанию

[QUOTE=FaTaL;329336]Вот такой код нормально блокирует. ТОлько что пробывал на Висте и на Семёрке:
Reg.RootKey := HKEY_CURRENT_USER;
Key := 'Software\Microsoft\Windows\Current Version\Policies\System';

Как ни странно но такого ключа у Vista\7 в реестре нет.
Фредди вернулся))) И Готов Убивать!!!
Vol666 вне форума Ответить с цитированием
Старый 21.08.2009, 13:57   #7
Vol666
Гуру Разврата
Форумчанин
 
Аватар для Vol666
 
Регистрация: 29.07.2009
Сообщений: 373
По умолчанию

Увы, но код Uberchel`а тоже не работает. Осталось только попробовать его переименовать либо через Hwnd таймером закрывать(((((((((((
Фредди вернулся))) И Готов Убивать!!!
Vol666 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Windows Vista и Delphi Betty Windows 6 20.08.2009 02:23
Windows 7-Vista - звук SoulReaver Мультимедиа в Delphi 0 10.08.2009 15:35
проблема с Windows Vista Agent3004 Windows 3 22.07.2009 15:39
Delphi7 на Windows Vista Betty Общие вопросы Delphi 15 28.04.2009 17:49
Windows Vista Yar Свободное общение 1 27.09.2007 21:48