Tipy a triky v Delphi, díl 93.

A ještě jednou Windows XP. Tentokrát něco ke vzhledu aplikace a také si povíme, jak se nám chovají Windows XP po stisku CTRL-ALT-DEL a co se s tím dá dělat.

Dnešní program je tedy jasný, takže se pusťme do práce. Slibovaná úprava vzhledu nebude tentokrát nijak drastická a tak ji určitě rádi použijí i ti, kteří se drží spíše konzervativního vzhledu svých aplikací. Ukážeme si, jak přidat decentní poloprůhledný stín k oknu nebo vybraným oknům naší aplikace. Pozor však na starší systémy Windows, zde nebude příklad fungovat, takže musíte s touto eventualitou počítat! Celá záležitost je jinak poměrně jasná, stín nám zajistí parametr CS_DROPSHADOW. Společný zdrojový kód obou dnešních příkladů najdete dále.

Náš druhý dnešní příklad se týká známé klávesové zkratky CTRL-ALT-DEL, která za běžných okolností pod Windows XP vyvolá okno Správce úloh, kde vidíme seznam běžících procesů a řadu dalších informací. To jistě velmi dobře znáte. Pomocí jednoduchého triku lze však toto všechno změnit. Velmi drobným zápisem do registrů docílíme toho, že se okno nezobrazí a místo toho bude zobrazeno varovné hlášení, že "Správce tohoto systému zakázal Správce úloh".

A nyní tedy celý slibovaný zdrojový kód:

unit Unit1;

 interface

 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, Registry;

 type
   TForm1 = class(TForm)
     Button1: TButton;
     Button2: TButton;
     procedure Button1Click(Sender: TObject);
     procedure Button2Click(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   protected
     procedure CreateParams(var Params: TCreateParams); override;
   end;

 var
   Form1: TForm1;

 implementation

 {$R *.dfm}

 procedure TForm1.CreateParams(var Params: TCreateParams);
 const
   CS_DROPSHADOW = $00020000;
 begin
   inherited;
   Params.WindowClass.Style := Params.WindowClass.Style or CS_DROPSHADOW;
 end;

 procedure DisableTaskMgr(Disable: Boolean);
 var
   reg: TRegistry;
 begin
   reg := TRegistry.Create;
   reg.RootKey := HKEY_CURRENT_USER;
   reg.OpenKey(`Software\Microsoft\Windows\CurrentVersion\Policies\System`, True);
   if Disable then reg.WriteString(`DisableTaskMgr`, `1`)
              else reg.DeleteValue(`DisableTaskMgr`);
   reg.CloseKey;
   reg.Free;
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   DisableTaskMgr(True);
 end;

 procedure TForm1.Button2Click(Sender: TObject);
 begin
   DisableTaskMgr(False);
 end;

 end.

Aby vaše aplikace tímto způsobem vypnula Správce úloh, musíte být přihlášeni jako správce systému, protože jinak vám systém nedovolí zápis do této části registru provést. U ostatních uživatelů systému (pokud nějaké takové účty jsou) však zůstane stav beze změn.

Diskuze (2) Další článek: Jsou výsledky FutureMarku věrohodné?

Témata článku: Software, Windows, Programování, Díl, Trik, Strong, Stín


Určitě si přečtěte

Nová zbraň Microsoftu proti iPadu: Levný tablet Surface Go bude stát jen deset tisíc

Nová zbraň Microsoftu proti iPadu: Levný tablet Surface Go bude stát jen deset tisíc

** Microsoft představil nový tablet Surface Go ** Nový model zaujme nízkou cenou, ale schopnostmi zařízení Surface ** Microsoft nepoužil čip ARM, ale klasický procesor od Intelu 

Karel Javůrek | 116

Alan Turing: Genius, který matematicky stvořil počítač

Alan Turing: Genius, který matematicky stvořil počítač

Řešením matematického problému se dostal k modelu teoretického stroje, který nese jeho jméno a je základem logiky univerzálních počítačů.

Pavel Tronner | 57

Budoucnost elektroniky: čeští vědci stojí za revolučním čipem, který nemá ve světě obdoby

Budoucnost elektroniky: čeští vědci stojí za revolučním čipem, který nemá ve světě obdoby

** Čeští vědci pod vedením Tomáše Jungwirtha vyvíjí nový typ revolučního paměťového čipu ** Zatímco v současnosti elektronika pracuje s elektrony, v budoucnu to budou spiny elektronů ** Čipy budou moci být klidně i 1 000x rychlejší a úspornější

Karel Javůrek | 32

Apple dal do MacBooku procesor Core i9 a 4TB SSD. Ani se neptejte, co za to chce...

Apple dal do MacBooku procesor Core i9 a 4TB SSD. Ani se neptejte, co za to chce...

** Apple aktualizoval notebooky MacBook Pro, dostaly nový hardware ** Těšit se můžete na nové procesory a větší paměť ** Cena nejvybavenějšího modelu překročí 200 tisíc korun

Martin Miksa | 99

Byli tam! Důkazy o přistání na Měsíci, Lunochody i čínská sonda jsou vidět z vesmíru

Byli tam! Důkazy o přistání na Měsíci, Lunochody i čínská sonda jsou vidět z vesmíru

** Sonda LRO pořídila z oběžné dráhy Měsíce zajímavé snímky ** Jsou na nich vidět artefakty všech misí programu Apolla, které přistály na povrchu Měsíce ** Jde například o části lunárních modulů, rovery a dokonce i vlajky

Petr Kubala | 60

Google ADT-2: Miniaturní krabička s Android TV 8.0, kterou si nikdy nekoupíte

Google ADT-2: Miniaturní krabička s Android TV 8.0, kterou si nikdy nekoupíte

** Dlouho se nevědělo, co to přesně má být ** Pak se s krabičkou Google pochlubil na I/O ** Do „Chromecastu“ vtěsnal celý Android TV

Jakub Čížek | 24

Takhle zemřete, když asteroid dopadne na vaše město

Takhle zemřete, když asteroid dopadne na vaše město

** Jak by to dopadlo, kdyby na světovou metropoli či do nedalekého moře dopadl velký asteroid? ** Simulovali to odborníci z University of Southampton ** Výsledky jsou velmi zajímavé

Petr Kubala | 32


Aktuální číslo časopisu Computer

Velký test 18 bezdrátových sluchátek

Vše o přechodu na DVB-T2

Procesory AMD opět porážejí Intel

7 NVMe M.2 SSD v přímém souboji