procedure TForm2.Button1Click(Sender: TObject);
begin
  Timer1.Enabled:=True;
  showmessage('111');
end;    procedure TForm2.Timer1Timer(Sender: TObject);
var H : THandle;
    ClassName : Array[0..255] of Char;
    P : TPoint;
begin
  Timer1.Enabled:=False;
  if IsIconic(Application.Handle) then ShowWindow(Application.Handle, SW_RESTORE)
  else begin
  end;
 SetForegroundWindow(Application.Handle);
// keybd_event(VK_RETURN, 0, 0, 0);
// keybd_event(VK_RETURN, 0, KEYEVENTF_KEYUP, 0);       H := Application.Handle;
   if H <> NULL then begin
      SendMessage(h, WM_KEYDOWN, VK_RETURN, (($1C shl 16) or 1));
      SendMessage(h, WM_CHAR, 13, (($1C shl 16) or 1));
      SendMessage(h, WM_KEYUP, VK_RETURN, (($1 shl 30) or ($1C shl 16) or 1));
   end;    {
   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_KEYDOWN, VK_RETURN, (($1C shl 16) or 1));
      SendMessage(h, WM_CHAR, 13, (($1C shl 16) or 1));
      SendMessage(h, WM_KEYUP, VK_RETURN, (($1 shl 30) or ($1C shl 16) or 1));
   end;
}    end;

引言: 剛剛測試了一下，因為SendMessage是依照你的Handle來傳送訊息，所以如果你是用Application.Handel的話，SendMessage會把訊息傳給Application，而如果你傳送的字元對整個Application沒有用的話，就不會出現你要的結果。 所以你必須跟記事本的用法一樣 H := FindWindowEx(H, 0, 'Edit', nil); 取得你要輸入字元介面的Handel，這樣才能出現你要的結果。

引言: Application.Handle 是主程序視窗的 Handle, 不是元件的 Handle, 如果你要傳訊息給某一個元件, 就應該將該元件的 Handle 傳給 SendMessage 例如, 將 H := Application.Handle; 改為 H:=Memo1.Handle; 即可

引言: a.原本我是想傳給Application,然後因為,Application的Focus是停在Memo1上, Application不是會再傳給Memo1嗎?我就是這樣想才會不行< >< > b.可以傳給memo1了...可是我要傳的是別人寫的程式...不知道元件名稱ㄝ.... 我的需求是要給ForegroundWindow一個enter的按鍵訊號...有辦法嗎?

引言: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=64701

 
  if IsIconic(Application.Handle) then ShowWindow(Application.Handle, SW_RESTORE)
  else begin
  end;
  SetForegroundWindow(Application.Handle);
   H :=GetForegroundWindow();
   H := FindWindowEx(h, 0, nil, nil);
   if H <> NULL then begin
      PostMessage(h, WM_KEYDOWN, VK_RETURN, (($1C shl 16) or 1));
      PostMessage(h, WM_CHAR, 13, (($1C shl 16) or 1));
      PostMessage(h, WM_KEYUP, VK_RETURN, (($1 shl 30) or ($1C shl 16) or 1));
   end;    

   H := FindWindowEx(Application.Handle, 0, nil, nil);
   if H <> NULL then begin
      PostMessage(h, WM_KEYDOWN, VK_RETURN, (($1C shl 16) or 1));
      PostMessage(h, WM_CHAR, 13, (($1C shl 16) or 1));
      PostMessage(h, WM_KEYUP, VK_RETURN, (($1 shl 30) or ($1C shl 16) or 1));
   end;

引言: 可是我要傳給自己的程式時,不是可以這樣寫嗎?卻沒反應ㄝ H := FindWindowEx(Application.Handle, 0, nil, nil); if H <> NULL then begin PostMessage(h, WM_KEYDOWN, VK_RETURN, (($1C shl 16) or 1)); PostMessage(h, WM_CHAR, 13, (($1C shl 16) or 1)); PostMessage(h, WM_KEYUP, VK_RETURN, (($1 shl 30) or ($1C shl 16) or 1)); end;

引言: 我試了上面這一段程式是可以執行的, 只不過當輸入焦點落在 Button 上時, 可以 但若輸入焦點落在 Memo 上時, 則不行 就此看來, 或許問題出在 PostMessage 的第三與第四個參數上

引言: 我的需求是要給ForegroundWindow一個enter的按鍵訊號,不管它停在拿個元件 上就是送給他enter用,不知道是否可以?

 
  if IsIconic(Application.Handle) then ShowWindow(Application.Handle, SW_RESTORE)
  else begin
  end;
  SetForegroundWindow(Application.Handle);
  
  
a.  
  keybd_event(VK_RETURN, 0, 0, 0);
  keybd_event(VK_RETURN, 0, KEYEVENTF_KEYUP, 0);
b.
   H := FindWindowEx(H, 0, 'Edit', nil);
   if H <> NULL then begin
      SendMessage(h, WM_KEYDOWN, VK_RETURN, (($1C shl 16) or 1));
      SendMessage(h, WM_CHAR, 13, (($1C shl 16) or 1));
      SendMessage(h, WM_KEYUP, VK_RETURN, (($1 shl 30) or ($1C shl 16) or 1));
   end;