Co takhle :
  • uses bsp;

    procedure TForm1.Button1Click(Sender: TObject);
    var
    bsp_hand : THandle;
    cds:TCOPYDATASTRUCT;
    begin
    bsp_hand := FindWindow('BSPlayer',nil);

    cds.dwData:=BSP_OpenFile;
    cds.lpData:=Pchar('c:\film.avi');
    cds.cbData:=strlen(cds.lpData)+1;
    SendMessage(bsp_hand,WM_COPYDATA,0,lParam(@cds));
    SendMessage(bsp_hand,WM_BSP_CMD,BSP_Play,0);
    end;