Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.07.27;
Скачать: CL | DM;

Вниз

Послать комбинацию клавиш стороннему приложению   Найти похожие ветки 

 
Pakito   (2007-11-27 12:50) [0]

Добрый день!
Подскажите, пожалуйста, как можно послать комбинацию клавиш (к примеру, ctrl+shift+del, enter) допустим в приложение "Firefox"? Ведь если пробовать по заголовку, то заголовок окна в нём каждый раз меняется в зависимости от открытой страницы сайта в этом браузере. Скорее всего, это как-то по имени процесса делается?


 
Igor Zorkov ©   (2007-11-27 13:21) [1]


> Pakito   (27.11.07 12:50)
>
> Скорее всего, это как-то по имени процесса делается?


По классу окна


 
DeBUGger13   (2007-11-27 13:27) [2]

Можно заранее получить ClassName окна,
потом hwnd будет легко найти.
(Я так думаю, но можт можно и лучше сделать).
К слову: hwnd вообще по экранным координатам можно получить.


 
Pakito   (2007-11-27 14:56) [3]

по хендлу пробовал -  не получается чё-то(
а где можно об этом подробнее узнать/почитать/пример глянуть?


 
DmT   (2007-11-27 15:35) [4]

Паралельный вопрос, по этой же теме:
Я знаю имя компонента на форме. hwnd определил. как мне ему послать событие OnClick?
И я знаю имя компонента для ввода текста. Как мне от туда получить текст и/или вставить свой?


 
Igor Zorkov ©   (2007-11-27 16:18) [5]


> DmT   (27.11.07 15:35) [4]


SendMessage(Wnd, WM_SETTEXT, 0, Integer(PChar("Text")));

SendMessage(Wnd, BM_CLICK, 0, 0);

function GetText(Wnd: HWND): String;
var
 TextLength: Integer;
 Buffer: String;
begin
 Result:= "";
 TextLength:= SendMessage(Wnd, WM_GETTEXTLENGTH, 0, 0);
 SetLength (Buffer, TextLength + 1);
 SendMessage (Wnd ,WM_GETTEXT, TextLength + 1, Integer(PChar(Buffer)));
 Result:= Buffer;
end;


 
DeBUGger13   (2007-11-27 18:29) [6]

Здесь всё ето есь:
http://delphiworld.narod.ru/base/other_windows.html
http://delphiworld.narod.ru/base/other_windows2.html
{Там ещё много полезного }



Страницы: 1 вся ветка

Текущий архив: 2008.07.27;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.006 c
15-1212916219
tesseract
2008-06-08 13:10
2008.07.27
eve-online А кто на форуме вообще играет, знаю что есть и много


2-1214387731
Aggressor
2008-06-25 13:55
2008.07.27
WinXP rus, WinXP eng и кириллица


15-1212841734
Поросенок Винни-Пух
2008-06-07 16:28
2008.07.27
как бы сделали вы?


2-1214227493
abhtr
2008-06-23 17:24
2008.07.27
ошибка: "Text exceeds memo capacity"


2-1213914116
dev
2008-06-20 02:21
2008.07.27
IdPOP3





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский