please how to exit an eject cd

[Rapido78840]

what I need to put on the button "Exit" to close the auto run but in the same time eject the CD ?
thanks for your help
rapido

[Lorne]

Re: please how to exit an eject cd

Try this:

Add a File.CallDLLFunction action with these settings:

Filename: winmm.dll
Function name: mciSendStringA
Function Parameters: "Set CDAudio Door Open",0,0
Return Value Type: Long
Calling Convention: __stdcall

Then add an Application.Exit action after it.

Here is the ready-made code that you can copy and paste into the object's On Mouse Click event:

<IR_ACTIONS_LIST>
<Action name="Call DLL Function">
<Type>143</Type>
<Function>0</Function>
<DTIndentLevel>0</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<FileName>winmm.dll</FileName>
<FunctionName>mciSendStringA</FunctionName>
<FunctionParameters>"Set CDAudio Door Open",0,0</FunctionParameters>
<ReturnType>1</ReturnType>
<CallingConvention>1</CallingConvention>
<Variable>%DLLResult%</Variable>
</Action>
<Action name="Exit">
<Type>2</Type>
<Function>0</Function>
<DTIndentLevel>0</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
</Action>
</IR_ACTIONS_LIST>

[Rapido78840]

Re: please how to exit an eject cd

thanks "hombre Pluma"
Thanks Men's Pen..
rapido