🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.delphi
Article #113

Re: Ustawianie Dźwięki

#113
From: fenRis
Date: Wed, 17 Sep 1997 17:56
28 lines
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-mail
References: <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