如何由App1.exe控制App2.exe？ |
|
尚未結案
|
|
MingLin
一般會員   發表：24 回覆：26 積分：10 註冊：2002-09-20 發送簡訊給我 |
|
|
axsoft
版主   發表：681 回覆：1056 積分：969 註冊：2002-03-13 發送簡訊給我 |
引言: 我先設計App2.exe包含一個Edit1和Button1。現在我需要設計App1.exe，在App1裏執行App2.exe並自動填字串到App2.exe裏的Edit1和執行Button1，請問該如何設計？謝謝﹗用SendMessage(...) LRESULT SendMessage( HWND hWnd, // handle to destination window UINT Msg, // message WPARAM wParam, // first message parameter LPARAM lParam // second message parameter ); 參考一下底下的文章: Delphi中SendMessage使用技巧 東南大學 梁雲 原始文章:http://www.hebiat.edu.cn/jjzx/MET/journal/application-development14/Delphi-SendMessage.htm Windows系統是由消息機制驅動的，每個線程如果建立了一個窗口，則由系統分配一個消息隊列用於窗口消息的處理。另外，消息也可以不經過消息隊列而利用SendMessage函數直接發送給窗口，窗口過程將處理這個消息，但只有當消息被處理之後，SendMessage才能返回到調用程序。下面結合兩個Delphi程序，討論如何利用SendMessage向控件發送消息和控件對這種消息的響應。 用SendMessage向控件發送消息 在編程中，有時需要控件以特殊的風格顯示，而這種要求又無法通過設置控件屬性實現。例如，讀取客戶列表並顯示在下拉框供用戶選擇，如果下拉框寬度太窄，則不能全部顯示；如果將寬度定得太寬，界面又有不緊湊之感。因此希望能在運行期動態地確定下拉框顯示區域的寬度，這種要求如果不用SendMessage函數就很難實現。 解決辦法是，在讀數據庫時計算字符串的顯示寬度，用顯示寬度的最大值確定下拉框顯示區域的寬度。再用SendMessage函數向下拉框發送CB_SETDROPPEDWIDTH消息和寬度值，下拉框根據消息中傳來的信息，就可以進行正確顯示。 程序運行結果如圖1所示：  部分源程序代碼如下：
i:=0; //計數 MaxWidth:=0; Query1.SQL.Clear; Query1.SQL.Add(『select Company from Customer』); Query1.Open; //讀客戶列表到下拉框 while not Query1.Eof do begin ComboBox1.Items.add(Query1.FieldByName (『Company』).AsString); Width:=ComboBox1.Font.Size ＊ Length (ComboBox1.Items[i]); if Width>MaxWidth then MaxWidth:=Width; //找出最大值 Query1.Next; i:=i＋1; end; Query1.Close; ComboBox1.Text:=ComboBox1.Items[0]; //發送消息以確定顯示區域的寬度 SendMessage(ComboBox1.Handle, CB_SETDROPPEDWIDTH,MaxWidth,0);利用SendMessage函數還可以實現一些有趣的效果，例如在按鈕的Click事件中加入如下語句： SendMessage(Button.Handle,BM_SETSTYLE,BS_RADIOBUTTON,1); 運行後點擊按鈕，就可以把按鈕變成一個收音機按鈕。 控件接收SendMessage消息 上面討論了用SendMessage向控件發送消息的過程。但凡事有利就有弊，用SendMessage發送的消息在處理上存在著一定困難。因為該消息不經過消息隊列，所以無法用OnMessage方式來指定對消息的響應，甚至用HookMainWindow也不行，因為消息直接發送到控件，繞過了主窗體。要對這種類型的消息作出響應，需要重載控件的WndProc方法。 例如，對於一個列表框，滾動條的滾動消息就是用SendMessage方式發送的，因此該消息不在TlistBox的事件列表中。下面是處理控件響應該滾動消息的具體步驟。 1.首先從TlistBox繼承一個TmyListBox類，並重載WndProc方法。在程序中加入下列定義： type TMyListBox=class(TListBox) private procedure WndProc(var Msg: TMessage); override; //重載WndProc，處理發送到控件的消息 public end;其中WndProc方法指定控件對消息的響應，輸入參數是TMessage類型，該數據類型是一個記錄，包含了消息代碼和消息的參數，消息參數可以用Longint或Word方式獲得。 2.對滾動事件做出響應，在WndProc方法中加入如下處理代碼： if (Msg.Msg=WM_VSCROLL) and (Msg.WParamLo=SB_ENDSCROLL) then begin //獲得鼠標位置對應的列 ItemIndex:=ItemAtPos(Point,true); Form1.Edit1.Text:=inttostr(ItemIndex); inherited; end else inherited;當程序接收到WM_VSCROLL消息，且WParamLo參數為SB_ENDSCROLL時，表示豎直滾動條停止滾動，就可以用ItemAtPos方法確定與鼠標位置對應的ItemIndex。ItemAtPos方法的Point參數是一個TPoint類型的變量，用來保存鼠標的位置。 3.定義方法ListBoxMouseMove，在鼠標移動時，將當前位置保存在Point中： procedure TForm1.ListBoxMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer); begin Point.X:=X; Point.Y:=Y; end;4.在運行期創建和初始化列表框，並指定列表框的MouseMove事件對應上一步定義的ListBoxMouseMove方法。在主窗體的Create事件中輸入下面的代碼： begin Point.X:=0; Point.Y:=0; //創建自定義列表框 List:=TMyListBox.Create(Form1); List.Parent:=Form1; List.Left:=5; List.Top:=30; List.Width:=150; List.Height:=200; for i:=0 to 300 do begin List.Items.Add(inttostr(i)); //初始化 end; //指定處理MouseMove事件的方法 List.OnMouseMove := ListBoxMouseMove; end;網路志工聯盟----Visita網站http://www.vista.org.tw ---[ 發問前請先找找舊文章 ]--- 發表人 - axsoft 於 2003/02/11 09:08:48 |
|
MingLin
一般會員 發表：24 回覆：26 積分：10 註冊：2002-09-20 發送簡訊給我 |
|
|
danny
版主 發表：100 回覆：522 積分：595 註冊：2002-03-11 發送簡訊給我 |
|
|
MingLin
一般會員 發表：24 回覆：26 積分：10 註冊：2002-09-20 發送簡訊給我 |
|
|
hagar
版主  發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
發表時間：2003-02-10 17:43:09
IP:211.23.xxx.xxx 未訂閱
系統時間：2024-05-05 6:55:02
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |