Советы по Delphi. Версия 1.4.3 от 1.1.2001

Озеров Валентин

 FreeMem(Data, DataSize);

end;

var Pos : Single = -25;

procedure TForm1.AppSetSecondary3DBuffer;

begin

 if Buffer.QueryInterface(IID_IDirectSound3DBuffer, _3DBuffer) <> DS_OK then Raise Exception.Create('Failed to create IDirectSound3D object');

 if _3DBuffer.SetPosition(Pos, 1, 1, 0) <> DS_OK then Raise Exception.Create('Failed to set IDirectSound3D Position');

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

 CopyWAVToBuffer('xhe4.wav',SecondarySoundBuffer);

 if SecondarySoundBuffer.Play(0, 0, DSBPLAY_LOOPING) <> DS_OK then ShowMessage('Can''t play the Sound');

 Timer1.Enabled:=True;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

 SecondarySound3DBuffer.SetPosition(Pos,1,1,0);

 Pos:=Pos + 0.1;

end;

end.

Аппаратное

обеспечение 

CD-ROM 

Открытие и закрытие нескольких приводов CD-ROM

Что касается вопроса "Открытие и закрытие привода CD-ROM", то при наличии более одного CD-ROMа в системе, рекомендую воспользоваться следующими функциями:

// ____ _ ______ __

// / __ \_____(_) _____/_ __/___ ____ / /____

// / / / / ___/ / | / / _ \/ / / __ \/ __ \/ / ___/

// / /_/ / / / /| |/ / __/ / / /_/ / /_/ / (__ )

// /_____/_/ /_/ |___/\___/_/ \____/\____/_/____/

//

(*******************************************************************************

* DriveTools 1.0 *

* *

* (c) 1999 Jan Peter Stotz *

* *

********************************************************************************

* *

* If you find bugs, has ideas for missing featurs, feel free to contact me *

* [email protected] *

* *

********************************************************************************

* Date last modified: May 22, 1999 *

*******************************************************************************)

unit DriveTools;

interface

uses Windows, SysUtils, MMSystem;

function CloseCD(Drive: Char): Boolean;

function OpenCD(Drive: Char): Boolean;

implementation

function OpenCD(Drive : Char): Boolean;

Var

 Res: MciError;

 OpenParm: TMCI_Open_Parms;

 Flags: DWord;

 S: String;

 DeviceID: Word;

begin

 Result:=false;

 S:=Drive+':';

 Flags:=mci_Open_Type or mci_Open_Element;

 With OpenParm do begin

dwCallback := 0;

lpstrDeviceType := 'CDAudio';

lpstrElementName := PChar(S);

 end;

 Res := mciSendCommand(0, mci_Open, Flags, Longint(@OpenParm));

 IF Res<>0 Then exit;

 DeviceID:=OpenParm.wDeviceID;

 try

Res:=mciSendCommand(DeviceID, MCI_SET, MCI_SET_DOOR_OPEN, 0);

IF Res=0 Then exit;

Result:=True;

 finally