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

解決

まきむら 2004-05-10 19:39:39 No: 8864 IP: 192.*.*.*

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-10 20:26:35 No: 8865 IP: 192.*.*.*

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

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

編集削除

まきむら 2004-05-11 10:17:05 No: 8866 IP: 192.*.*.*

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

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

編集削除

まきむら 2004-05-11 10:17:33 No: 8867 IP: 192.*.*.*

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

編集削除