На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
Модераторы: Rouse_, jack128, Krid
  
    > Изменение громкости в TMediaPlayer
      ExpandedWrap disabled
        unit MpVolume;
         
        interface
         
        uses Windows, MPlayer;
         
        const
          MCI_SETAUDIO = $0873;
          MCI_DGV_SETAUDIO_VOLUME = $4002;
          MCI_DGV_SETAUDIO_ITEM = $00800000;
          MCI_DGV_SETAUDIO_VALUE = $01000000;
          MCI_DGV_STATUS_VOLUME = $4019;
         
        type
          MCI_DGV_SETAUDIO_PARMS = record
            dwCallback: DWORD;
            dwItem: DWORd;
            dwValue: DWORD;
            dwOver: DWORD;
            lpstrAlgorithm: PChar;
            lpstrQuality: PChar;
          end;
         
         
        type
          MCI_STATUS_PARMS = record
            dwCallback: DWORD;
            dwReturn: DWORD;
            dwItem: DWORD;
            dwTrack: DWORD;
          end;
         
        //Remember to add the name of your form to the procedures
         
        function GetMPVolume(MP: TMediaPlayer): Integer;
        procedure SetMPVolume(MP: TMediaPlayer; Volume: Integer);
         
        implementation
         
        uses mmsystem;
         
        function GetMPVolume(MP: TMediaPlayer): Integer;
        var
          p: MCI_STATUS_PARMS;
        begin
          p.dwCallback := 0;
          p.dwItem := MCI_DGV_STATUS_VOLUME;
          mciSendCommand(MP.DeviceID, MCI_STATUS, MCI_STATUS_ITEM, Cardinal(@p));
          Result := p.dwReturn;
          { Volume: 0 - 1000 }
        end;
         
        procedure SetMPVolume(MP: TMediaPlayer; Volume: Integer);
        var
          p: MCI_DGV_SETAUDIO_PARMS;
        begin
          { Volume: 0 - 1000 }
          p.dwCallback := 0;
          p.dwItem := MCI_DGV_SETAUDIO_VOLUME;
          p.dwValue := Volume;
          p.dwOver := 0;
          p.lpstrAlgorithm := nil;
          p.lpstrQuality := nil;
          mciSendCommand(MP.DeviceID, MCI_SETAUDIO,
            MCI_DGV_SETAUDIO_VALUE or MCI_DGV_SETAUDIO_ITEM, Cardinal(@p));
        end;
         
        end.
      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script execution time: 0,0286 ]   [ 17 queries used ]   [ Generated: 28.03.24, 14:10 GMT ]