Stránka 1 z 1
kod pro vysunuti cd
Napsal: pon 8. lis 2004, 20:04
od Jasper
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.
Napsal: pon 8. lis 2004, 21:57
od Borg2of3
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
Napsal: pon 8. lis 2004, 23:21
od johny128
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
KOD NA VYSUNUTI CDROMKY
Napsal: pon 15. lis 2004, 11:13
od Kipki
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
Napsal: pon 15. lis 2004, 11:30
od Dony
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
