wmplayer

[eraybucak1453]

Herkeze kolay gelsin..Yazılım konusunda daha cok yeniyim . bir sorum olucak .Aşagıda gordugunuz gıbı bir butonla wmplayer'ı hem açıyorum hem de prgramdaki 12 adlı şarkıyı çaılıyorum .. benım istediğim form'a bir EDİT koyup direk program çalışırken edite yazıp öyle wmplayer'i çalıştırmak.. yardımcı olusanız çok sevinirim .. teşekkürler...

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(handle,'open','c:\program files\Windows Media Player\wmplayer.exe','C:\Users\Eray\Desktop\12.FLV','',SW_SHOWNORMAL);
end;
end.

[SimaWB]

Edit1 adında bir Edit'i formuna koyduğunu varsayarsak:

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(handle,'open','c:\program files\Windows Media Player\wmplayer.exe', PWideChar(Edit1.Text) ,'',SW_SHOWNORMAL);//PWideChar yerine PChar olabilir. Delphi versiyonuna bağlı
end;

şeklinde kullanabilirsin.

Butona basıldığında OpenDialog ile istediğin dosyayı seçtirerek de yapabilirsin. OpenDialog'u araştırabilirsin.