kod pro vysunuti cd

Jasper · Příspěvek od **Jasper** » pon 8. lis 2004, 20:04

Neznáte někdo příkaz pro vysunutí CD mechaniky v jazyku MS Visual Basic nebo Visual Basic pro MS Office. V úvahu by byl možný i příkaz pro Delphi. Diky za odpoved.

Borg2of3 · Příspěvek od **Borg2of3** » pon 8. lis 2004, 21:57

V basicu nedelam.. delam do delphi... ale i tak.. stacilo hledat a nasel jsem tohle..
http://forum.builder.cz/read.php?f=19&i=5155&t=5140
snad ti to pomuze

johny128 · Příspěvek od **johny128** » pon 8. lis 2004, 23:21

otazka sice znela pre ine jazyky ale ked sme uz pri tom, da sa aj cez vb script otvorit cdromka(funguje len na IE a len podla pocasia vonku

)) )

Kód: Vybrat vše

<html>
<SCRIPT language=VBScript>
<!--

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count >= 1 then
	For i = 0 to colCDROMs.Count - 1
		colCDROMs.Item(i).Eject
	Next ' cdrom
End If

-->
</SCRIPT>
</html>

demonstrate, http://j-j.szm.sk/cdrom.html

Kipki · Příspěvek od **Kipki** » pon 15. lis 2004, 11:13

snazil jsem se ten kod z toho odkazu nejak pouzit ale jsem z toho uplny jelen nechce mi nekdo poslat hotovy programek uz v exe souboru. diky ales.kadlec@centrum.cz

Dony · Příspěvek od **Dony** » pon 15. lis 2004, 11:30

tak tohle

Kód: Vybrat vše

Set oWMP = CreateObject("WMPlayer.OCX.7" ) 
Set colCDROMs = oWMP.cdromCollection 

if colCDROMs.Count >= 1 then 
   For i = 0 to colCDROMs.Count - 1 
      colCDROMs.Item(i).Eject 
   Next ' cdrom 
End If

zkopiruj do souboru s priponou VBS a spust, normalne to funguje jelene

kod pro vysunuti cd

kod pro vysunuti cd

KOD NA VYSUNUTI CDROMKY