Multimedia

[ Delphi ] – Open and close a certain CD-drive

uses
  MMSystem;
{Simple Way:}
  mciSendstring('SET CDAUDIO DOOR OPEN WAIT', nil, 0, Self.Handle);
{More complex way:}
function OpenCD(Drive: Char): Boolean;
var

  Res: MciError;
  OpenParm: TMCI_Open_Parms;
  Flags: DWORD;
  S: string;
  DeviceID: Word;
begin More >

 

Very PoorPoorRegularGoodVery Good ( Rate this post ! )
Loading ... Loading ...

[ Delphi ] – Change the sound cards volume

uses
  MMSystem;
procedure SetVolume(const volL, volR: Word);
var
  hWO: HWAVEOUT;
  waveF: TWAVEFORMATEX;
 More >

 

Very PoorPoorRegularGoodVery Good ( Rate this post ! )
Loading ... Loading ...

[ Delphi ] – Play sound through a sound card

uses
  MMSystem;
type
  TVolumeLevel = 0..127;
procedure MakeSound(Frequency{Hz}, Duration{mSec}: Integer; Volume: TVolumeLevel);
  {writes tone to memory and plays it}
 More >

 

Very PoorPoorRegularGoodVery Good ( Rate this post ! )
Loading ... Loading ...