[Electronic_Arts]

Ребята всем добрый вечер - помогите разобраться..
надо получить доступ к параметрам компонента ShockwaveFlash в чужом окне...дело в том что Хендл окна и компонента я получил - но как можно используя хендл - получить доступ к параметрам компонента
а точнее надо получить доступ к процедуре PLAY и STOP

Код:

ShockwaveFlash1.PLAY;
ShockwaveFlash1.STOP;

как это можно реализовать??

[M.A.D.M.A.N.]

Через сообщения.

[Electronic_Arts]

А поподробнее - какое сообщение отправить к компоненту?

[angvelem]

SendMessage, PostMessage.

[Electronic_Arts]

...да я это знаю - но с какими параметрами? - какие параметры отвечают за PLAY и STOP?

[M.A.D.M.A.N.]

Свои константы для сообщений определяешь, при отлове, сверяешься с ними, если WM_SOOBSHENIE_PLAY то запускаешь на проигрывание (я так понимаю оба приложения самописные?).

[Electronic_Arts]

нет программа где надо сделать изменения - не моя - но написали его тоже на Delphi...

[M.A.D.M.A.N.]

Есть один метод, но он довольно таки хитрожопый.

[Electronic_Arts]

тут дело на самом деле жудковатый - потому что у компонента отключена параметр которая отвечает за показ меню при правом клике на нем

- через редактор ресурсов изменил параметры

Код:

Menu = False
    EmbedMovie = False

на

Код:

Menu = True
    EmbedMovie = True

но не прокатило - по моему программа еще и при запуске - отключает эти функции...так что надо написать то что поможет остановить видео и продолжит

[Electronic_Arts]

...не у кого нету идей по поводу моей задачи?

[Electronic_Arts]

...вот что я сделал

Код:

var
h, z : hwnd;
findmenu: hmenu;
id:integer;
begin
h:= findwindows('TForm4', nil);
z:= findwindowsex(h, 0, 'MacromediaFlashPlayerActiveX', nil);
if findwindowsex(h, 0, 'MacromediaFlashPlayerActiveX', nil) <> 0 then
begin
windows.setforegroundwindow(h);
findmenu:= getmenu(z);
id:= getmenuitemcount(findmenu); // -1
...
...
...
end;

дело в том что ID получает -1 значит оно не видит меню компонента MacromediaFlashPlayerActiveX...или я что то не так делаю??

[angvelem]

Первое, зачем дублировать код?

Сообщение от Electronic_Arts

Код:

z:= findwindowsex(h, 0, 'MacromediaFlashPlayerActiveX', nil);
if findwindowsex(h, 0, 'MacromediaFlashPlayerActiveX', nil) <> 0 then

Второе, разговор шёл о чужом окне. Здесь поиск идёт на форме. Зачем?

[poli-smen]

Сообщение от angvelem

Второе, разговор шёл о чужом окне. Здесь поиск идёт на форме. Зачем?

Видимо 'TForm4' это и есть имя класса окна чужого приложения.

Сообщение от Electronic_Arts

нет программа где надо сделать изменения - не моя - но написали его тоже на Delphi...

И как я понимаю исходников чужого приложения нет?

Похоже что в том чужом приложении используются компоненты F-IN-BOX

[Electronic_Arts]

Сообщение от angvelem

Первое, зачем дублировать код?

...упс - ссори

Сообщение от angvelem

Второе, разговор шёл о чужом окне. Здесь поиск идёт на форме. Зачем?

poli-smen прав это и есть имя класса окна чужого приложения - я же говорил что чужую прогу тоже на Delphi написали...

Сообщение от poli-smen

И как я понимаю исходников чужого приложения нет?
Похоже что в том чужом приложении используются компоненты F-IN-BOX

Исходников - конечно нету...эта не моя программа - если бы были исходники сам бы давно разобрался что к чему...

[angvelem]

Сообщение от Electronic_Arts

дело в том что ID получает -1 значит оно не видит меню компонента MacromediaFlashPlayerActiveX...или я что то не так делаю??

В таком случае нужно искать меню от z, а не h. Но и это ничего не даст, справка же чётко сообщает:

If the window is a child window, the return value is undefined.
Если окно дочернее, результат неопределён.