Shutdown 2000 - Builder.cz - Informacni server o programovani

Odběr fotomagazínu

Fotografický magazín "iZIN IDIF" každý týden ve Vašem e-mailu.
Co nového ve světě fotografie!

 

Zadejte Vaši e-mailovou adresu:

Kamarád fotí rád?

Přihlas ho k odběru fotomagazínu!

 

Zadejte e-mailovou adresu kamaráda:



Delphi

Shutdown 2000

shutdown2000

9. července 2001, 00.00 | Nemáte rádi zkratku Ctrl+Alt+Del ? Ukončujte programy přes Shutdown 2000 ! V článku je i popis, jak skrýt aplikaci z dialogu zavřít program a jak skrýt samotný dialog.



Ukončování programů ve windows je známý problém (mám na mysli windows 95/95/ME). Pokud se program "sekne", je naše jediná šance zkusit dobře známou zkratku Ctrl+Alt+Del, a pokud záveň s programem nezatuhly i windows, pokusit se program ukončit. Horší to je v případě, pokud program není v dialogu ukončení, nebo nejde dialog aktivovat. Toho lze například v Delphi docílit zcela jednoduchým způsobem popsaným dále. Co potom ?

Odpověď je jednoduchá - použijeme program Shutdown 2000 který je schopen ukončit jakýkoliv proces. Práce s ním i program samotný je velice jednoduchý. Po nainstalování a spuštění máme na výběr z několika činností:
  • Log off - odhlášení uživatele
  • Shut down - vypnutí počítače
  • Reboot - restartování počítače
  • Force restart - restart bez čekání na ukončení všech procesů
  • Shutdown process - ukončení procesu



Stačí tedy pár kliknutí myší, a vše je v pořádku. Jak si můžete všimnout z obrázku úplně nahoře, je možné ukončit i například Kernel32.dll, i když na vlastní nebezpečí :))

Download
ZDE si můžete stáhnout Shutdown 2000 (1.6 MB)

Odkazy
ZDE můžete navštívit stránku programu



Zrušení Ctrl+Alt+Del dialogu v Delphi

První věcí, proč nejde ukončit zatuhlý program může být to, že je zakázaný uzavírací dialog. V delphi k tomu stačí pouze pár řádků, a to těchto:


procedure Disable;
var Dummy:integer;
begin
   {Disable CTRL-ALT-DEL}
   Dummy := 0;
   SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @Dummy, 0);
end;




Skrytí aplikace z dialogu "Ukončit program"

Ani skrytí aplikace z Ctrl+Alt+Del dialogu není v delphi žádný problém. Vytvořte nový projekt, dejte na formulář dvě tlačítka a už jen přidejte následující kód:


... 
implementation 

function RegisterServiceProcess (dwProcessID, dwType: DWord)
 : DWord; stdcall; external 'KERNEL32.DLL'; 

{$R *.DFM} 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  RegisterServiceProcess(GetCurrentProcessID,1); 
end; 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
  RegisterServiceProcess(GetCurrentProcessID,0); 
end;



Tématické zařazení:

 » Rubriky  » Delphi  

 » Rubriky  » Software  

 

 

 

Nejčtenější články
Nejlépe hodnocené články

 

Přihlášení k mému účtu

Uživatelské jméno:

Heslo: