引言: 我寫的程式是 a.exe, 想要去設定別的程式的 title, 所以需要一個功能, 將以游標點選其他程式的視窗, 並取得其 window handle. 想請問各位前輩, 是否有做過類似的程式, 該怎麼做呢?

引言: 可是我若將滑鼠 click 之後, 程式控制權就被別的程式取走. 這時怎麼回來 a.exe 呢?

引言: 你只是要改title?

引言:

引言: 你只是要改title?

非也, 只是為了簡化問題, 我不想用 enum 的方式, 因為要讓 user 設定. 我看到蠻類似的程式, 但它是 VB 寫的 http://140.116.253.138/~cww/html/q00014.html 也許假以時日, 我可以把它翻譯成 delphi

引言: 謝謝 aip999, 因為找不到較好的寫法, 所以我目前採用你提供的方法, 即-使用 timer 來取得設定值.

你可以參考這篇文章: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=22391 應該可以省去Timer的方法

var hHook:Integer;
function HookProc(iCode:Integer;wParam:wParam;lParam:lParam):LRESULT;stdcall;
var msg:TEventMsg;
begin
  Result:=0;
  if iCode < 0 then //必須將消息傳遞到消息鏈的下一個接受單元
    Result := CallNextHookEx(hHook,iCode,wParam,lParam)
  else if icode=HC_ACTION then begin
    msg:=pEventMSG(lParam)^;
    if msg.message=WM_LBUTTONDOWN then begin
//此行只是顯示Window Handle及x,y座標
      form1.Memo1.Lines.add(inttostr(msg.hwnd) ':' 
                 inttostr(msg.paramL) '-' inttostr(msg.paramH));
    end;
  end;
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  hHook:=SetwindowsHookEx(WH_JOURNALRECORD,hookProc,HInstance,0);
end;    procedure TForm1.Button2Click(Sender: TObject);
begin
  UnHookWindowsHookEx(hHook);
  hHook:=0;
end;    procedure TForm1.FormDestroy(Sender: TObject);
begin
  if hHook <> 0 then begin
    UnHookWindowsHookEx(hHook);
    hHook:=0;
  end;
end;