Как заблокировать пуск, Диспетчер задач т.д?

[Alter]

Это вам
---общее----------
http://yandex.ru/yandsearch?clid=145...0%BA+WinLocker
---избранное-- исходник от 40 до 50 долларов----
http://www.kiber-zona.org/index.php?...er&f=14&t=4015
http://www.xaker.name/forvb/showthread.php?t=15239
http://forum.whack.ru/showthread.php?t=4309
• 10$ -> http://forum.xakep.ru/m_1551241/tm.htm

[Levsha100]

Нет! Нет! Нет! Леди и Джентльмены, вы меня не так поняли! ни кому я вредить не собираюсь, просто знать хочу исключительно для себя

Рассмешил, честное слово

[rpy3uH]

эээххх, юные хакеры-чайники......
вот здесь написано как заблокировать Ctrl-Alt-Del. всё остальное впринципе не сложно (если конечно прочитать эту статью с максимальным пониманием)

[ProgMaster]

Uses
Registry;
// Выкл диспетчер.
procedure TForm1.Button1Click(Sender: TObject);
var
Reg:TRegistry;
begin
Reg:=TRegIniFile.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVer sion\Policies\System', True);
Reg.WriteInteger('DisableTaskMgr', 1);
Reg.CloseKey;
Reg.Free;
end;
// Вкл диспетчер.
procedure TForm1.Button2Click(Sender: TObject);
var
Reg:TRegistry;
begin
Reg:=TRegIniFile.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVer sion\Policies\System', True);
Reg.WriteInteger('DisableTaskMgr', 0);
Reg.CloseKey;
Reg.Free;
end;

Убрать ярлыки и пуск, панель задач

procedure Startbutton(visi:boolean);
var
  Tray, Child : hWnd;
  C : array[0..127] of Char;
  S : string;
begin
  Tray := FindWindow('Shell_TrayWnd', nil);
  Child := GetWindow(Tray, GW_CHILD);
  while Child <> 0 do
  begin
    if GetClassName(Child, C, SizeOf(C)) > 0 then
    begin
      S := StrPAS(C);
      if UpperCase(S) = 'BUTTON' then
      begin
        if Visi then
          ShowWindow(Child, 1)
        else
          ShowWindow(Child, 0);
      end;
    end;
    Child := GetWindow(Child, GW_HWNDNEXT);
  end;
end;

В семерке и висте

ShowWindow(FindWindow('Button',nil),SW_HIDE);

Скрыть все

ShowWindow(FindWindow('Progman','Program Manager'),SW_HIDE);
ShowWindow(FindWindow('Shell_TrayWnd',''),SW_HIDE);
ShowWindow(FindWindow('Button', nil),SW_HIDE);

[unbanned]

ключ в реестр добавить) а дальше ищи сам http://google.ru

еще есть delphiworld. почитай, для себя много полезного найдешь

[QunneD]

Уважаемые, Вы дату последнего сообщения смотрели? А за способничество недо-злоумышленнику предупреждение на форуме, и подзатыльник за нарушение уголовного кодекса РФ.

И вообще, Вы то даже без встроенных либок работать то ни с чем не умеете, недоучки, нашли чем заняться.

[Стелс]

то есть когда вы писали ЖЕРТВА имели ввиду самого себя ?? жертва аборта что ли ?

[rpy3uH]

если обсуждаете написание вредоносных программ, то обсуждайте действительно интересные вещи, а не эти столетние бояны
закрыто