procedure TForm1.Button1Click(Sender: TObject);
var H : THandle;
    ClassName : Array[0..255] of Char;
    P : TPoint;
begin       H := FindWindow(nil, '未命名 - 記事本');
   if H = 0 then begin
      ShowMessage('Not Found');
      exit;
   end;
   while true do begin
         H := ChildWindowFromPoint(H, P);
         GetClassName(H, ClassName, 255);
         if ClassName = 'Edit' then
            Break;
   end;
   if H <> NULL then begin
      SendMessage(H, WM_CHAR, 65, 0);
   end;
end;

引言: Hi jck1 您好: 這是我剛剛試的一段程式, 很單純的送一個字給Notepad, 你可以搜尋一下"SendMessage" 還有與Window相關的API 試試.

procedure TForm1.Button1Click(Sender: TObject);
var H : THandle;
    ClassName : Array[0..255] of Char;
    P : TPoint;
begin       H := FindWindow(nil, '未命名 - 記事本');
   if H = 0 then begin
      ShowMessage('Not Found');
      exit;
   end;
   while true do begin
         H := ChildWindowFromPoint(H, P);
         GetClassName(H, ClassName, 255);
         if ClassName = 'Edit' then
            Break;
   end;
   if H <> NULL then begin
      SendMessage(H, WM_CHAR, 65, 0);
   end;
end;

我不是高手, 高手是正在銀幕前微笑的人. 發表人 - miles 於 2003/03/26 09:34:13

引言: hi Miles 謝謝你的回答 請問H := ChildWindowFromPoint(H, P); 這行中的P指的是什麼呢? 我看了一下document說的是 Specifies a POINT structure that defines the client coordinates of the point to be checked. 但是當我按下projcet1的button時 client coordinate指的是我的delphi程式還是用findwindow找到的記事本呢? 又ClassName = 'Edit'是指什麼呢? 還有這個程式我試run一下 會跑不出結果 好像是卡在while迴圈裡了

Hi jck1兄您好:
1.p 是一個指標, 可讓你指定一個位置讓ChildWindowFromPoint去找,
 例如一個Form上面有兩個Panel, 我便可以指定p去看要尋找哪一個
 Panel, 他的位置是以Parent的相對位置為準, 這裡指的是Notepad的
 位置.
2.ClassName = 'Edit'我們試著去找notepad底下Class為Edit的物件, 
  可以開Delphi內附的WinSight程式去看裡面一些資訊.
3.跑程式前請先開一個空的notepad(記事本)      希望對你有幫助< >< >

引言: Hi jck1兄您好: 1.p 是一個指標, 可讓你指定一個位置讓ChildWindowFromPoint去找, 例如一個Form上面有兩個Panel, 我便可以指定p去看要尋找哪一個 Panel, 他的位置是以Parent的相對位置為準, 這裡指的是Notepad的 位置. 2.ClassName = 'Edit'我們試著去找notepad底下Class為Edit的物件, 可以開Delphi內附的WinSight程式去看裡面一些資訊. 3.跑程式前請先開一個空的notepad(記事本) 手, 高手是正在銀幕前微笑的人.

procedure TForm1.Button1Click(Sender: TObject);
var H : THandle;
    ClassName : Array[0..255] of Char;
    P : TPoint;
begin
   H := FindWindow(nil, '未命名 - 記事本');
   if H = 0 then begin
      ShowMessage('Not Found');
      exit;
   end;
   H := FindWindowEx(H, 0, 'Edit', nil);
   if H <> NULL then begin
      SendMessage(H, WM_CHAR, 65, 0);
   end;
end;

一、要送一個按鍵F6給其他程式這樣寫對嗎?
    SendMessage(H, WM_KEYDOWN, VK_F7, 0);
    document中的說明看得不是很了解
    nVirtKey 和 lKeyData 不知道要傳什麼。
二、又提到我用的那個軟體Hot Keyboard Pro, 他應該是屬於一種
    常駐程式嗎??因為只要我在任何視窗下，按下我定義的熱鍵，
    例如F7吧，他就會啟動該熱鍵的macro功能，即使我是在delphi的
    編輯視窗下，F7本應該是單步執行程式的，但delphi會收不到F7，而
    會被Hot Keyboard Pro先攔走。我要對像Hot Keyboard pro的程式送
    訊息的話，也是用SendMessage這樣的方法嗎??

1.可以參考此篇先進的文章
  http://delphi.ktop.com.tw/topic.php?TOPIC_ID=21387
  改良後的程式碼為, 這是模擬鍵盤的做法, 至於使用SendMessage我還在試
  若兄有try出, 還請不吝分享.

procedure TForm1.Button1Click(Sender: TObject);
var H : THandle;
    ClassName : Array[0..255] of Char;
begin
   H := FindWindow(nil, '未命名 - 記事本');
   if H = 0 then begin
      ShowMessage('Not Found');
      exit;
   end;
  // H := FindWindowEx(H, 0, 'Edit', nil);
   if H <> NULL then begin
      BringWindowToTop(H);
      keybd_event(VK_F1, 0, 0, 0);     
      keybd_event(VK_F1, 0, KEYEVENTF_KEYUP, 0);    
   end;
end;        2.Hot Keyboard Pro小弟不太熟, 但小弟淺見應該是攔截Windows Hook, 
  可能只有KeyBoard Hook 搭配SendMessage or keybd_event.