Фев 08
Всем привет.
Недавно столкнулся с проблемой нажатия кнопки в другом приложении средствами Delphi.
Вот решение.
Добавляем в свое приложение две функции:
function EnumChildProc(Wnd: hWnd; SL: TStrings): BOOL; stdcall; var szFull: array[0..MAX_PATH] of Char; //Buffer for window caption begin Result := Wnd <> 0; if Result then begin GetWindowText(Wnd, szFull, SizeOf(szFull)); // put window text in buffer if (Pos(SL[0], StrPas(szFull)) > 0) // Test for text and (SL.IndexOfObject(TObject(Wnd)) < 0) // Test for duplicate handles then SL.AddObject(StrPas(szFull), TObject(Wnd)); // Add item to list EnumChildWindows(Wnd, @EnumChildProc, Longint(SL)); //Recurse into child windows end; end;
function ClickButton(ParentWindow: Hwnd; ButtonCaption: string): Boolean; var SL: TStringList; H: hWnd; begin SL := TStringList.Create; try SL.AddObject(ButtonCaption, nil); // First item in list is text to find EnumChildWindows(ParentWindow, @EnumChildProc, Longint(SL)); H := 0; //ShowMessage(SL.Strings[0]); case SL.Count of 1: ShowMessage('Window text not found.'); 2: H := hWnd(SL.Objects[1]); else ShowMessage('Ambiguous text detected.'); end; finally SL.Free; end; Result := H <> 0; if Result then PostMessage(H, BM_CLICK, 0, 0); end;
После этого необходимо определить хэндл кнопки и нажать на нее используя нашу функцию clickbutton();
procedure TForm2.Timer3Timer(Sender: TObject); var wnd: HWND; caption: string; begin wnd := GetTopWindow(0); repeat SetLength(caption, GetWindowtextLength(wnd)); GetWindowText(wnd, @caption[1], length(caption) + 1); if (trim(caption) = 'сюда напишите кэпшн окна формы') then ClickButton(wnd, 'Сюда напишите кэпшн кнопки'); wnd := GetNextWindow(wnd, GW_HWNDNEXT); until wnd = 0; end;
Ну вот собственно и все. Но тут есть один нюанс, эта программа будет работать только с теми кнопками текст которых не встречается на форме. т.е. если на кнопке написано «Далее >», а где то на форме есть фраза «Нажмите кнопку Далее чтобы продолжить», эта подпрограмма работать не будет.
Удачи:)
96 Responses to “Нажатия кнопки в другом приложении средствами Delphi”
Оставить комментарий к записи
Вы должны Войти, чтобы оставить комментарий.
abamp…
ugg boots australiaHowever shopping online also can be a little frustrating as chances are that you will get fakes.men canada goose chilliwack parka brown…
lcd tv offers…
While checking out DIGG yesterday I noticed this…
Looking around…
I like to look around the internet, often I will go to Digg and read and check stuff out…
psychic medium…
I like to browse in various places on the internet, often I will go to Stumble Upon and follow thru…
Anti Wrinkle…
While browsing Yahoo I found this page in the results and I didn’t think it fit…
digital boxes for tv…
Its hard to find informative and accurate information but here I noted…
Its hard to find good help…
I am regularly saying that its hard to get good help, but here is…
Yahoo results…
While browsing Yahoo I discovered this page in the results and I didn’t think it fit…
Wika linked to this {site|website|place}…
I was reading the news and I saw this really interesting topic…
Informative and precise…
Its difficult to find informative and precise info but here I found…
Natural Swimming Pools…
[...]what follows there are various the web link to numerous web-sites which I think you will want to head over to[...]…
Useful and precise…
Its difficult to find really informative and precise information but here I noted…
Hard Day…
It was a hard day here today, so I just took to piddeling around on the internet and realized…
Dreary Day…
It was a dreary day here today, so I just took to piddeling around on the internet and realized…
News info…
I was reading the news and I saw this really cool info…
Tumblr article…
I saw someone writing about this on Tumblr and it linked to…
Yahoo News…
When checking out Yahoo News yesterday I found this…
Tumblr…
Tumblr linked to this site…
Informative and precise…
Its hard to find informative and accurate information but here I found…
Weebly article…
I saw a writer writing about this on Weebly and it linked to…
Bing results…
While browsing Bing I found this page in the search results and I didn’t think it match…
News info…
I was reading the news and I saw this really cool topic…
It is quite hard to find good help…
I am really forever proclaiming that its difficult to get quality honest help, but here is…
You should check this out…
[...] Wonderful story, reckoned we could combine a few unrelated data, nevertheless really worth taking a look, whoa did one learn about Mid East has got more problerms as well [...]……
Its hard to find good help…
I am constantnly saying that its difficult to get good help, but here is…
Informative and precise…
Its hard to find informative and precise info but here I found…
Thanks!…
Thanks for all your insight. This site has been really helpful to me….
Just Looking…
When I was surfing yesterday I noticed a great post about…
Looking around…
I like to look in various places on the web, regularly I will go to Digg and follow thru…
Tom Hopkins…
“Today, you have 100% of your life left.”…
News info…
I was reading the news and I saw this really interesting topic…
Blogs ou should be reading…
[...]Here is a Great Blog You Might Find Interesting that we Encourage You[...]……
Websites worth visiting…
[...]here are some links to sites that we link to because we think they are worth visiting[...]……
Websites you should visit…
[...]below you’ll find the link to some sites that we think you should visit[...]……
Just Browsing…
While I was browsing yesterday I noticed a excellent post concerning…
Check this out…
[...] that is the end of this article. Here you’ll find some sites that we think you’ll appreciate, just click the links over[...]……
Recent Blogroll Additions……
[...]usually posts some very interesting stuff like this. If you’re new to this site[...]……
Recommeneded websites…
[...]Here are some of the sites we recommend for our visitors[...]……
Websites worth visiting…
[...]here are some links to sites that we link to because we think they are worth visiting[...]……
Cool sites…
[...]we came across a cool site that you might enjoy. Take a look if you want[...]……
Yahoo News…
When checking out Yahoo News yesterday I noticed this…
Hard Day…
It was a hard day here yesterday, so I just took to messing around on the internet and realized…
Useful and precise…
Its difficult to find really informative and accurate info but here I noted…
Hard Day…
It was a hard day here yesterday, so I just took to messing around on the internet and realized…
Yahoo results…
While searching Yahoo I discovered this page in the results and I didn’t think it fit…
Yahoo News…
When checking out Yahoo News today I found this…
Bing results…
While searching Bing I found this page in the search results and I didn’t think it match…
Weebly article…
I saw a writer writing about this on Weebly and it linked to…
News info…
I was reading the news and I saw this really interesting info…
Yahoo results…
While searching Yahoo I discovered this page in the results and I didn’t think it fit…
Just Looking…
When I was browsing yesterday I saw a great post concerning…
Wikia…
Wika linked to this place…
Just Browsing…
While I was browsing today I noticed a excellent post about…
Just Looking…
When I was surfing yesterday I noticed a great article about…
News…
I was reading the Yahoo news and I saw this really cool information…
Just Looking…
When I was surfing today I saw a excellent article about…
Looking around…
I love to surf in various places on the internet, regularly I will go to Digg and follow thru…
Tumblr…
Tumblr linked to this place…
It is quite hard to find good help…
I am really constantnly saying that its difficult to get good honest help, but here is…
Useful and precise…
Its hard to find really informative and precise info but here I found…
Iron Man 3…
If you need to see the latest trailer or info about the iron man 3 go to at our site….
Just Looking…
When I was browsing today I saw a excellent post about…
It is quite hard to find good help…
I am really constantnly proclaiming that its hard to get good honest help, but here is…
Bing results…
While searching a bit Bing and Yahoo I happily discovered this page in the search results and I do not think it match…
Looking around…
I love to surf in various places on the online world, often I will just go to Stumble Upon and follow thru…
Yahoo News…
When reading a bit Google and Bing News just now I noticed this…
Useful and precise…
Its quite difficult to find super informative and accurate information but now I found…
Useful and precise…
Its quite difficult to find super informative and accurate info but now I noted…
Tumblr…
Tumblr linked to this place…
Yep….
I couldn’t have said it better myself……
Tumblr…
Tumblr just linked to this cool website…
Tumblr…
Tumblr linked to this site…
Tumblr…
Tumblr just linked to this cool site…
Iron Man 3…
If you need a great to news about the iron man 3 or watch the iron man 3 trailer then visit my site….
Iron Man 3 Trailer…
I enjoy you because of your own effort on this site. Betty loves making time for investigation and it’s easy to understand why. My partner and i hear all about the dynamic method you deliver precious guidance via the blog and even invigorate participa…
Weebly article…
I saw a guy talking a lot about this on Tumblr and it linked right to…
Just Looking…
When I was surfing a bit this week end I noticed a good article about…
Useful and precise…
Its quite hard to find super informative and accurate information but now I noted…
Yahoo News…
When checking out Yahoo News today I noticed this…
Bing results…
While browsing a bit Bing and Yahoo I happily discovered this page in the search results and I do not think it match…
Yahoo News…
When reading a bit Google and Bing News just now I noticed this…
Tumblr…
Tumblr just linked to this cool place…
News info…
I was reading the news and I saw this really cool information…
Iron Man 3…
Thanks a lot for providing individuals with an exceptionally brilliant opportunity to discover important secrets from this site. It can be very pleasurable and as well , stuffed with amusement for me and my office friends to search the blog nearly thre…
Looking around…
I like to surf in various places on the online world, regularly I will just go to Digg and follow thru…
Looking around…
I like to look around the online world, regularly I will just go to Stumble Upon and follow thru…
Digg…
While checking out DIGG today I noticed this…
Links…
[...]blogs of interest we have a link to[...]……
Looking around…
I love to look in various places on the internet, regularly I will go to Digg and follow thru…
Just Browsing…
While I was surfing today I noticed a great post about…
News…
I was reading the Yahoo news and I saw this really cool information…
Yahoo News…
When reading a lot on Google and of course Bing for the latest news today I happily noticed this…
Just Browsing…
While I was surfing today I noticed a excellent article concerning…
It is really hard these days to find enough support…
My friend is truly regularly but in a rash manner proclaiming that in all honesty that it is hard to really easily find some good online support, but there is…
Tumblr article…
I saw someone writing about this on Tumblr and it linked to…
It is really hard these days to find enough support…
My friend is truly constantly but in a rash manner proclaiming that in all honesty that it is hard to really easily procure some good online support, but there is…