проблемы с GetProcAddress

[waryg]

h:=findwindow(nil,'Project1');
new(procidz);
pr:=procidz;
getwindowthreadprocessid(h,pr);
procid:=procidz^;
dispose(procidz);
hprocess:=openprocess(process_all_access,true,procid);
z:=getlasterror;
if z<> 0 then
showmessage('openprocess failed: '+syserrormessage(z));
showmessage('processid = '+inttostr(hprocess));
pll:=GetProcAddress(GetModuleHandle('Project1.exe'),'TForm1.ExecApp');
z:=getlasterror;
if z<> 0 then
showmessage('Ошибка: '+syserrormessage(z));

Вот фрагмент кода, который должен выхватывать адрес процедуры. Только начал разбираться с этим, поэтому тестирую файл на сам себе (Project1 запускает сам себя), все открывается, но в конце выходит ошибка : указанная процедура не найдена, хотя такая процедура там есть. Пробовал по разному писать ничего не выходит. Не знаю, стоит ли остальной код приводить, там вроде все как надо.

[Stilet]

Смотри внимательно:

The GetProcAddress function returns the address of the specified exported dynamic-link library (DLL) function.

А у тебя эта процедура - метод. Понятно что он ее не находит, она то на экспорт не обьявлена.

[waryg]

Тогда, что делать если мне надо вызвать событие в сторонней уже готовой программе, эту программу редачить и перекомпилировать нельзя (по крайней мере не стоит), но мне известно имя необходимой мне процедуры? Вряд ли она там стоит на экспорт. Есть ли возможность как-то таки эту процедуру вызвать?

[Stilet]

Ну в целом можно просто узнать в отладчике адрес этой процедуры, вполне возможно что загрузчик ее будет грузить по одному и тому же адресу, и собственно из другой программы пытаться по этому адресу из чужого процесса вызвать что-то, только это ИМХО геморройно, да и не стабильно.
Ты лучше опиши ситуацию подробнее зачем именно так, может быть другие пути есть попроще.

[waryg]

Есть программа довольно большая и сложная, исходных кодов у меня нет, но знаю что на делфе. Она шлет запрос в базу данных либо по таймеру (примерно раз в минуту - две), либо по требованию. Нужно написать отдельный скрипт, который принудительно бы отправлял этот запрос (нужна практически секундная точность) по конкретному макросу.Я ее дизассемблировал, вроде функцию отвечающую за посылку запроса нашел, знаю ее имя и RVA - адрес.