Utilizamos cookies propias y de terceros. [Más información sobre las cookies].
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Wiki
Cambiar el volumen general del PC - Delphi
Lenguaje de programación Borland Delphi


Para cambiar el volumen general del PC, colocaremos en un formulario un TrackBar (en la paleta de componentes, pestaña Win32), en el evento Change del TrackBar pondremos el código para cambiar el volumen. En el USES del formulario pondremos 'mmsystem'.
Listado del programa completo:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, mmsystem;

type
  TForm1 = class(TForm)
    TrackBar1: TTrackBar;
    procedure TrackBar1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.TrackBar1Change(Sender: TObject);
var
Count, i: integer;
begin
  Count := waveOutGetNumDevs;
  for i := 0 to Count do
  begin
    waveOutSetVolume(i, longint(TrackBar1.Position * 4369) * 65536 +
        longint(TrackBar1.Position * 4369));
  end;
end;

end.




Publicado el: 2003-09-24

Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A