关于使用PasLibVlc进行媒体播放的简单处理技巧

穷，没币了，发布个文章讨点儿币吧。

PasLibVlc是Pascal语言编写的一组媒体播放器开源控件，适应于Delphi和Lazarus版本，有关该控件的详细信息，请参考：PasLibVlc - VideoLAN player inside Delphi, Lazarus, FreePascal application

PasLibVlc所使用的是开源的VideoLan媒体播放库，该库的相关信息为：

Index of /videolan/

下面说说我遇到的一个小问题，就是直接打包成绿色软件时无法播放的问题，该问题出现在PasLibVlcUnit.pas文件中，具体处理方法为：

找到下述代码：

procedure libvlc_dynamic_dll_init();
begin
  if (libvlc_handle <> 0) then exit;
  libvlc_dynamic_dll_init_with_path(libvlc_get_install_path());
end;

替换为：

var
  UserDefLibVlcPath: string;

procedure libvlc_user_def_vlc_path(APath: string);
begin
  UserDefLibVlcPath := APath;