Логин: Пароль:    Регистрация Всеми возможностями сайта можно пользоваться
только после авторизации.
   Забыли пароль?

Поиск
L



Статистика
u
Пользователи онлайн: нет
Гостей онлайн: 3
Всего онлайн: 3
Зарегистрировано юзеров: 6362
Комментариев на сайте: 645
Новый юзер: Pseulairrerve



Последние комментарии
c
Aqel прокомментировал "Урок 71 - Работа с сжатыми файлами":
GZip псевдоархив, на мой вопрос тоже не отвечают, как распаковать отдельные файлы/папки...
Pingitrus прокомментировал "Урок 71 - Работа с сжатыми файлами":
Есть еще кто нибудь живой на этом сайте, кто сможет помочь? Так то все работает, zip и rar распаковывает, но у меня есть файл dat который сжат GZip, почему то его не удается распаковать или так не получится так как этот файл не является архивом или является?)) пишет ошибку что неверная функция



Мы в соцсетях
c
Delphi
Изменение громкости звуков в Windows

Изменить громкость звуков в Windows можно при помощи следующих функций.

uses MMSystem;
function GetWaveVolume: DWord; 
var Woc : TWaveOutCaps; 
Volume : DWord; 
begin 
result:=0; 
if WaveOutGetDevCaps(WAVE_MAPPER, @Woc, sizeof(Woc)) = 
MMSYSERR_NOERROR then begin 
if Woc.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then begin 
WaveOutGetVolume(WAVE_MAPPER, @Volume); 
Result := Volume; 
end; 
end; 
end;

procedure SetWaveVolume(const AVolume: DWord); 
var Woc : TWaveOutCaps; 
begin 
if WaveOutGetDevCaps(WAVE_MAPPER, @Woc, sizeof(Woc)) = 
MMSYSERR_NOERROR then begin 
if Woc.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then 
WaveOutSetVolume(WAVE_MAPPER, AVolume); 
end; 
end;

procedure TForm1.Button1Click(Sender: TObject); 
begin 
Beep; 
end;

procedure TForm1.Button2Click(Sender: TObject); 
var LeftVolume: Word; 
RightVolume: Word; 
begin 
LeftVolume := StrToInt(Edit1.Text); 
RightVolume := StrToInt(Edit2.Text); 
SetWaveVolume(MakeLong(LeftVolume, RightVolume)); 
end;

procedure TForm1.Button3Click(Sender: TObject); 
begin 
Caption := IntToStr(GetWaveVolume); 
end;

Вот и всё, Удачи!

Источник: www.thedelphi.ru
Автор: Савельев Александр
Опубликовано: 17 Ноября 2013
Просмотров:


Зарегистрируйтесь или авторизуйтесь, чтобы добавлять комментарии.