Jak spustit wmv – Delphi – Fórum – Programujte.com

Ahoj. Jak můžu v mém programu (např.po stlačení tlačítka) spustit video, které je v souboru wmv ? Mám pouze Delphi 6. Možná spíše spustit nějaký přehrávač a jako parametr mu zaslat název souboru ? Jak na to ?

Díky.

Následující kód otevře de-facto jakýkoli soubor výchozím přidruženým programem (v tomto případě výchozím přehrávačem *.wmv souborů)

uses
  ShellAPI;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (ShellExecute(Handle, nil, PChar('d:\video.wmv'), nil, nil, SW_SHOWNORMAL) <= 32)
  then
    ShowMessage('Opening a video file failed!');
end;