WindowsMediaPlayer de parca adını ve yolunu gösterme

procedure TForm1.Button1Click(Sender: TObject);
var
SelectedItemsCount : Integer;
Res : Integer;
IntArr : array[0..1] of Integer;
Buffer : array[0..144] of Char;
begin
// otherwise we will get LB_ERR
ListBox1.MultiSelect := True;
// get how many items are selected
selectedItemsCount := SendMessage(ListBox1.Handle, LB_GETSELCOUNT, 0, 0);
if selectedItemsCount <> LB_ERR then
ShowMessage(IntToStr(selectedItemsCount) + ' selected items');
// get selected items - index starts from 0
Res := SendMessage(ListBox1.Handle, LB_GETSELITEMS, 1, Integer(@IntArr[0]));
if Res <> LB_ERR then
ShowMessage('Selected item ' + IntToStr(IntArr[0]));
// get the item text
SendMessage(ListBox1.Handle, LB_GETTEXT, IntArr[0], lParam(@Buffer));
ShowMessage(Buffer);
// THE SELECTED ITEM TEXT is in BUFFER
end;