Article View: pl.comp.lang.delphi
Article #113Re: Ustawianie Dźwięki
From: fenRis
Date: Wed, 17 Sep 1997 17:56
Date: Wed, 17 Sep 1997 17:56
28 lines
2376 bytes
2376 bytes
> Czy ktoś orientuje się jak umożliwić w programie wołanie Dźwięki z
> Control Panel? Tak się składa, że jest to ukryte w ramach MMSYS.CPL
> stąd nie ma bezpośredniego dojścia.
Przesylam fragment obszerniejszego dokumentu jaki teraz przygotowuje (DelphiFAQ):
PROBLEM:
Jak z poziomu aplikacji uruchomić wybrany element z Panelu Sterowania systemu Windows 95?
ROZWIĄZANIE 1:
Najprostszym sposobem jest uruchomienie programu 'control.exe' z odpowiednim parametrem. Dla przykładu weźmy ustawienia elementu Multimedia, czyli plik 'mmsys.cpl'. Aby tego dokonać należy wywołać funkcję ShellExecute (moduł ShellAPI):
ShellExecute(Form1.Handle, 'open', 'control.exe', 'mmsys.cpl', '' ,SW_SHOW);
gdzie Form1 to nazwa naszego okienka, a mmsys.cpl to nazwa żądanego przez nas elementu. Aby poznać dokładniejszy opis funkcji ShellExecute zapoznaj się z dokumentacją zawartą w Plikach Pomocy Delphi.
ROZWIĄZANIE 2:
Innym sposobem jest uruchomienie programu `rundll32.exe', podając mu jako parametr bibliotekę `shell32.dll' stanowiącą bazę Panelu Sterowania. Jego przewagą jest fakt, że możemy podać numer zakładki, która ma zostać automatycznie uaktywniona po wyświetleniu okienka dialogowego. Program ten również wywołujemy przy pomocy funkcji ShellExecute:
ShellExecute(Form1.Handle, 'open', 'rundll32.exe', 'shell32.dll,Control_RunDLL mmsys.cpl,,NR_ZAKLADKI', '', SW_SHOW);
gdzie Form1 to nazwa naszego okienka, a mmsys.cpl to nazwa żądanego przez nas elementu. Zmienna NR_ZAKLADKI określa zakładkę jaka zostanie automatycznie uaktywniona, przy czym liczenie rozpoczyna się od 0.
_________________________
f e n R i s
fenris@polbox.com
"There is no life exept the death"
Technical Details
Message-ID:
<01bcc2b9$81f09fe0$b28dccc2@fenris>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!agh.edu.pl!ict.pwr.wroc.pl!news.icm.edu.pl!not-for-mailReferences:
<341c458f.84058217@news.cto.us.edu.pl>Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!agh.edu.pl!ict.pwr.wroc.pl!news.icm.edu.pl!not-for-mail From: "fenRis" <fenris@polbox.com> Newsgroups: pl.comp.lang.delphi Subject: Re: Ustawianie Dźwięki Date: 17 Sep 1997 17:56:00 GMT Organization: ICM Lines: 48 Message-ID: <01bcc2b9$81f09fe0$b28dccc2@fenris> References: <341c458f.84058217@news.cto.us.edu.pl> NNTP-Posting-Host: ppp-srd183.szczecin.tpnet.pl Mime-Version: 1.0 X-Newsreader: Microsoft Internet News 4.70.1161 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit