D
dick_chan
Unregistered / Unconfirmed
GUEST, unregistred user!
我想寫一程序去控制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;
procedure TForm1.Button1Click(Sender: TObject);
var
myhwnd:HWND;
begin
myhwnd:=FindWindowEx(FindWindow(nil,'test.txt - 記事本'),0,'nil','檔案');
SendMessage(myhwnd, BM_CLICK ,0,0);
end;