findwindowex為何失效? (50分)

  • 主题发起人 主题发起人 dick_chan
  • 开始时间 开始时间
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;



 
myhwnd:=FindWindowEx(FindWindow(nil,'test.txt - 記事本'),0,'nil','檔案');

nil不用加引号
 
myhwnd:=FindWindowEx(FindWindow(nil,'test.txt - 記事本'),0,nil,'檔案');
 
還是不行呀......
 
var
myhwnd : Thandle;
begin
myhwnd := FindWindow(nil, ''test.txt - 記事本');
if myhwnd =0 then
begin
SHowMessage('没打开记事本');
Exit;
end;
SendMessage(myhwnd, BM_CLICK, 0, 0);
end;
 
notepad還是沒有反應.....
 
多人接受答案了。
 
后退
顶部