Cd open/close

Tags:    delphi

Ands

Hvordan får man cd drevet til at skubbe ud/ind???



Åbner cd-drevet
mciSendString('Set cdaudio door open wait', nil, 0, 0);
Lukker cd-drevet
mciSendString('Set cdaudio door closed wait', nil, 0, 0);



Åbner cd-drevet
mciSendString('Set cdaudio door open wait', nil, 0, 0);
Lukker cd-drevet
mciSendString('Set cdaudio door closed wait', nil, 0, 0);

Ands

når jeg prøver det siger den:

Undeclared identifier 'mciSendString'

Hvad skal jeg gøre for at få det til at virke???



når jeg prøver det siger den:

Undeclared identifier 'mciSendString'

Hvad skal jeg gøre for at få det til at virke???


Undskyld, glemte at skrive at du skal tilføje MMSystem til din Uses liste!




når jeg prøver det siger den:

Undeclared identifier 'mciSendString'

Hvad skal jeg gøre for at få det til at virke???

Undskyld, glemte at skrive at du skal tilføje MMSystem til din Uses liste!

Ands

Ok.. Tak for det.. :D



t