如何得到CD盘的音轨等几个问题.(200分)

1>如何得到CD盘的音轨(100)
2>如何检测A区是否准备好(50)
3>谁有Midas方面的资料(50)

今天要发财了！
前几天刚写了个CD Player
答案如下：
1)如何得到CD盘的音轨
type TForm1 = class(TForm)
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
procedure WMNCHitTest(var M: TWMNCHitTest);

message wm_NCHitTest;

end;


var
Form1: TForm1;

implementation

{$R *.DFM}
procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin

inherited;
{ call the inherited message handler }
if M.Result = htClient then
{ is the click in the client area? }
M.Result := htCaption;
{ if so, make Windows think it's }
{ on the caption bar.} end;


2如何检测A区是否准备好
function DiskInDrive(const Drive: char): Boolean;
var
DrvNum: byte;
EMode: Word;
begin

result := false;
DrvNum := ord(Drive);
if DrvNum >= ord('a') then

dec(DrvNum,$20);
EMode := SetErrorMode(SEM_FAILCRITICALERRORS);
try
if DiskSize(DrvNum-$40) <> -1 then

result := true
else

messagebeep(0);
finally
SetErrorMode(EMode);

end;

end;


3谁有Midas方面的资料(50)
谁有，我还想要呢！
谁来帮帮我！
只要好，太惨了Midas的资料我实在太少了，
谁有只要好我也出分！

搞错了答案1是我为程序实现东方快车式的Form写的测试程序
不好意思真确答案如下
1来了！
const
MCI_INFO_PRODUCT = $00000100;
MCI_INFO_FILE = $00000200;
MCI_INFO_MEDIA_UPC = $00000400;
MCI_INFO_MEDIA_IDENTITY = $00000800;
MCI_INFO_NAME = $00001000;
MCI_INFO_COPYRIGHT = $00002000;

{ parameter block for MCI_INFO command message }

type
PMCI_Info_ParmsA = ^TMCI_Info_ParmsA;
PMCI_Info_ParmsW = ^TMCI_Info_ParmsW;
PMCI_Info_Parms = PMCI_Info_ParmsA;
TMCI_Info_ParmsA = record
dwCallback: DWORD;
lpstrReturn: PAnsiChar;
dwRetSize: DWORD;

end;

TMCI_Info_ParmsW = record
dwCallback: DWORD;
lpstrReturn: PWideChar;
dwRetSize: DWORD;
end;

TMCI_Info_Parms = TMCI_Info_ParmsA;

3、有一本书在网上到处都是，《Delphi4 核心编程》,dynado
c格式，1.47M,专讲
MIDAS,http://hawkliu.yeah.net/有下载。
不过这本书可能你们有了，那就当我没说。

多人接受答案了。