|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
ufochen
註冊時間: 2003-09-17 文章: 165
第 1 樓
|
發表於: 星期二 八月 25, 2015 3:06 pm 文章主題: 如何使自動撥放程式最大化?並撥放指定的檔案! |
|
|
Declare Integer ShellExecute In shell32.Dll Integer, String, String, String, String, Integer
=ShellExecute(0,"Open","e:\晚安曲-費玉清.mp4","","",2)
用以上指令會開啟自動撥放程式並撥放"晚安曲-費玉清.mp4"
但我希望撥放程式最大化顯示,試過修改ShellExecute()的參數,
並沒有用 , 請教一下該怎麼做 ?
測試環境 : win8.1 + VFP9
ufochen 在 星期三 九月 16, 2015 6:09 pm 作了第 1 次修改 |
|
回頂端 |
|
|
ejaylee
註冊時間: 2009-05-22 文章: 3 來自: 台灣
第 2 樓
|
發表於: 星期二 八月 25, 2015 5:52 pm 文章主題: |
|
|
先開啟應用程式就可以了
=ShellExecute(0,"Open","wmplayer.exe","","",3) |
|
回頂端 |
|
|
ufochen
註冊時間: 2003-09-17 文章: 165
第 3 樓
|
發表於: 星期三 九月 16, 2015 2:01 pm 文章主題: |
|
|
ejaylee 寫到: | 先開啟應用程式就可以了
=ShellExecute(0,"Open","wmplayer.exe","","",3) |
經測試 , 以上指令無法自動撥放事先指定的檔案 , 但還是謝謝你提供意見 ! |
|
回頂端 |
|
|
garfield Site Admin
註冊時間: 2003-01-30 文章: 2158
第 4 樓
|
發表於: 星期三 九月 16, 2015 5:00 pm 文章主題: |
|
|
那先=ShellExecute(0,"Open","wmplayer.exe","","",3)
再 =ShellExecute(0,"Open","e:\晚安曲-費玉清.mp4","","",2) _________________ 利用>>搜尋<<的功能會比問的還要快得到答案. |
|
回頂端 |
|
|
ufochen
註冊時間: 2003-09-17 文章: 165
第 5 樓
|
發表於: 星期三 九月 16, 2015 6:06 pm 文章主題: |
|
|
garfield 寫到: | 那先=ShellExecute(0,"Open","wmplayer.exe","","",3)
再 =ShellExecute(0,"Open","e:\晚安曲-費玉清.mp4","","",2) |
還是不行 !這樣只會開啟撥放程式,不會撥放"e:\晚安曲-費玉清.mp4"
如果插入 wait 指令
=ShellExecute(0,"Open","wmplayer.exe","","",3)
WAIT "" WINDOW TIMEOUT 0.3
=ShellExecute(0,"Open","e:\晚安曲-費玉清.mp4","","",2)
這樣會撥放"e:\晚安曲-費玉清.mp4" , 但不是以最大化視窗呈現 |
|
回頂端 |
|
|
andywilliams
註冊時間: 2004-10-23 文章: 111
第 6 樓
|
|
回頂端 |
|
|
ufochen
註冊時間: 2003-09-17 文章: 165
第 7 樓
|
發表於: 星期四 九月 17, 2015 1:56 pm 文章主題: |
|
|
andywilliams 寫到: | http://vfp.sunyear.com.tw/viewtopic.php?t=4500&highlight=StretchToFit |
萬分感謝,問題終於解決了!但我的作法與原作者稍許不同
詳細如下
新增一個控制項 wmplayer.ocx.7
設定控制項
thisform.OleControl1.StretchToFit = .t.
thisform.OleControl1.UiMode = Full && 改成None 可以隱藏撥放按鈕,但畫面不會自動全螢幕
thisform.OleControl1.width=1920
thisform.OleControl1.Height = 1080
ThisForm.OleControl1.URL = '媒體檔名.AVI'
ThisForm.OleControl1.DoVerb(0)
INKEY(1) |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|