ITnetwork summer 2020 Slevový týden - Červenec
30 % bodů zdarma na online výuku díky naší Slevové akci!
Pouze tento týden sleva až 80 % na e-learning týkající se C#

Vypnuti taskmanageru u Win XP a 2K

Tento výukový obsah pomáhají rozvíjet následující firmy, které dost možná hledají právě tebe!

Ukázka vypnutí taskmanageru u Windows.

procedure killtaskmgr;
var regis: TRegistry;
begin
 regis := TRegistry.Create;
 regis.RootKey := HKEY_CURRENT_USER;
 regis.OpenKey('Software', True);
 regis.OpenKey('Microsoft', True);
 regis.OpenKey('Windows', True);
 regis.OpenKey('CurrentVersion', True);
 regis.OpenKey('Policies', True);
 regis.OpenKey('System', True);
 regis.WriteString('DisableTaskMgr', '1');
 regis.CloseKey;
end;

 

Všechny články v sekci
Delphi
Článek pro vás napsal David Čápka
Avatar
Jak se ti líbí článek?
1 hlasů
Autor pracuje jako softwarový architekt a pedagog na projektu ITnetwork.cz (a jeho zahraničních verzích). Velmi si váží svobody podnikání v naší zemi a věří, že když se člověk neštítí práce, tak dokáže úplně cokoli.
Unicorn College Autor sítě se informační technologie naučil na Unicorn College - prestižní soukromé vysoké škole IT a ekonomie.
Aktivity (1)

 

 

Komentáře

Avatar
Eldan
Člen
Avatar
Eldan:23.3.2014 0:05

Výborný kousek kódu, určitě se bude hodit :)

Jen dodám že funguje ve všech NT verzích Windowsu - 2k, Neptune, Vista, W7 -, jen si musíte do Policies přidat klíč "System".
Jestli funguje ve W8/W8.1 nevím, ale nevidím důvod proč by neměl.

Odpovědět
23.3.2014 0:05
Unobfuscated executable == free source code
Děláme co je v našich silách, aby byly zdejší diskuze co nejkvalitnější. Proto do nich také mohou přispívat pouze registrovaní členové. Pro zapojení do diskuze se přihlas. Pokud ještě nemáš účet, zaregistruj se, je to zdarma.

Zobrazeno 1 zpráv z 1.