Mega Code Archive

 

Categories / Delphi / Multimedia

 

Ses aygıtları listesi

//drony@mynet.com // icq:266148308 uses mmsystem; procedure GetWaveOutDevices(DeviceNames: TStrings); var DNum: Integer; i: Integer; Caps: TWaveOutCapsA; begin DNum := waveOutGetNumDevs; for i := 0 to DNum - 1 do begin waveOutGetDevCaps(i, @Caps, SizeOf(TWaveOutCapsA)); DeviceNames.Add(string(Caps.szPname)); end; end; procedure TForm1.Button1Click(Sender: TObject); begin GetWaveOutDevices(Listbox1.Items); end;