по встраиванию в каждом мониторе и в каждом приложении есть свои нюансы, готового кода нет, делал на основе этого:
в начале надо прописать top. задать height
ShellExecute(Handle,'Open','C:\Program Files\Windows Media Player\wmplayer.exe',nil,nil,SW_SHOWNORMAL); //òâîé êîä
Sleep(1000);
SetWindowPos(FindWindow(nil, '..путь.. Windows Media'),HWND_BOTTOM, 0, 0,MainForm.Width, height, SWP_SHOWWINDOW);
SetWindowLong(FindWindow(nil, 'путь.. Windows Media'), GWL_STYLE, Save or WS_CAPTION or DS_MODALFRAME or WS_DLGFRAME);
|