Vypnuti taskmanageru u Win XP a 2K

Ostatní jazyky Delphi Vypnuti taskmanageru u Win XP a 2K

ONEbit hosting Unicorn College Tento obsah je dostupný zdarma v rámci projektu IT lidem. Vydávání, hosting a aktualizace umožňují jeho sponzoři.

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;

 

 

Č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.
Miniatura
Předchozí článek
Ovládání CD mechaniky
Miniatura
Všechny články v sekci
Delphi
Miniatura
Následující článek
Delphi (Pascal)
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  +1 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.