Utilizamos cookies propias y de terceros. Al navegar entendemos que aceptas el uso de cookies. +Info.
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Usuario
· 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

Este sitio web NO CONTIENE malware, todos los programas con código fuente aquí. Autor: Alonso Javier Pérez Díaz Google+ Síguenos en Google+