Otwieranie i zamykanie cd?
Witam.
Drobne pytanko natury technicznej. :) Czy jest w XP mozliwosc utworzenia na pulpicie skrotu, ktorego klikniecie spowoduje wysuniecie tacki napedu i drugiego, ktory go zamknie. Albo nawet jednego skrotu z oboma mozliwosciami. Spotkalem juz wiele programikow potrafiacych to robic, ale jakos zaden nie przewidywal sytuacji, ze w systemie sa dwa napedy cd i mozna za ich pomoca otwierac tylko jeden. Chodzi mi tu o mozliwosc wykorzystania jakiegos pliku z samego systemu w podobny sposob jak np. shutdown.exe do zamykania lub restartu systemu w zaleznosci od zadanych parametrow.
Z gory dzieki
Pozdrawiam
Huma
Drobne pytanko natury technicznej. :) Czy jest w XP mozliwosc utworzenia na pulpicie skrotu, ktorego klikniecie spowoduje wysuniecie tacki napedu i drugiego, ktory go zamknie. Albo nawet jednego skrotu z oboma mozliwosciami. Spotkalem juz wiele programikow potrafiacych to robic, ale jakos zaden nie przewidywal sytuacji, ze w systemie sa dwa napedy cd i mozna za ich pomoca otwierac tylko jeden. Chodzi mi tu o mozliwosc wykorzystania jakiegos pliku z samego systemu w podobny sposob jak np. shutdown.exe do zamykania lub restartu systemu w zaleznosci od zadanych parametrow.
Z gory dzieki
Pozdrawiam
Huma
Odpowiedzi: 1
nie wiem czy jest plik, ale na forum Kuba podal kiedys skrypt w Java dzieki ktoremu wysuwala sie tacka, to starczy ze zapiszesz ten skrypt z rozszerzeniem *.html jako stronke i dpoiszesz linijke zeby stronka zamykala sie po wysunieciu tacek i masz cos w tym stylu, hehehe.
bo innego pomyslu nie mam.
ahaa oto ten skrypt jakby nie chcialo Ci sie szukac:
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
––>
pozdr. road
bo innego pomyslu nie mam.
ahaa oto ten skrypt jakby nie chcialo Ci sie szukac:
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
––>
pozdr. road
Strona 1 / 1