delphide mms yayın adres gizleme

[Caqatay]

mrb arkaslar delphide mms ten internet üzernden yayın yapn bi prgram yapmam gerekiyr.
fakat mms adresinin gözükmemesi o kadar önemli ki anlamatam yani çok önemli.
mss gözükmesin diye program içine koyuyorm fakat bu seferde ortadaki media plyere sağ tıklayıp özellikler denildiğinde mms adresi gözüküyor.
acaba mms i nasıl gizleyebiliriz ? veya ortadaki mediaplayerde sağ tıkı nasıl iptal ederiz.prgramı bu formdaki kodlrla hazrladım.kodlar aşagıdadr.programn projeside aşağıda yardımcı olun lütfen.

http://rapidshare.com/files/279671223/m ... ..rar.html
alternetif.
http://ul.to/8xapob

Kod: Tümünü seç

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, WMPLib_TLB, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  MediaPlayer : TWindowsMediaPlayer;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
// Mediaplayer 10 ve üzeri için geçerlidir...
  MediaPlayer := TWindowsMediaPlayer.Create(Self);
  MediaPlayer.Parent  := Panel1;
  MediaPlayer.Align   := alClient;
  MediaPlayer.Visible := False;
  MediaPlayer.UiMode  := 'none'; // Butonları vs. iptal ettik.
  Panel1.Width        := 200;
  Panel1.Height       := Panel1.Width div 4 * 3; // TV formatı (4/3) olduğundan...
end;


procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  MediaPlayer.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 If MediaPlayer.playState = 3 then begin
    MediaPlayer.close;
    MediaPlayer.Visible := False;
  end else begin
    MediaPlayer.URL := 'mms://89.149.209.110/rd-ligradyo';
    MediaPlayer.Visible := True;
    Button1.Enabled := False;
  end;
end;

end.

[/b]

[Caqatay]

aşağıdaki kodlar daha güzel bunda sağ tıkı saklama windows media playerde yada o form açıldıgında sağ tık hiç bir şekilde kullanılmasa prgram içnde nasıl olur hocalar yardmlarınz için teşekkrler şimdiden

Kod: Tümünü seç

uses
WMPLib_TLB

var
wmpMediaPlayer: TWindowsMediaPlayer

wmpMediaPlayer := TWindowsMediaPlayer.Create(Self);
wmpMediaPlayer.Parent := Self;
wmpMediaPlayer.Visible := True;
wmpMediaPlayer.Settings.AutoStart := False;
wmpMediaPlayer.URL := 'anymoviefile.mpg';
wmpMediaPlayer.Controls.play;


How ever when I call the fullscreen function

wmpMediaPlayer.FullScreen := True

[Caqatay]

yok mu yardım edebilecek ?

[Caqatay]

niçin kimse cevap yazmıyor yaa