Einzelnen Beitrag anzeigen

Benutzerbild von ste_ett
ste_ett

Registriert seit: 10. Sep 2004
Ort: Dülmen
464 Beiträge
 
Delphi 7 Professional
 
#18

Re: Filme auf dem Desktop sehen!

  Alt 14. Sep 2006, 17:35
Mit GetDC(0) bekommst du den Device Contest des Desktops.
Das brauchst du, um auf dem Desktop zu zeichnen (BitBlt(), StrechBlt, TransparentBlt(), etc.)

Desktop-Fenster-Handle bekommst du mit GetDesktopWindow().
Per GetWindowRect() weisst du auch wie groß der Desktop ist, wenn du ein Video skalieren möchtest.

Ein Video auf den Desktop zu malen ist gar nicht so schwer.
Mit der TMediaPlayer-Komponente kann man ein Viedo wiedergeben.
Unter TMediaPlayer.Display kann man einstellen, wohin das Video ausgegeben werden soll, z.B. ein Formular, oder eine Komponenten auf einem Formular (z.B. ein Panel).

Per BitBlt() zeichnet man dann das Bild der Komponente auf den Desktop.
Per GetWindowDC(Panel1.Handle) holt man sich das DC für das Panel.

Bsp.:

Delphi-Quellcode:
if (BitBlt(DesktopDC, 0, 0, Panel1.Width, Panel1.Height, PanelDC, 0, 0, SRCCOPY)) then
begin
...
end;
Stefan
"Geht nicht!" ist keine Fehlerbeschreibung und "Hab ich schon versucht!" keine Antwort!

Hey, it compiles! Ship it!
  Mit Zitat antworten Zitat