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

請問可以去控制已執行的程式去執行另一項動作嗎?

答題得分者是:sos_admin
kaija
一般會員


發表:16
回覆:14
積分:6
註冊:2003-07-24

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-08-20 10:08:53 IP:61.222.xxx.xxx 未訂閱
舉例來說 ok.exe -a:abc <--- 這是第一次執行的時候…會開啟ok.exe…並傳入-a這個參數去執行該有的動作 ok.exe -b:123 <--- 這是第二次執行的時候…不開啟ok.exe(因程式已執行)…但-b:123的參數會丟給記憶體中的ok.exe,並去執行參數-b該有的動作 像這樣的功能應該要怎麼做呢??
timhuang
尊榮會員


發表:78
回覆:1815
積分:1608
註冊:2002-07-15

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-08-20 10:52:08 IP:203.95.xxx.xxx 未訂閱
弟的想法是用 FindWindow 方法來找出原來正在執行的 ok.exe, 配合 SendMessage 方法來送資料給原來正在執行的 ok.exe , 在程式中要取得這個 message 後做出對應的處理即可!
kaija
一般會員


發表:16
回覆:14
積分:6
註冊:2003-07-24

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-08-20 11:52:14 IP:61.222.xxx.xxx 未訂閱
sendmessage的參數應該怎麼設定呢 我在msdn上面找了好多文章都沒有看到sendmessage的裏面常數的參考部份 所以不知道應該要怎麼去做
hagar
版主


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

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-08-20 23:58:55 IP:202.39.xxx.xxx 未訂閱
也許這篇會有幫助: http://www.weichan.com/delphi/ipc.htm    --- 歡迎光臨 KTop 研究院--<-<-<@
sos_admin
版主


發表:121
回覆:697
積分:768
註冊:2003-07-23

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-08-21 10:09:44 IP:61.155.xxx.xxx 未訂閱
参见: 程序间参数传递 功能: 第一次執行的時候…會開啟project1.exe 第二次執行的時候…不開啟project1.exe(因程式已執行)…但会将參數會丟給已執行的project1.exe 第3次執行的時候…不開啟project1.exe(因程式已執行)…但会将參數會丟給已執行的project1.exe ... ... http://delphi.ktop.com.tw/topic.php?TOPIC_ID=36089
kakene
一般會員


發表:22
回覆:52
積分:19
註冊:2003-01-07

發送簡訊給我
#6 引用回覆 回覆 發表時間:2003-08-21 16:18:04 IP:203.204.xxx.xxx 未訂閱
引言: sendmessage的參數應該怎麼設定呢 我在msdn上面找了好多文章都沒有看到sendmessage的裏面常數的參考部份 所以不知道應該要怎麼去做
http://delphi.ktop.com.tw/topic.php?TOPIC_ID=35154 送一個字串給Notepad採用"SendMessage"
 
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
  h, npad:HWND;
begin
  Npad := FindWindow(nil, '未命名 - 記事本');
  if npad <> 0 then begin
    h:=ChildWindowFromPoint(npad,Point(10,10));
    if h <> 0 then begin
      BringWindowToTop(Npad); //使其成為focus之window
      s:='測試Test';
      SendMessage(h, WM_SETTEXT,0,longint(PCHAR(S)));
    end;
  end;
end;
有時候搜尋ktop 會比搜尋msdn 來的有效率喔 發表人 - kakene 於 2003/08/21 16:24:06
kaija
一般會員


發表:16
回覆:14
積分:6
註冊:2003-07-24

發送簡訊給我
#7 引用回覆 回覆 發表時間:2003-08-21 16:43:43 IP:61.222.xxx.xxx 未訂閱
引言:
引言: sendmessage的參數應該怎麼設定呢 我在msdn上面找了好多文章都沒有看到sendmessage的裏面常數的參考部份 所以不知道應該要怎麼去做
http://delphi.ktop.com.tw/topic.php?TOPIC_ID=35154 送一個字串給Notepad採用"SendMessage"
 
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
  h, npad:HWND;
begin
  Npad := FindWindow(nil, '未命名 - 記事本');
  if npad <> 0 then begin
    h:=ChildWindowFromPoint(npad,Point(10,10));
    if h <> 0 then begin
      BringWindowToTop(Npad); //使其成為focus之window
      s:='測試Test';
      SendMessage(h, WM_SETTEXT,0,longint(PCHAR(S)));
    end;
  end;
end;
有時候搜尋ktop 會比搜尋msdn 來的有效率喔 發表人 - kakene 於 2003/08/21 16:24:06
先謝謝您滴熱心 不過上面的方法對我原來所希望達到的目的並沒有幫助 所以才會去搜尋msdn希望獲得更多相關參數的設定方法 我的問題已由sos_admin解答 我也實際滴去將問題解決了 請參考下方連結 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=36089
系統時間:2024-05-04 23:27:46
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!