Cd_rom

[The_man]

Hei:

kan noen hjelpe meg og si meg hva slags kommando eg skal bruke for og åpne cD-romen,eller slå av pcen.

takk.

[Rep]

Du kan åpne cdrom'er med mciSendString funksjonen,

her er et eksempel:

 

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

 

Public Sub CDROMClose(ByVal Drive$)

Dim Alias$

Alias$ = "Drive" & Drive$

mciSendString "Open " & Drive$ & ": Alias " & Alias$ _

& " Type CDAudio", 0, 0, 0

mciSendString "Set " & Alias$ & " Door Closed", 0, 0, 0

End Sub

 

Public Sub CDROMOpen(ByVal Drive$)

Dim Alias$

Alias$ = "Drive" & Drive$

mciSendString "Open " & Drive$ & ": Alias " & Alias$ _

& " Type CDAudio", 0, 0, 0

mciSendString "Set " & Alias$ & " Door Open", 0, 0, 0

End Sub

 

Private Sub cmdOpen_Click()

CDROMOpen "D"

End Sub

 

 

Når det gjelder å slå av pc'en, kommer det litt an på om du kjører Win9x eller NT/2000/XP. De har forskj. metoder for å gjennomføre dette.

[Bytex]

Oj så komplisert kode for en så liten ting!

Ville heller bare laget et tekstvindu der det står "Trykk Eject på CD-ROMen din nå!" :razz:

[The_man]

takk da eg bruker win 2000 så da hva gjør eg for å sla av pcen da

[Rep]

Det er et fint eksempel på hvordan man slår av/omstarter++ alle typer Windows OS du kan hente ned her:

 

http://www.planet-source-code.com/vb/scrip...=34829&lngWId=1