Několik tipů pro programování v Delphi - Builder.cz - Informacni server o programovani

Navigace:  » Úvodní stránka  » Rubriky  » Delphi  

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
• Jak vypnout nebo restartovat PC
• Jak zjistit a nastavit pozici kurzoru myši
• Jak zobrazit systémové dialogy
• Jak schovat aplikaci z panelu Start
• Jak zamezit zobrazení aplikace v dialogu Ctrl+Alt+Del

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.