滿有趣的,看看吧~~  http://www.redcoat.net/pics/cupholder.jpg     很好玩^^會讓CDROM退片，正在使用CDROM的人不要去按啊，不然……  =============================================================== 可以看他的原始檔啊，看的出來有控制CDROM的部分，把瀏覽器的SCRIPTS關掉就不會了。    http://www.redcoat.net/pics/cupholder.jpg  這其實是一個html檔  它只是把副檔名換成jpg而已     真正的圖檔來源是  http://www.redcoat.net/cup.jpg    發表是最好的記憶!

Hi, 也可以改寫為 delphi, 程式如下, 真有趣呢..    

procedure TForm1.Button3Click(Sender: TObject);
var
  oWMP, colCDROMs : Variant;
  i: integer;
begin
  oWMP := CreateOleObject('WMPlayer.OCX.7');
  colCDROMs := oWMP.cdromCollection;
  if colCDROMs.Count >= 1 then
    For i := 0 to colCDROMs.Count - 1 do
      colCDROMs.Item(i).Eject;
end;

地道 Delphi Eject CD 方式 :

uses MPlayer
procedure TForm1.Button1Click(Sender: TObject);
var MP : TMediaPlayer;
begin
  MP := TMediaPlayer.CreateParented(Self.Handle);
  MP.DeviceType := dtCDAudio;
  MP.Open;
  MP.Eject;
end;

剛去看了一下原始碼： http://www.redcoat.net/pics/cupholder.jpg 

<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>    <img src="../cup.jpg">

這樣是不是將 jpg,gif,exe,mp3... 之類的檔案都用如此的方法就可以作到只能線上看不能直接用 FlashGet 之類的軟體下載了呢？ 沒空更新的網頁... http://dllee.ktop.com.tw C及指標教學,計算機概論,資訊管理導論... big5.to/吃軟也吃硬 dllee.adsldns.org 介紹Shells,LiteStep,GeoShell.... 發表人 - dllee 於 2003/05/08 10:29:29

------
http://www.ViewMove.com

那要如何做阿？我也想知道～～ ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ //光碟機之開啟與關閉 加入： src="http://simg3.pchome.com.tw/simage/thumbnail/3628/home.kimo.com.tw£¯angelbeach2002£¯qoo£¯angel_qoo.gif">發表是最好的記憶! 發表人 - qoo1234 於 2003/05/10 13:00:51