線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:949
推到 Plurk!
推到 Facebook!

請問如何才能執行外部的檔案.

答題得分者是:hagar
jangjy.jjt
一般會員


發表:2
回覆:1
積分:0
註冊:2003-12-21

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-12-21 11:12:30 IP:218.162.xxx.xxx 未訂閱
各位先進: 我曾使用winexe()的函數來執行外部的檔案,但是它只是執行.exe的檔 如果我想執行如.avi or .mpg的檔是否有其方法... 我只是想在delhpi中去啟動另一個程式而不用顯示在delphi上,卻找不到有 這樣的寫法,故請求各位為我解救...
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-12-21 11:43:46 IP:202.39.xxx.xxx 未訂閱
用 ShellExecute 試試
uses ShellApi;    procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
  i := ShellExecute(0, 'open', PChar('C:\test.mpg'), nil, nil, SW_SHOW);
  if i <= 32 then
    ShowMessage(SysErrorMessage(GetLastError));
end;
--- Everything I say is a lie.
jangjy.jjt
一般會員


發表:2
回覆:1
積分:0
註冊:2003-12-21

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-12-21 12:02:54 IP:218.162.xxx.xxx 未訂閱
非常感謝版主 我看了本站有一些相關的資料,有提到shellExecute,有的是使用handle,而您使用'0', ShellExecute(0, 'open', PChar('C:\test.mpg'), nil, nil, SW_SHOW); 請問有不同之處嗎!! 我有試出來了!真是非常感謝您!因為我明天就要交差,老闆要我寫一個自動排程來播放影片,依照不同時間自動播放,所有關鍵就卡在這,真是感謝到....痛苦流涕..
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-12-21 12:12:22 IP:202.39.xxx.xxx 未訂閱
hwnd Specifies a parent window. This window receives any message boxes that an application produces. For example, an application may report an error by producing a message box. 在本例 handle 指 Form1.Handle 使用 0 是指不指定 parent window --- Everything I say is a lie.
系統時間:2024-05-21 21:21:21
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!