Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=396122&view=findpost&p=3837962 Mon, 31 Aug 2020 10:24:46 +0000 Кнопка не кнопка и без хендла! https://forum.sources.ru/index.php?showtopic=396122&view=findpost&p=3837962 Цитата trident @
Можно подгрузить DLL, из которой найти обьект TApplication, далее через RTTI перебирая компоненты найти этот SpeedButton и вызвать обработчик OnClick

Добавлено
Даже не Application, а сразу обьект главной формы получить по ее хендлу и дaльше искать SpeedButton

Здравствуйте,

А не могли бы Вы пожалуйста чуть подробней объяснить, как это делается или направить в нужное русло,что почитать на эту тему ? Если не сложно.]]> Optimus11 Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=396122&view=findpost&p=3555232 Thu, 18 Dec 2014 03:27:10 +0000 Кнопка не кнопка и без хендла! https://forum.sources.ru/index.php?showtopic=396122&view=findpost&p=3555232
Добавлено
Даже не Application, а сразу обьект главной формы получить по ее хендлу и дaльше искать SpeedButton]]> trident Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=396122&view=findpost&p=3542070 Thu, 06 Nov 2014 18:54:38 +0000 Кнопка не кнопка и без хендла! https://forum.sources.ru/index.php?showtopic=396122&view=findpost&p=3542070 min@y™ Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=396122&view=findpost&p=3542069 Thu, 06 Nov 2014 18:51:18 +0000 Кнопка не кнопка и без хендла! https://forum.sources.ru/index.php?showtopic=396122&view=findpost&p=3542069 MaxXx_2 Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=396122&view=findpost&p=3542068 Thu, 06 Nov 2014 18:24:51 +0000 Кнопка не кнопка и без хендла! https://forum.sources.ru/index.php?showtopic=396122&view=findpost&p=3542068 Цитата MaxXx_2 @
Щас поковыряю екзешник на пакер, если не сально мощьный протектор я распакую и там посмотрим, что к чему.

боюсь, паковали не ради уменьшения рамера ехе-шника.]]> min@y™ Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=396122&view=findpost&p=3542066 Thu, 06 Nov 2014 18:17:45 +0000 Кнопка не кнопка и без хендла! https://forum.sources.ru/index.php?showtopic=396122&view=findpost&p=3542066 MaxXx_2 Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=396122&view=findpost&p=3542030 Thu, 06 Nov 2014 16:02:58 +0000 Кнопка не кнопка и без хендла! https://forum.sources.ru/index.php?showtopic=396122&view=findpost&p=3542030 Цитата Rouse_ @
только не через PostMessage, а через mouse_event

да, но родительское окно должно быть в фокусе.]]> min@y™ Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=396122&view=findpost&p=3542026 Thu, 06 Nov 2014 15:57:11 +0000 Кнопка не кнопка и без хендла! https://forum.sources.ru/index.php?showtopic=396122&view=findpost&p=3542026 Цитата min@y™ @
Короче, раз это TSpeedButton или любой другой TGraphicControl, то послать ему клик не получится

Получится, только не через PostMessage, а через mouse_event
Нужно только знать координаты, по которым отправлять сообщение.
В данном случае, как я понимю, координаты кнопок не изменяемые, поэтому просто берем координаты окна, на канвасе которого отображены эти псевдокнопки и рассчитываем необходимые оффсеты.]]> Rouse_ Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=396122&view=findpost&p=3541929 Thu, 06 Nov 2014 12:55:09 +0000 Кнопка не кнопка и без хендла! https://forum.sources.ru/index.php?showtopic=396122&view=findpost&p=3541929 Короче, раз это TSpeedButton или любой другой TGraphicControl, то послать ему клик не получится.
Надо найти хэндл окна, на котором он лежит (в данном случае - TTabSheet.Handle), высчитать (визуально или хз как ещё) BoundRect этих кнопок и посылать клик-мессадж (вернее MouseDown/Up) уже ихнему родителю.

З.Ы. Антивирус в твоём архиве нашёл 2 малваря.]]> min@y™ Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=396122&view=findpost&p=3541923 Thu, 06 Nov 2014 12:41:59 +0000 Кнопка не кнопка и без хендла! https://forum.sources.ru/index.php?showtopic=396122&view=findpost&p=3541923 http://mmoru.com/board/showthread.php?t=464736
Вот прямая на программу: http://rghost.ru/52752794]]> MaxXx_2 Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=396122&view=findpost&p=3541910 Thu, 06 Nov 2014 12:22:35 +0000 Кнопка не кнопка и без хендла! https://forum.sources.ru/index.php?showtopic=396122&view=findpost&p=3541910 Цитата MaxXx_2 @
Скачать WPF можно где угодно.

Гуглил минуты 3, не нашёл, надоело, выклади.]]> min@y™ Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=396122&view=findpost&p=3541444 Wed, 05 Nov 2014 07:03:20 +0000 Кнопка не кнопка и без хендла! https://forum.sources.ru/index.php?showtopic=396122&view=findpost&p=3541444
    PostMessage(h, WM_LBUTTONDOWN, 0, MAKELPARAM(x,y));
    PostMessage(h, WM_LBUTTONUP, 0, MAKELPARAM(x,y));

h - хэндл формы, на которой лежит кнопка (ну или того настоящего окна, на которой она лежит в общем случае)
x, y - клиент-координаты формы в которые попадает кнопка.

