FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
volumen en windows
Hi people, necesito ayuda y novia, como puedo controlar el volumen de mi pc desde Delphi???? Os agradeceria cualquier informacion gracias.... a si si es por lo segundo dejame tu mail
|
#2
|
|||
|
|||
Cita:
Referente a la pregunta, quizas este enlace pueda servirte http://msdn.microsoft.com/archive/de...umecontrol.asp |
#3
|
|||
|
|||
gracias cadetill....pero no habria otra forma un poco mas sencilla de subir y bajar el volumen de la musica en mi pc?????? esq tienes q reconocer q es un pokiko complicao......ah a ver si me puedes exar una mano con lo q te he puesto en la seccion de internet...y mu wapo tu teeeesssssssssssooorroooooooooo....
|
#4
|
|||
|
|||
Cita:
Cita:
|
#5
|
|||
|
|||
Hola Aram2r,
respondo por lo primero Un trozo de código que he encontrado por ahí, espero que te sirva, Código:
uses MMSystem; type TVolumeRec = record case Integer of 0: (LongVolume: Longint) ; 1: (LeftVolume, RightVolume : Word) ; end; const DeviceIndex=5 {0:Wave 1:MIDI 2:CDAudio 3:Line-In 4:Microphone 5:Master 6:PC-loudspeaker} procedure SetVolume(aVolume:Byte) ; var Vol: TVolumeRec; begin Vol.LeftVolume := aVolume shl 8; Vol.RightVolume:= Vol.LeftVolume; auxSetVolume(UINT(DeviceIndex), Vol.LongVolume) ; end; function GetVolume:Cardinal; var Vol: TVolumeRec; begin AuxGetVolume(UINT(DeviceIndex),@Vol.LongVolume) ; Result:=(Vol.LeftVolume + Vol.RightVolume) shr 9; end; |
#6
|
|||
|
|||
Yo uso esto para modificar el sonido, la idea es parecida a la respuesta anterior, pero mediante otro metodo
Por cierto, si quieres menos complicacion a la hora de usar estas funciones, sobre todo para las modificaciones, por si usas un TrackBar con esta llamada te evitas todo el rollo. Es simplemente llamar a control de volumen de windows WinExec('SNDVOL32.EXE',SW_SHOWNORMAL); Código:
uses MMSystem; type TVolumeRec = record case Integer of 0: (LongVolume: Longint) ; 1: (LeftVolume, RightVolume : Word) ; end; { Funcion para modificar el sonido } function SetWaveVolume(const AVolume: DWORD): Boolean; var WaveOutCaps: TWAVEOUTCAPS; begin Result := False; if WaveOutGetDevCaps(WAVE_MAPPER, @WaveOutCaps, SizeOf(WaveOutCaps)) = MMSYSERR_NOERROR then if WaveOutCaps.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then Result := WaveOutSetVolume(-1, AVolume) = MMSYSERR_NOERROR; end; { Funcion para ver que sonido tiene puesto } function GetWaveVolume(var LVol: DWORD; var RVol: DWORD): Boolean; var WaveOutCaps: TWAVEOUTCAPS; Volume: DWORD; begin Result := False; if WaveOutGetDevCaps(WAVE_MAPPER, @WaveOutCaps, SizeOf if WaveOutCaps.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then begin Result := WaveOutGetVolume(-1, @Volume) = MMSYSERR_NOERROR; //Result := WaveOutGetVolume(WAVE_MAPPER, @Volume) = MMSYSERR_NOERROR; LVol := LoWord(Volume); RVol := HiWord(Volume); end; end; |
#7
|
|||
|
|||
Bueno mi gran dilema solucionado , gracias a todos los q me habeis ayudado......bueno ahora vamos a por lo segundo....Quien me ayuda?
|
#8
|
||||
|
||||
Código:
vamos a por lo segundo....Quien me ayuda? Saludos! |
#9
|
|||
|
|||
Algunas aplicaciones pueden subir y bajar el volúmen para sólo los archivos de sonido de esa reproduce, y no para todas. ¿Cómo se puede hacer eso?
|
#10
|
|||
|
|||
hola
Cita:
const DeviceIndex=5 a: const DeviceIndex=3 y esto seria para el auxiliar. Como Pudiera poner El volumen Master y dejar const DeviceIndex=5 |
#11
|
|||
|
|||
Reproductor de audio y Video xD!!
Amigos ayuda porfa
hice un reproductor de Audio y video, en Delphi 7, que objeto de solapa o ficha utilizo? q evento activo o donde inserto el codigo q ahan enviado algunos Gracias. les dejo mi codigo: ***************************************** al insertar el codigo q han enviado no me da errores, q onda? *****************************************
Última edición por vtdeleon fecha: 18-01-2007 a las 20:44:33. |
#12
|
||||
|
||||
#13
|
|||
|
|||
Sr. ÑoÑo
viendolo del lado del programnador eres un 0 a la izquierda, solo pedia un poko de ayuda, sobre delphi, no de como escribir un mensaje o como hacer una pregunta.
gracias de todos modos |
#14
|
||||
|
||||
Pues no te entiendo
SataSoft, Ñuño Martínez te ha respondido en buena manera. Y tu respondes con un tono repochante:
Cita:
En lo personal, a mi no me queda claro lo que pretendes con tu mensaje. Tu dices: Cita:
Según vi el código (de vista rápida) alli estas asignando eventos (evento OnClick) a diferentes botones, a un Timer (evento OnTimer), al OnKeyDown y al OnPaint a un formulario. Y para finalizar mencionas que el código te ha sido enviado (¿que no era que tu lo habías desarrollado?) Y que no te da errores... A me da la impresión, siguiendo lo último que leo y en base a lo creo entender, de que haz copiado el código de algún lado y ahora no sabes a que controles asignarles dicho código. Por favor, no reproches. En lo personal no entiendo lo que pretendes. Si puedes ser más explícito te lo agradecería. Y si eres una persona que recien te estas iniciando en Delphi, puedes leer La Cara Oculta de Delphi 4. Es una buena guía. Saludos, |
#15
|
||||
|
||||
Gracias Delphius. Ya empezaba a dudar de mi mismo.
|
#16
|
|||
|
|||
OK......sorry
OK, Delphius, si hubiese sido asi antes la respuesta... la historia hubiese sido otra, en fin..... ya resolvi mi duda, por lo consiguiente solo un mal enmtendido, pido disculpas a quien las merece.
los vemos ejn otra ocacion o QUEST. Adios |
#17
|
||||
|
||||
me alegro
Cita:
Saludos, |
#18
|
|||
|
|||
Respuesta!!!
ok lo primero q queria hacer era usar una ListPlayer, y Use
ListBox * con este codigo en el evento DblClick MediaPlayer1.Enabled := true; i := lbx1.ItemIndex; mediaplayer1.FileName:= lbx1.Items.Strings[i]; mediaplayer1.Open; s := mediaplayer1.FileName; * y este codigo en el Boton para abrir un archivo lbx1.Items.Add(mediaplayer1.FileName); es con repecto al ListBox Ahora tengo un error al momento de 'Cancelar' la apertura de archivos "No se puede determinar el tipo de dispositivo por la extencion del archivo" yo inclui en mi Reproductor mpg, mp3, avi y wav. pq ese error? este es el codigo del Boton q abre archivos 'BitBtn1' procedure TF_mp3.BitBtn1Click(Sender: TObject); begin if Opendialog1.Execute = true Then MediaPlayer1.FileName := Opendialog1.FileName; MediaPlayer1.Open; MediaPlayer1.DisplayRect :=rect(0,1,OleContainer1.Width,OleContainer1.Height); MEdiaPlayer1.Play; StatusBar1.SimpleText := 'Repoduciendo Archivo: ' + OpenDialog1.FileName; Label3.Visible := True; Label4.Visible := True; lbx1.Items.Add(mediaplayer1.FileName);//este codigo es del ListBox1 end; cualquier ayuda y/o comentario, sera bien recibida gracias |
#19
|
||||
|
||||
no tienes un bloque begin ... end, por eso sigue abriendo el archivo.
Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
#20
|
|||
|
|||
Uso de <ALT + ENTER>
gracias!!!
ahora. Alguien a usado esto para pantalla completa. uso este codigo pero no me sale... Código:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (HiWord(GetKeyState(VK_MENU)) <> 0) and (Key = 13) then begin if Form1.WindowState = WsNormal then begin Ancho := Form1.Width;//inicialmente tenia errores Con 'Ancho' Alto := Form1.Height; //inicialmente tenia errores Con 'Alto' Label1.Visible := False; Label2.Visible := False; Label3.Visible := False; Label4.Visible := False; MediaPlayer1.Visible := False; BitBtn1.Visible := False; StatusBar1.Visible := False; ScrollBar1.Visible := False; OleContainer1.Visible := False; Form1.BorderStyle := BsNone; Form1.WindowState := WsMaximized; MediaPlayer1.Display := Form1; MediaPlayer1.DisplayRect := rect(0,0,Form1.Clientwidth,Form1.ClientHeight); end else begin Form1.WindowState := WsNormal; Form1.Width := Ancho; Form1.Height := Alto; Form1.Position := PoScreenCenter; Label1.Visible := True; Label2.Visible := True; Label3.Visible := True; Label4.Visible := True; MediaPlayer1.Visible := True; BitBtn1.Visible := True; StatusBar1.Visible := True; ScrollBar1.Visible := True; OleContainer1.Visible := True; Form1.BorderStyle := BsSingle; MediaPlayer1.Display := OleContainer1; MediaPlayer1.DisplayRect := rect(0,0,Form1.Clientwidth,Form1.ClientHeight); end; end; end; Gracias Última edición por SataSoft fecha: 21-01-2007 a las 15:17:48. |
|
|
|