 Запуск программы из-под Делфи |
ВНИМАНИЕ!
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
  |
| klem4 |
 12.08.2005 9:14
Сообщение
#1
|
 Perl. Just code it!  Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация:  44   |
Подскажите в каком направлении мне копать в DRKB, не могу найти, нужно написать программу, которая будет запускать win32 приложение и на ЕГО форме нужно нажать кнопку.
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
   |
 
|
| klem4 |
12.08.2005 9:24
Сообщение
#2
|
|
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Нашел в DRKB
Цитата Как эмулировать нажатия клавиш в другой программе Какой кошмар  Буду разбираться.-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
| klem4 |
12.08.2005 10:10
Сообщение
#3
|
|
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Модуль не компилируется, выдает множество ошибок, взгляните пожалуйста.
такое впечатление что там синтаксические ошибки тоже присутствуют ... Сообщение отредактировано: klem4 - 12.08.2005 10:12 Прикрепленные файлы 
sndkey32.pas ( 13.53 килобайт )
Кол-во скачиваний: 301-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
| Malice |
12.08.2005 11:23
Сообщение
#4
|
 Профи Группа: Пользователи Сообщений: 705 Пол: Мужской Репутация: 20 |
Цитата(klem4 @ 12.08.05 10:10) Модуль не компилируется, выдает множество ошибок, взгляните пожалуйста. такое впечатление что там синтаксические ошибки тоже присутствуют ... Строка №357: While (I
на While (i<l) do begin
Строка №478: if (WindowHandle=0) then EnumWindows(@EnumWindowsProc,Intege (PChar(WindowName)));
на if (WindowHandle=0) then EnumWindows(@EnumWindowsProc,IntegeR (PChar(WindowName)));
Это для синтаксиса, дальше не проверял |
|
|
|
| volvo |
12.08.2005 12:53
Сообщение
#5
|
|
Гость |
klem4, а вот так не проще:
Var
TheWindowHandle, hw:HWND;
...
{ Здесь запускаешь программу... }
TheWindowHandle := FindWindow(nil, 'заголовок твоей программы');
If TheWindowHandle <> 0 Then Begin { если окно найдено }
{ ищешь кнопку }
hw := FindWindowEx(TheWindowHandle,0,nil, Pchar('название кнопки'));
SendMessage(hw, BM_CLICK, 0, 0); { и нажимаешь ее }
End
? |
|
|
|
| klem4 |
12.08.2005 14:02
Сообщение
#6
|
|
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Спасибо большое!!! Все получилось
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 23.07.2025 13:38 |