我想寫一程序去控制notepad的按鈕,但不知為何沒反應??請指教.
procedure TForm1.Button1Click(Sender: TObject);
var
myhwnd:HWND;
begin
myhwnd:=FindWindowEx(FindWindow(nil,test.txt - 記事本),0,nil,檔案);
SendMessage(myhwnd, BM_CLICK ,0,0);
end;
我这里有个例子可以执行
if (hParent<>null) then
begin
hMemo:= ChildWindowFromPointEx(hParent, Point(50, 200),CWP_ALL);
hButton:=FindWindowEx(hParent,0,nil,PChar(SeSkinEdit3.Text));
SendMessage(hButton,BM_CLICK,0,0);
end