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

Вниз

Как послать Сtrl+V приложению?   Найти похожие ветки 

 
FragMan   (2004-06-23 22:39) [0]

Не подскажите как программно послать приложению Microsoft Paint сочетание клавишь Сtrl+V ???

Желательно с примером! ПЛЗ!

Заранее благодарен


 
FragMan   (2004-06-23 22:46) [1]

Да! :) понимаю, что надо отправить определённому окну определённое сообщение с нажатием клавиши!

КАК это сделать?


 
FragMan   (2004-06-24 07:52) [2]

Мдааа ... информациии просто завались :)
Помощь так и прёт
Спасибо :)


 
Vac   (2004-06-24 12:56) [3]

Используй keybd_event и/или postmessage
в инете инфы полно, яндексом тебе никто не нанимался.


 
GrayFace ©   (2004-06-24 18:16) [4]

Кажется, есть WM_PASTE.


 
Ильичев С.А. ©   (2004-06-24 22:07) [5]

keybd_event(VK_CONTROL, 0, 0, 0);
keybd_event(VkKeyScan("v"), 0, 0, 0);
keybd_event(VkKeyScan("v"), 0, KEYEVENTF_KEYUP, 0);
keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0);


 
Ajax ©   (2004-06-24 22:10) [6]

Можно отловить окно программы которая нужна и выловленному hwnd послать wm_paste, но тут никакой гарантии - от программы зависит.

Нижеследующий код работает у меня везде (хотя гарантий тоже давать не буду)

procedure EmulatePaste;
begin
 keybd_event(VK_SHIFT,$2a,0,0);
 keybd_event(VK_INSERT,$52,KEYEVENTF_EXTENDEDKEY,0);
 keybd_event(VK_INSERT,$52,KEYEVENTF_KEYUP+KEYEVENTF_EXTENDEDKEY,0);
 keybd_event(VK_SHIFT,$2a,KEYEVENTF_KEYUP,0);
end;


 
FragMan   (2004-06-26 07:54) [7]

Хм... спасибо! Я понял! но приложению Paint как это сочетание клавишь отправить???


 
FragMan   (2004-06-26 08:44) [8]

Пишу вот такую команду:
SendMessage("", WM_PASTE, 0, 0);

а delphi соответственно ругается на "" эти ковычки! и пишет, что мол стринг и хэндл не совместимы... так вот вопрос!!!

как мне там в ковычках мона указать "Безымянный - Paint" ? чтобы ошибка не вылетала!


 
DillerXX ©   (2004-06-26 09:53) [9]

рррррррррр
Если уж на то пошло, так указывай не кавычки, а GetFocus...


 
FragMan   (2004-06-26 11:39) [10]

Ну что рррррррррррррр то??? я ж прошу рассказать как это чудо работает... сейчас попробую этот GetFocus


 
FragMan   (2004-06-26 12:07) [11]

Вот эти 2 предложения мне очень понравились, но только, как это всё ещё б приложению отправить!????

СПС: Ильичев С.А. ©   (24.06.04 22:07) [5]
keybd_event(VK_CONTROL, 0, 0, 0);
keybd_event(VkKeyScan("v"), 0, 0, 0);
keybd_event(VkKeyScan("v"), 0, KEYEVENTF_KEYUP, 0);
keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0);


СПС: Ajax ©   (24.06.04 22:10) [6]
procedure EmulatePaste;
begin
keybd_event(VK_SHIFT,$2a,0,0);
keybd_event(VK_INSERT,$52,KEYEVENTF_EXTENDEDKEY,0);
keybd_event(VK_INSERT,$52,KEYEVENTF_KEYUP+KEYEVENTF_EXTENDEDKEY,0);
keybd_event(VK_SHIFT,$2a,KEYEVENTF_KEYUP,0);
end;

ПЛИЗ!!! надо это в Paint ещё отправить!!!

SendMessage("", WM_PASTE, 0, 0);
эта команда не подходит...

GetFocus
тоже не тянет...

!!!!!!!!! Х Е Л П !!!!!!!!!

Хочу из своей программы передавать картинки в PAINT и там их редактировать!!!


 
n0name   (2004-06-26 12:12) [12]

SendMessage(FindWinow(), WM_PASTE, 0, 0)


 
KSergey ©   (2004-06-26 12:55) [13]

> n0name   (26.06.04 12:12) [12]

Ага, он скажет, что на пустые скобки компилятор ругается ;)
Инфы как послать сообщение окну другого приложения в инете - навалом. См. яндекс.



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

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

Наверх




Память: 0.47 MB
Время: 0.034 c
6-1086523457
lena19
2004-06-06 16:04
2004.08.08
установка и разрыв соединения


14-1090201971
Думкин
2004-07-19 05:52
2004.08.08
С днем рождения! 19 июля


14-1090416893
но найм
2004-07-21 17:34
2004.08.08
Конкурс !!!


1-1090593637
кш
2004-07-23 18:40
2004.08.08
мастера, помогите. про dialup-подключение


14-1090496435
Gorlum
2004-07-22 15:40
2004.08.08
Вот хочу купить Delphi.





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский