Windows Média Player

[karinha]

// a sample managing a Delphi DLL from FiveWin!

#include "fivewin.ch"

FUNCTION Main()

LOCAL oWnd

DEFINE WINDOW oWnd TITLE "FiveWin - Delphi DLL connection"

@ 2, 2 SAY "Click me to run the CdPlayer"

ACTIVATE WINDOW oWnd ON CLICK CdPlay()


RETURN NIL

DLL FUNCTION CdPlay() AS VOID PASCAL LIB "cdplayer.dll"


Antonio, Porque Esto no Funciona Mas en 32 Bits?? O ke Hacer? Gracias, Saludos.

[Antonio Linares]

João,

cdplayer.dll es una DLL de 16 bits. Habría que conseguir la equivalente en 32 bits.

[karinha]

João,

cdplayer.dll es una DLL de 16 bits. Habría que conseguir la equivalente en 32 bits.

Gracias Antonio, Por Favor, donde Puedo Encuentrar CdPlayer.Dll Para 32 bits? O no és Posible?

[Antonio Linares]

João,

Puedes usar el OCX del Microsoft Media Player. Revisa el ejemplo samples\media.prg

[karinha]

João,

Puedes usar el OCX del Microsoft Media Player. Revisa el ejemplo samples\media.prg

Gracias Antonio, Pero no és lo ke jo kiero, asi, me trae el Windows Media Player Standard del Windows.

Jo kiero el Windows Media Player Completo. Mismo asi, Gracias.

Lo resolvi asi:


SEPARATOR
MENUITEM "CDPlay - Entretenimentos " ;
RESOURCE "COMPUTADOR" ;
ACTION( ( Click(), oTimer:DeActivate(), ;
WinExec("C:\Arquivos de Programas\Windows Media Player\wmplayer.exe" ) ), ;
oTimer:Activate() ) ;
MESSAGE ( "Chamar o Windows Media Player " ) + ;
( "Para Tocar Suas Musicas Favoritas e Videos." )

Gracias Por tu Atencion Antonio. Saludos.