Verwenden der MediaInfo.DLL

[Garfield]

Delphi-Quellcode:

  function String_holen : String;
  begin
    Result := '';

    @MediaInfo_Info_Version  := NIL;
    @MediaInfo_Option        := NIL;
    lib := LoadLibrary(@szNameDLL[1]);
    if lib <> 0
    then try
      @MediaInfo_Info_Version := GetProcAddress(lib, @szNameMediaInfo_Info_Version[1]);
      if Assigned(MediaInfo_Info_Version)
      then Result := MediaInfo_Info_Version();

      if pos('MediaInfoLib', Result) > 0 then Exit;

      @MediaInfo_Option := GetProcAddress(lib, @szNameMediaInfo_Option[1]);
      if Assigned(MediaInfo_Option)
      then Result := MediaInfo_Option (0, 'Info_Version', '');
    except
    end;
  end;

Aus der Demo auf dieser Seite, welche Du auch gefunden hast.