Hledáme nové posily do ITnetwork týmu. Podívej se na volné pozice a přidej se do nejagilnější firmy na trhu - Více informací.
Pouze tento týden sleva až 80 % na e-learning týkající se Swiftu. Zároveň využij výhodnou slevovou akci až 30 % zdarma při nákupu e-learningu - více informací.
swift week + discount 30

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
Uživatelské hodnocení:
1 hlasů
David je zakladatelem ITnetwork a programování se profesionálně věnuje 13 let. Má rád Nirvanu, sushi a svobodu podnikání.
Unicorn university David se informační technologie naučil na Unicorn University - prestižní soukromé vysoké škole IT a ekonomie.
Aktivity

 

 

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.