IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите 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";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
klem4
сообщение 12.08.2005 10:10
Сообщение #2


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";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Malice
сообщение 12.08.2005 11:23
Сообщение #3


Профи
****

Группа: Пользователи
Сообщений: 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))); 


Это для синтаксиса, дальше не проверял smile.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 14.07.2025 16:01
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"