Но он не работает. Где я ошибку допустил? В итоге получилось вот так?
    begin
    W1 := FindWindow('TPanel', ' WÐ v6.69F');
    if W1 <> 0 then
    ShowMessage('+ Panel')
    else
    ShowMessage('- Panel');
     
    W2 := FindWindowEx(W1, 0, 'TPageControl', nil);
    if W2 <> 0 then
    ShowMessage('+ PageControl')
    else
    ShowMessage('- PageControl');
     
    W3 := FindWindowEx(W2, 0, 'TTabSheet', ' Proxy PC ');
    if W3 <> 0 then
    begin
    PostMessage(w3, WM_LBUTTONDOWN, 0, MAKELPARAM(200,500));
    PostMessage(w3, WM_LBUTTONUP, 0, MAKELPARAM(200,500));
    ShowMessage('+ TabSheet')
    else
    ShowMessage('- TabSheet');
    end;


Потом решил просто проверить в Паинте нажатие на пустое место кисточкой. И тоже ни чего не произошло:

    procedure TForm1.Button1Click(Sender: TObject);
    var
    w1, w2:THandle;
    begin
    w1 := FindWindow('MSPaintApp', Безымянный - Paint');
    if W1 <> 0 then
    ShowMessage('Нашел MSPaintApp')
    else
    ShowMessage('Нету MSPaintApp');
     
    W2 := FindWindowEx(W1, 0, 'Afx:00000000FF4C0000:0:0000000000010003:0000000000000010:0000000000000000','');
    if W2 <> 0 then
    begin
    PostMessage(w2, WM_LBUTTONDOWN, 0, MAKELPARAM(300,300));
    PostMessage(w2, WM_LBUTTONUP, 0, MAKELPARAM(300,300));
    ShowMessage('Нашел рисовалку');
    end
    else
    ShowMessage('Не нашел рисовалку');
    end;
]]> MaxXx_2 Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=396122&view=findpost&p=3541436 Wed, 05 Nov 2014 06:30:15 +0000 Кнопка не кнопка и без хендла&#33; https://forum.sources.ru/index.php?showtopic=396122&view=findpost&p=3541436 Цитата MaxXx_2 @
Пишу вот так вот...
FindWindow...

Вам же сказали что это не оконные контролы

нажать можно: SetCursorPos + mouse_event]]> neut ral Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=396122&view=findpost&p=3541430 Wed, 05 Nov 2014 05:49:36 +0000 Кнопка не кнопка и без хендла&#33; https://forum.sources.ru/index.php?showtopic=396122&view=findpost&p=3541430
    procedure TForm1.Button1Click(Sender: TObject);
    var
    w1, w2, w3, w4 :THandle;
    begin
    W1 := FindWindow('TPanel', ' WÐ v6.69F');
    if W1 <> 0 then
    ShowMessage('+ Panel')
    else
    ShowMessage('- Panel');
     
    W2 := FindWindowEx(W1, 0, 'TPageControl', nil);
    if W2 <> 0 then
    ShowMessage('+ PageControl')
    else
    ShowMessage('- PageControl');
     
    W3 := FindWindowEx(W2, 0, 'TTabSheet', ' Proxy PC ');
    if W3 <> 0 then
    ShowMessage('+ TabSheet')
    else
    ShowMessage('- TabSheet');
     
    W4 := FindWindowEx(W3, 0, 'TSpeedButton', nil);
    if W4 <> 0 then
    begin
    ShowMessage('Yes SpeedButton');
    SendMessage(w4,WM_LBUTTONDOWN,0,0);
    SendMEssage(w4,WM_LBUTTONUP,0,0);
    end
    else
    ShowMessage('No SpeedButton');
    end;


Добавлено
Нашел информацию, что оказывается нажать на SpeedButton в чужом окне нереально! Как выйти из положения? ХотКей для них нет, меню нет.]]> MaxXx_2 Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=396122&view=findpost&p=3541427 Wed, 05 Nov 2014 05:41:58 +0000 Кнопка не кнопка и без хендла&#33; https://forum.sources.ru/index.php?showtopic=396122&view=findpost&p=3541427 MaxXx_2 Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=396122&view=findpost&p=3541425 Wed, 05 Nov 2014 05:21:09 +0000 Кнопка не кнопка и без хендла&#33; https://forum.sources.ru/index.php?showtopic=396122&view=findpost&p=3541425 Цитата MaxXx_2 @
Что ЭТО? Выглядит как кнопка и выполняет функции кнопки, но сама не кнопка и не панель вообще как будто ни чего нету

В дельфи\VCL такая кнопка называется TSpeedButton. Это не оконный, а чисто графический контрол, который рисуется на канве родительского окна (как TLabel, TBevel и т.п.), которое передает ему на обработку нажатия\движения мыши, когда мышиный курсор находится в пределах BoundsRect этого контрола. У TLabel тоже есть события обработки мышиных нажатий, поэтому из нее также можно сделать подобие кнопки, добавив рамку в виде TBevel и изменяя ее вид с выпуклого на вдавленный и наоборот по событиям OnMouseDown\Up]]> leo Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=396122&view=findpost&p=3541418 Wed, 05 Nov 2014 04:37:44 +0000 Кнопка не кнопка и без хендла&#33; https://forum.sources.ru/index.php?showtopic=396122&view=findpost&p=3541418 Они лежат на TabSheet но когда на них наводиш программа вообще не видит их. Хотя в самой программе нажимаются. Помогите разобратся пожалуйста. Скачать WPF можно где угодно. 1.png (, : 564) ]]> MaxXx_2 Delphi: Система, Windows API