 |
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
文章: 2157
第 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) |
|
| 回頂端 |
|
|
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
