指定したウィンドウに動画を再生するには？

解決

まきむら 2004-05-11 04:39:39 No: 8864

AVI.aviというファイルを自分で作成したForm1のX:300 Y:300 幅:200 高さ:200で再生したいのですが、下記のようにコードを書くと画面左上に新しく
ウィンドウが開かれその中のX:300 Y:300 幅:200 高さ:200に表示
されてしまっています。どのように直せばよいのでしょう？

var
  lngWindow: longint;
begin
  mciSendString(Pchar('open AVI.avi alias FILE1'),'',0,0);
  lngWindow := FindWindow('Form1','');
  mciSendString(PChar('window FILE1 handle ' + InttoStr(lngWindow)),'',0,0);
  mciSendString('put FILE1 destination at 300 300 200 200','',0,0);
  mciSendString('play FILE1 from 0','',0,0);
end;

jok 2004-05-11 05:26:35 No: 8865

> lngWindow := FindWindow('Form1','');

これが失敗してるんじゃないですか。
FindWinodw() の第一引数は、クラス名です。 'TForm1' なのでは？
それより、直接 lngWindow := Form1.Handle; にするとか。

まきむら 2004-05-11 19:17:05 No: 8866

回りくどいことをせず直接入れたら動きました。
mciSendString(PChar('window FILE1 handle ' + InttoStrForm1.Handle)),'',0,0);

ありがとうございました。

まきむら 2004-05-11 19:17:33 No: 8867

解決入れるのを忘れてました。