"Сторонний exe" вывести в форме нельзя. Можно вывести окно с помощью FindFindow и SetParent.
Доброго всем дня.
Пытаюсь прикрепить к панели формы "стороннее приложение", используя скрипт:
h := 0;
Max := 20;
Repeat
Sleep(100);
h := FindWindow('', 'ip_player'); // поиск окна стороннего приложения
Dec(Max);
until (h <> 0) or (Max = 0);
// перемещение плеера в форму
if h <> 0 then
begin
SetParent(h, main.Panel1.Handle); // прикрепляю к форме
SetWindowPos( h, 0, -8, -29, 821, 645, 0); // set position x=10, y=10 SWP_NOSIZE
Application.ProcessMessages;
showmessage('прикрепил'+inttostr(h)); // тестовое сообщение для проверки
end else showmessage('плеер не найден');
Не на всех компьютерах происходит прикрепление окна приложения к форме с первого раза, хотя скрипт окно находит, так как сообщение 'прикрепил'+хэндл выводится. Если скрипт выполнить повторно, окно к панели формы прикрепляется. Что не так с кодом?
PS: не смог встроенной функцией медиаплеера вывести RSTP поток с IP камеры, поэтому пришлось написать на Delphi приложение - плеер, может кто подскажет, можно ли встроенными функциями MVD вывести поток?