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