Component Olarak WMP Ekliyoruz. Project1. Bpr Kodları ; Kod: <?xml version="1.0" encoding="utf-8"?> <!-- C++Builder XML Project --> <PROJECT> <MACROS> <VERSION value="BCB.06.00"/> <PROJECT value="Project1. exe"/> <OBJFILES value="Project1. obj Form1. obj TL. files\WMPLib_TLB. obj"/> <RESFILES value="Project1. res"/> <IDLFILES value=""/> <IDLGENFILES value=""/> <DEFFILE value=""/> <RESDEPEN value="$ Form1. dfm"/> <LIBFILES value=""/> <LIBRARIES value=""/> <SPARELIBS value="vcl. lib rtl. lib"/> <PACKAGES value="vcl. bpi rtl. bpi dbrtl. bpi adortl. bpi vcldb. bpi vclx. bpi bdertl. bpi vcldbx. bpi ibxpress. bpi dsnap. bpi cds. bpi bdecds. bpi qrpt. bpi teeui. bpi teedb. bpi tee. bpi dss. bpi teeqr. bpi visualclx. bpi visualdbclx. bpi dsnapcrba. bpi dsnapcon. bpi bcbsmp. bpi vclie. bpi xmlrtl. bpi inet. bpi inetdbbde. bpi inetdbxpress. bpi inetdb. bpi nmfast. bpi webdsnap. bpi bcbie. bpi websnap. bpi soaprtl. bpi dclocx. bpi dbexpress. bpi dbxcds. bpi indy. bpi bcb2kaxserver. bpi"/> <PATHCPP value=".;"/> <PATHPAS value=".;"/> <PATHRC value=".;"/> <PATHASM value=".;"/> <DEBUGLIBPATH value="$ \lib\debug"/> <RELEASELIBPATH value="$ \lib\release"/> <LINKER value="ilink32"/> <USERDEFINES value="_DEBUG;VBtoBuilder=true"/> <SYSDEFINES value="_RTLDLL;NO_STRICT;USEPACKAGES"/> <MAINSOURCE value="Project1. cpp"/> <INCLUDEPATH value="$ \include;$ \include\vcl"/> <LIBPATH value="$ \lib\obj;$ \lib"/> <WARNINGS value="-w-par"/> <OTHERFILES value=""/> </MACROS> <OPTIONS> <IDLCFLAGS value="-I$ \include -I$ \include\vcl -src_suffix cpp -D_DEBUG -boa"/> <CFLAG1 value="-Od -H=$ \lib\vcl60. csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -c -tW -tWM"/> <PFLAGS value="-$YD -$W -$O- -$A8 -v -JPHNE -M"/> <RFLAGS value=""/> <AFLAGS value="/mx /w2 /zd"/> <LFLAGS value="-D&quot;&quot; -aa -Tpe -x -Gn -v"/> <OTHERFILES value=""/> </OPTIONS> <LINKER> <ALLOBJ value="c0w32. obj $ Memmgr. Lib sysinit. obj $ "/> <ALLRES value="$ "/> <ALLLIB value="$ $ import32. lib cp32mti. lib"/> <OTHERFILES value=""/> </LINKER> <FILELIST> <FILE FILENAME="Project1. res" FORMNAME="" UNITNAME="Project1. res" CONTAINERID="ResTool" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="Project1. cpp" FORMNAME="" UNITNAME="Project1" CONTAINERID="CCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="Form1. cpp" FORMNAME="Form1" UNITNAME="Form1" CONTAINERID="CCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="TL. files\WMPLib_TLB. cpp" FORMNAME="" UNITNAME="TL. files\WMPLib_TLB" CONTAINERID="CCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> </FILELIST> <BUILDTOOLS> </BUILDTOOLS> <IDEOPTIONS> IncludeVerInfo=0 AutoIncBuild=0 MajorVer=1 MinorVer=0 Release=0 Build=0 Debug=0 PreRelease=0 Special=0 Private=0 DLL=0 Locale=1049 CodePage=1252 CompanyName= FileDescription= FileVersion=1.0.0.0 InternalName= LegalCopyright= LegalTrademarks= OriginalFilename= ProductName= ProductVersion=1.0.0.0 Comments= DebugSourceDirs=$ \source\vcl RunParams= Launcher= UseLauncher=0 DebugCWD= HostApplication= RemoteHost= RemotePath= RemoteLauncher= RemoteCWD= RemoteDebug=0 ShowInfoMsgs=0 LinkDebugVcl=0 LinkCGLIB=0 AddServerUnit=1 AddClientUnit=1 PrecompiledHeaders=1 ActiveLang= ProjectLang= RootDir= </IDEOPTIONS> </PROJECT> Form1. FRM Kodları ; Kod: object Form1: TForm1 OnCreate = FormCreate Left = 0 Top = 0 ClientWidth = 344 ClientHeight = 180 Caption = 'Suk1y3n TV Programı C++' BorderStyle = bsSingle Position = poDefaultPosOnly BorderIcons = object WindowsMediaPlayer1Rect: TShape Left = 8 Top = 8 Width = 195 Height = 163 Brush. Color = clGray Brush. Style = bsDiagCross Pen. Color = clMaroon Pen. Width = 1 Visible = False end object Command1: TButton Left = 218 Top = 146 Width = 114 Height = 25 Caption = 'Çıkış' TabOrder = 1 OnClick = Command1Click end object Command2: TButton Left = 218 Top = 8 Width = 114 Height = 25 Caption = 'TRT 1' TabOrder = 2 OnClick = Command2Click end end Form1. Cpp Kodları ; Kod: // #include <vcl. h> #pragma hdrstop #include "Form1. h" //-- By Suk1y3n -- \\ #pragma package #pragma resource " . dfm" TForm1 Form1; //-- By Suk1y3n -- \\ fastcall TForm1::TForm1 : TForm //-- By Suk1y3n -- \\ void fastcall TForm1::Command1Click void fastcall TForm1::Command2Click void fastcall TForm1::FormCreate //-- By Suk1y3n -- \\ Form1. h Kodları ; Kod: #ifndef m_Form1H #define m_Form1H //-- By Suk1y3n -- \\ #include <Classes. hpp> #include <Controls. hpp> #include <StdCtrls. hpp> #include <Forms. hpp> #include <ComCtrls. hpp> #include <CheckLst. hpp> #include <FileCtrl. hpp> #include <ExtCtrls. hpp> #include "TL. files\WMPLib_TLB" //-- By Suk1y3n -- \\ class TForm1 : public TForm ; //-- By Suk1y3n -- \\ extern PACKAGE TForm1 Form1; //-- By Suk1y3n -- \\ #endif Ve Sonuç! Yapamıyan Olursa Söylesin Projeyi Upload Ederim, Kolay Gelsin