Discussion :

[Bily.sdi]

Bonjour,

Comment lancer une video mais en mode plein de ecran ??

Genre : WindowsMediaPlayer1->fullscreen = true

je ne trouve pas cette proprieté sous c++ builder ?

Merci

[ShaiLeTroll]

Respecte Bien la casse fullScreen, en Delphi sur le TWindowsMediaPlayer cette propriété existe !
Sache que tu peux réimporter la TLB cela peut dépendre de la version installée sur ton PC

[cedni]

Salut
Sous bcb6 et xp

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 
HWND TaskBar;
TaskBar = FindWindow("Shell_TrayWnd",NULL);
ShowWindow(TaskBar,SW_HIDE);
OpenDialog1->Execute();
WindowsMediaPlayer1->URL=OpenDialog1->FileName;
Form1->BorderStyle=bsNone;
WindowsMediaPlayer1->controls->play();
WindowsMediaPlayer1->SetBounds(0,0,Screen->Width,Screen->Height) ;
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::WindowsMediaPlayer1DoubleClick(TObject *Sender,
      short nButton, short nShiftState, long fX, long fY)
{
Application->Terminate();
HWND TaskBar;
TaskBar = FindWindow("Shell_TrayWnd",NULL);
ShowWindow(TaskBar,SW_SHOW);
}