用數據機連線上網,會有一個連線捷徑,請問如何用程式執行這個捷徑 |
尚未結案
|
iamjsn
初階會員 發表:78 回覆:95 積分:44 註冊:2002-08-16 發送簡訊給我 |
|
shaofu
高階會員 發表:5 回覆:136 積分:103 註冊:2003-01-07 發送簡訊給我 |
|
shaofu
高階會員 發表:5 回覆:136 積分:103 註冊:2003-01-07 發送簡訊給我 |
至於 ShellExecute 剛試了一下也是可行的:
ShellExecute(0, nil, PChar(FileName), nil, PChar(ExtractFilePath(FileName)), SW_SHOW); 關鍵應該是第二個參數, 用 nil 代表 open 那個 file, 如果用 'open' 的話, 那檔案必需是 executable file 或 document file, 撥號網路的捷徑剛好就不行 另外, 如果想做關網路的功能, 應該還是得乖乖從 > 發表人 -
|
iamjsn
初階會員 發表:78 回覆:95 積分:44 註冊:2002-08-16 發送簡訊給我 |
哇,這樣寫真的可以開起來耶,@@,讚。謝謝 那我想請教一個問題,因為我本身其實沒有用數據機,我是幫別人寫這隻自動發接上網和自動斷線的程式,如果是adsl的話,我試過,只要去執行enternet.EXE就能連線,關閉時只要用findwindow找到enternet視窗然後送一個wm_colse就能斷線了,那是不是撥號網路也是能用類似的方法,找到發號網路視窗把它斷線
呢。因為我的測試環境在英國,呵,現在它們是半夜,沒半法現在就測,有沒有人能幫我先測測看呢
procedure TForm1.CloseDialup(Sender: TObject); var h:Hwnd; begin h := FindWindow(nil,pchar('這裏填入那個撥號網路視窗的title')); if h<> 0 then begin postmessage(h,Wm_close,0,0); end; end; |
shaofu
高階會員 發表:5 回覆:136 積分:103 註冊:2003-01-07 發送簡訊給我 |
引言: 哇,這樣寫真的可以開起來耶,@@,讚。謝謝 那我想請教一個問題,因為我本身其實沒有用數據機,我是幫別人寫這隻自動發接上網和自動斷線的程式,如果是adsl的話,我試過,只要去執行enternet.EXE就能連線,關閉時只要用findwindow找到enternet視窗然後送一個wm_colse就能斷線了,那是不是撥號網路也是能用類似的方法,找到發號網路視窗把它斷線 呢。因為我的測試環境在英國,呵,現在它們是半夜,沒半法現在就測,有沒有人能幫我先測測看呢嗯, 你的觀念應該是對的, 不過問題在於.. 1. 撥號網路連線算不算一般的 window 視窗程式? 2. 就算是, 他接不接受這樣的訊息? 至於 ADSL 的撥號程式可以關掉撥號網路程式, 我猜那只單純的收到 WM_CLOSE 關掉程式前, ADSL 的撥號程式把撥號網路關掉而已 當然, 你可以多 > - 不用procedure TForm1.CloseDialup(Sender: TObject); var h:Hwnd; begin h := FindWindow(nil,pchar('這裏填入那個撥號網路視窗的title')); if h<> 0 then begin postmessage(h,Wm_close,0,0); end; end; |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |