Automatisk innsetting av CD

[Myst]

Hei

 

Noen som vet åssen jeg aktiverer funksjonen som lar PCen sette inn CDen automatisk?

 

Er på jobben nå, fjernstyrer PCen hjemme og brent et par CDer med Nero, som har da den ulempen at den løser ut CDene når jobben er gjort. Når jeg høyreklikker på CD-stasjonene, får jeg bare opp valget "Løs ut". Vil ha de inn igjen jeg!

 

Takk for all hjelp.

[DemoniZer]

Deklarasjon:

 

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

 

Kode:

Private Sub command1_Click()
Dim LRet As Long
   LRet = mciSendString("set CDAudio door open", returnstring, 127, 0)
End Sub
Private Sub command2_Click()
Dim LRet As Long
   LRet = mciSendString("set CDAudio door closed", returnstring, 127, 0)
End Sub

 

Legg dette VB-prosjektet på klienten

[Myst]

Søren, jeg burde kunne dette her.. Skal vi se, åssen var det igjen.. hmm kan noen gi meg en hjelpende hånd..

[Roskov]

kan du ikke bare sette nero til at det _ikke_ skal løse ut cdn etter endt brenning?

[DemoniZer]

kan du ikke bare sette nero til at det _ikke_ skal løse ut cdn etter endt brenning?

8947753[/snapback]

 

Er det et valg? Bruker ikke Nero selv

[Myst]

Nei sjekket nå, og lette gjennom instillingene, men fant ikke noe alternativ for det.

 

Kan ikke noen bare forklare åssen jeg skal legge inn koden da?

[DemoniZer]

Om du ikke vet hvordan, dropp saken.

[Myst]

Hvorfor det? Er alltid keen på å lære noe nytt, og hvis ikke du vil hjelpe, er det sikkert noen andre som vil.

 

Noen andre enn DemoniZer som vil hjelpe meg?

[DemoniZer]

Jeg kan hjelpe deg på vei, du må implementere koden jeg skrev i et VB-prosjekt med knapper og styr. Så lager du en exe av det hele og kjører denne på klienten.

[Myst]

Takk for hjelpen, men jeg fant ut av det. Problem solved

[DemoniZer]

Takk for hjelpen, men jeg fant ut av det. Problem solved

8948247[/snapback]

 

Skriv gjerne hvordan du løste det.

[Myst]

Jeg googlet litt og fant et lite kjekt program som både løser ut og lukker skuffen

[DemoniZer]

Jeg googlet litt og fant et lite kjekt program som både løser ut og lukker skuffen

8948583[/snapback]

 

Legg ut linken da vet du, i tilfelle andre vil ha en løsning

[Myst]

Vær så god!

 

Bare følg denne linken.

[<Iversen>]

er bombe sikker på at man har det valget i nero uten at jeg gidder sjekke det ut atm, vet og ha brukt det selv.

[Roskov]

Options - Expert features - "Do not eject disc when burn is complete"