WinSpay konnte mir leider nicht helfen mit seinem Vorschalg
Delphi-Quellcode:
...
const APPCOMMAND_MEDIA_NEXTTRACK = $B0000;
APPCOMMAND_MEDIA_PREVIOUSTRACK = $C0000;
APPCOMMAND_MEDIA_STOP = $D0000;
APPCOMMAND_MEDIA_PLAY_PAUSE = $E0000;
implementation
{$R *.dfm}
{$R videos.res}
// das Video in Form1 suchen
procedure TForm1.Button4Click(Sender: TObject);
var
wnd: HWND;
begin
wnd := FindWindow('TForm1','Form1');
wnd := FindWindowEx(wnd, 0, 'TAnimate', nil);
if wnd <> 0 then
Sendmessage(wnd, WM_APPCOMMAND, 0, APPCOMMAND_MEDIA_PLAY_PAUSE)
else
ShowMessage('Nicht gefunden'); // diese Meldung wird nicht angezeigt. d.h. das Video wird gefunden aber kann man nicht steuern!!!
end;