Попал я в засаду.
Есть некая приблуда.
Действует так. Загружает файло собственного формата в Excel, при этом одновременно грузится куча надстроек.

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

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

Что я смог сделать.
1. Открываю файло
2. Запускаю обработчик

Теперь мне надо отловить окончание процесса обработки, появление модальной формы и ее закрытие

Приближенная модель

implementation

{$R *.dfm}
var EA : OLEVariant;
Hwnd : Integer;

procedure TForm1.FormCreate(Sender: TObject);
begin

Timer1.Enabled:=true; {
запускаю таймер. В данном случае это не нужно, но в реальности надо ловить момент, когда приблуда загрузила файло
}

try
EA:=GetActiveOleObject('Excel.Application');
except
EA:=CreateOleObject('Excel.Application');
end;

EA.Workbooks.Open('test.xls');
EA.visible:=true;
EA.DisplayFullScreen:=True; //Не помню, как тама правильно перерисовывать область
EA.DisplayFullScreen:=false; //использую этот метод
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin

try //Жду, пока файло откроется
if pos('test',EA.ActiveWorkBook.Name)<> 0 then
begin
Timer1.Enabled:=false;
Hwnd:=EA.Hwnd; //получаю дескриптор окна
BringWindowToTop(Hwnd);
EA.Run('fopen'); //иммитирую действие и открытие модального

ТУТА НАДО НАЧИНАТЬ ЛОВИТЬ ОКОНЧАНИЕ ОБРАБОТКИ

end;
except
end;
end;

end.

alex_k. Правильно (вроде).
Т.е. ты предлагаешь в цикле ловить появление окна нужным с текстом и иммитировать нажатие кнопки?

Несколько функций без параметров.
Насколько я понял, это действительно COM.
========
С циклом - облом
...
EA.Run('fopen'); //тут моя прога останавливается, и до получения хандлера не доходит
HWND:=FindWindow(lpClassName,lpWindowName);
Label1.Caption:=lpClassName;
Label2.Caption:=lpWindowName;
Form1.Repaint;
...

Моя форма ждет, пока я закрою модальну форму в экселе.

dumpbin /exports my.dll
не проходит. Ругается, что нет mspdb60.dll.

Народ, как думаете, поможет запуcкать Excel и проверку на наличие формы в разных потоках? Не помню, как потоки делаются, до завтра не разберусь.

Код экселя мне недоступен - защита. Можно снять, но файлов - тысячи. Я как-нибудь в ПТ расскажу про эту хрень и уродов, которые это придумали

Ноль. Коллективно сделали из макросом из Accessa, типа он сам асинхронные потоки создает, но время задержки подбирается экспериментально для каждого компа. Правда, хоть оператору не надо торкаться.
==============
Но я не сдаюсь. Я это уделаю.

Nickolay. Дык я тоже к этому склоняюсь. Сделаю две проги, одна пусть файлы грузит, а другая ей на кнопки нажимает.

Я вот не пойму только, почему у меня через потоки не получилось. Слаб я в системных штучках-дрючка.

Сделал на двух прогах. Во второй по таймеру проверятся наличие модальной формы в Excele.
FindWIndow не смог заставить работать - не въехал, что там в WindowName писать надо. Заголовок окна не прокатил.

Выкрутился по другому.


procedure TForm1.Timer1Timer(Sender: TObject);
var lpClassName, lpWindowName : Pchar;
begin

try EA:=GetActiveOleObject('Excel.Application'); except exit end;
try HWNDExcel:=EA.Hwnd; except end;

new(lpWindowName); new(lpClassName);

GetClassName(HWNDExcel,lpClassName,100);

HWNDForm:=GetLastActivePopup(HWNDExcel); //получаю хандлер

if HWNDExcel<>HWNDForm then
begin
GetWindowText(HWNDForm,lpWindowName,100);

if lpWindowName='UserForm1' then //если это нужная форма
begin
SendMessage(HWNDForm, WM_KEYDOWN, VK_RETURN, 1); //нифига не посылает.
//SendMessage(HWNDForm, WM_close, 0, 0); //А вот так закрывает. Но мне этого не нужно
end;
end
end;
========
Черт, может еще хандлер кнопки иcкать надо?

Да... А ларчик просто открывался

procedure TLogoAppForm.Timer1Timer(Sender: TObject);
var lpClassName, lpWindowName : Pchar;
begin

try EA:=GetActiveOleObject('Excel.Application'); except exit end;

try HWNDExcel:=EA.Hwnd; except end;
new(lpWindowName); new(lpClassName);
GetClassName(HWNDExcel,lpClassName,100);
HWNDForm:=GetLastActivePopup(HWNDExcel);

if HWNDExcel<>HWNDForm then
begin
GetWindowText(HWNDForm,lpWindowName,100);

if lpWindowName='UserForm1' then
EA.Application.SendKeys('~');
end

end;