請問如何用delphi 像便利超商第二個螢幕播放 wmv 檔

使用 TMediaPlayer 元件 或 japhenchen 大大的作品與文章: http://delphi.ktop.com.tw/topic.php?topic_id=40050    -- 歡迎光臨 KTop 研究院!

使用MediaPlay.Display

其實二個螢幕的程式不難寫，只要先去買一張有雙輸出的顯示卡回來玩玩，玩過幾天，你就知道其實雙螢幕根本無任何技術可言，不過就是你的系統可用的畫面範圍變大而已。如果你的顯卡有TVOUT的功能的話，這也是雙輸出功能的卡唷！如果另外一個輸出的顯示器是電視的話，記得解析度跟刷新率都別設太高，一般800*600，60Hz就是電視的極限值了，我曾經設定的太高，把我家一台29吋的電視(聲x的轟天雷)的陰極射線管給爆了，人為損壞，沒得修。 記得一件事，WindowsME以上的版本才支援這項功能，裝了雙顯卡，驅動程式就照一般正常的卡的設定方式設定，然後在桌面上按右鍵→內容→設定，如果驅動設定正常的話，你會在中間看到1跟2的畫面，滑鼠選到2，底下有個"延伸...."什麼的勾選項，打勾，然後確定，另外一個畫面就會出現另外一個桌面。 到了這一步，就是程式設計的問題了，在專案中弄一個新的TFORM，然後在調用這個FORM之前(在主FORM ONSHOW或BUTTON事件中處理)，把這個新的FORM的LEFT設定為1025(主畫面的右邊界加1，我這里假設你的解析度用1024*768)，TOP設0(絕大部份的卡都是向右延伸，當然也有上下延伸，2*2四分割甚至3*3九分割的卡，不過太高級了這里不再解釋)，就如同平常程式的寫法一樣，記得把這個FORM的BorderStyle設定成bsNone(無上面的標題還有畫面拉伸功能)，width設成1024，height設成768(我都假設你把2號螢幕也設定成1024*768)，當然畫面最好是黑色的，免得被人看出來了！ 最後就是滑鼠的處理，你不想在另外一個放電視的畫面中被人看到滑鼠吧，還有另外一個螢幕因為不在店員的面前，如果滑鼠跑到那里去，可能店員操作的滑鼠會迷路哦(找不到了)，那怎麼處理？在onformcreate的時候加上 var xrect : TRect; begin xrect:=rect(0,0,1024,768); clipcursor(@xrect) 這樣就可以把滑鼠給關在第一個畫面之中了 藏私の禁止