Cheerfully fulfilling all your special requests (and some more):
Code: Select all
...
'launch VLC-Player with remote control (align path if necessary)
CreateProcess(0,"C:\Programme\VideoVLC\vlc.exe --extraintf rc --qt-minimal-view --zoom=0.3",0,0,0,0,0,0,@siVLC,@pi)
Do 'wait till rc-window is opened
Sleep 1
Loop Until FindWindow(0,"Window")
hWndRC = FindWindow(0,"Window") 'memorize window handle
Do 'wait, till VLC-Player is running
hWndVLC = FindWindow(0,"VLC media player")
Sleep 1
Loop Until IsWindowVisible(hWndVLC)
Dim As UInteger windowstyle = GetWindowLong(hWndVLC,GWL_STYLE)
windowstyle And= -1 And WS_DLGFRAME 'remove title bar
SetWindowLong(hWndVLC,GWL_STYLE,windowstyle)
'place VLC beneath console window
GetWindowPlacement(hWndVLC,@wpVLC)
...
With the --zoom - option you can smooth resize the video.
If you want a complete list of all available VLC-options (there are hundreds of them) just type "VLC --longhelp --advanced" at the command line. VLC will create a file named vlc-help.txt you can view with notepad.