Самое главное получаем name_wind и делаем с этим окном все что хочешь, можно растянуть свернуть, переместить послать нажатия клавишь и многое другое.
Запустить приложение
Найти дескриптор окна:ShellExecute(0, 'open', PChar('video4CarPC.exe'), nil, nil, SW_SHOW);
Например переместить на новые координаты:if findwindow(nil, 'video4CarPC') <> 0 then
begin
name_wind:=FindWindow(nil,'video4CarPC');
end else Form1.FormDestroy(nil);
Или вот так закрыть :MoveWindow(name_wind,0,0,800,500,true);
отправить нажатие клавиши :PostMessage(name_wind, WM_QUIT, 0, 0);
PostMessage(name_wind, WM_KEYDOWN, 39, 0);
sleep(30);
PostMessage(name_wind, WM_KEYUP, 39, 0);




Ответить с цитированием
