Několik tipů pro programování v Delphi - 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

Několik tipů pro programování v Delphi

serial

23. listopadu 2001, 00.00 | V dnešním článku bych vám rád představil několik cenných rad a tipů do Delphi, které jsem našel na internetu. Bude se jednat o rady počínaje vysouvání a zasouvání CD-ROM mechaniky až po vypínání PC. Mnohé z nich se vám určitě jednou budou hodit.

V dávných dobách, když ještě nebyl můj mozek ve znalostech Delphi tak zběhlý, vydával jsem se na dlouhou pouť za informacemi a hlavně tipy pro Delphi. Nyní, když už jsou ty dávné doby pryč, přicházím sem, abych se o ně s vámi podělil...

A na co jsem v té pouti narazil?

Jak otevřít nebo zavřít CD-ROM mechaniku

Nevím, zda se vám bude někdy hodit vysouvat (nebo zasouvat) CD-ROM mechaniku, ale pokud byste to měli za potřebí, můžete tak učinit použitím tohoto návodu:
Do Uses přidejte unitu MMSystem. Dále vložte do vámi zvolené procedury následující kód:

mciSendString('Set cdaudio door open', nil, 0, hinstance); // otevře CD-ROM mechaniku
nebo
mciSendString('Set cdaudio door closed wait', nil, 0, handle); // zavře CD-ROM mechaniku

A k čemu je to tedy dobré? Zkuste si třeba udělat takový malý prográmek, nazvěte ho třeba Stojan na kafe a do něj dejte kód pro otevření CD-ROM mechaniky a poté program nastavte, aby se ihned ukončil. A jednoduchý stojan na kafe je na světě.

Jak vypnout nebo restartovat PC

Mnohdy se vám bude hodit, abyste mohli svým prográmkem vypnout nebo restartovat program. A od toho je tu tato rada. Nejdříve však musíte přidat do var proměnnou a. Pak do příslušné procedury vložíte následující kód:

ExitWindowsEx(EWX_Force,a); // potlačí hlášky systému
ExitWindowsEx(EWX_SHUTDOWN,a); // vypnutí počítače
v případě restartování vložte tento kód:
ExitWindowsEx(EWX_Force,a); // potlačí hlášky systému
ExitWindowsEx(EWX_REBOOT,a); // restart počítače

A k čemu je to dobré? Pokud chcete, aby se vám počítač vypnul v určitou hodinu, můžete si udělat vlastní prográmek, který to zařídí. Já jsem si pro svoje potřeby takový udělal...

Jak zjistit a nastavit pozici kurzoru myši

Pokud budete chtít vytvořit nějakou legrácku, kdy téměř znemožníte uživateli používání myši, bude se vám právě tato rada velmi hodit. Nejdříve ze všeho musíte vytvořit proměnnou názvu pozice a typu TPoint: var pozice:TPoint; Potom už stačí vložit následující kód a pozici kurzoru máte zjištěnou.

GetCursorPos(pozice); // zjistí pozici kurzoru a uloží do proměnné POZICE (která je TPoint)
a nastavení pozice se provádí následovně:
SetCursorPos(pozice.x + 100,pozice.y + 100);
// nastaví pozici kurzoru na POZICE.X + 100 a POZICE.Y + 100

Jak zobrazit systémové dialogy

Pokud si budete chtít vytvořit prográmek a za jeho pomoci spustit systémové dialogy ve Windows, bude se vám právě toto hodit. Zde je tedy několik z nich:

WinExec('rundll32 shell32.dll,Control_RunDLL',SW_SHOW); // Ovládací panely
WinExec('rundll32 shell32.dll,Control_RunDLL desk.cpl,,0',SW_SHOW); // Obrazovka
WinExec('rundll32 shell32.dll,Control_RunDLL main.cpl,,1',SW_SHOW); // Klávesnice
WinExec('rundll32 shell32.dll,Control_RunDLL MMSys.cpl,,0',SW_SHOW); // Multimédia
WinExec('rundll32 shell32.dll,Control_RunDLL TimeDate.cpl,,0',SW_SHOW); // Datum a čas
WinExec('rundll32 shell32.dll,Control_RunDLL Themes.cpl,,0',SW_SHOW); // Themes na plochu (pokud máte nainstalováno)
WinExec('rundll32 shell32.dll,Control_RunDLL SysDm.cpl,,0',SW_SHOW); // Systém
WinExec('rundll32 shell32.dll,Control_RunDLL PowerCfg.cpl,,0',SW_SHOW); // Řízení spotřeby
WinExec('rundll32 shell32.dll,Control_RunDLL NETcpl.cpl,,0',SW_SHOW); // Síť
WinExec('rundll32 shell32.dll,Control_RunDLL Intl.cpl,,0',SW_SHOW); // Místní nastavení
WinExec('rundll32 shell32.dll,Control_RunDLL InetCpl.cpl,,0',SW_SHOW); // Možnosti sítě internet
WinExec('rundll32 shell32.dll,Control_RunDLL AppWiz.cpl,,0',SW_SHOW); // Přidat nebo odebrat programy

Jak schovat aplikaci z panelu Start

Tuto radu můžete upotřebit téměř kdykoli. Její využití je jednoduché a praktické. Takže už dále žádné řeči a vzhůru do toho:

ShowWindow(Application.Handle, SW_HIDE); //schová aplikaci
ShowWindow(Application.Handle, SW_SHOW); //zobrazí aplikaci

Jak zamezit zobrazení aplikace v dialogu Ctrl+Alt+Del

I tento tip se vám bude zcela určitě hodit do života. Šíře jeho využití se ani nedá specifikovat a proto se o to nebudu pokoušet :). Takže nejdříve si nadefinujeme proměnné:

var
Handle: Integer;
WindowName: String;

A poté vložíme do procedury následující kód:

WindowName := Application.Title; // do proměnné WindowName se vloží titulek okna
Handle := FindWindow(0, PChar(WindowName)); // zjistí, jaké číslo má vaše aplikace
ShowWindow(Handle, SW_Hide); // tyto dva řádky zajistí
RegisterServiceProcess(GetCurrentProcessID,RSP_SIMPLE_SERVICE); // zmizení programu z dialogu

To by bylo pro dnešek asi vše. Co bude v příštím díle tohoto seriálu je zatím ve hvězdách (podle toho, co najdu na internetu). doufám, že se vám budou moje rady hodit, a že přečtení tohoto článku pro vás nebyla ztráta času.

Tématické zařazení:

 » Rubriky  » Delphi  

 » Rubriky  » Windows  

 

 

 

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

 

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

Uživatelské jméno:

Heslo: