进销存软件版1楼: 独立安装NCTWMAFile2 ActiveX DLL后使用提示，‘类没有注册’，怎么回事啊！
如果安装AudioStudio软件使用NCTWMAFile2 ActiveX DLL就没有问题。

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleServer, NCTWMAFILE2Lib_TLB;

type
TForm1 = class(TForm)
OpenDialog1: TOpenDialog;
btnOpenFile: TButton;
ListBox1: TListBox;
WMAFileInformation21: TWMAFileInformation2;
infoTitle: TEdit;
infoArtist: TEdit;
infoAlbum: TEdit;
infoYear: TEdit;
infoComments: TEdit;
infoTrack: TEdit;
infoGenre: TEdit;
infoComposer: TEdit;
infoCopyright: TEdit;
infoURL: TEdit;
btnSaveTag: TButton;
EDFilePath: TEdit;
L1: TLabel;
L2: TLabel;
L3: TLabel;
L4: TLabel;
L5: TLabel;
L6: TLabel;
L7: TLabel;
L8: TLabel;
L9: TLabel;
L10: TLabel;
L11: TLabel;
procedure btnOpenFileClick(Sender: TObject);
procedure btnSaveTagClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnOpenFileClick(Sender: TObject);
begin
if not OpenDialog1.Execute then exit;
ListBox1.Items.Clear;
EDFilePath.Text:=OpenDialog1.FileName;
WMAFileInformation21.GetAudioInformation(OpenDialog1.FileName);
infoTitle.Text:=WMAFileInformation21.infoTitle;
infoArtist.Text:=WMAFileInformation21.infoArtist;
infoAlbum.Text:=WMAFileInformation21.infoAlbum;
infoYear.Text:=WMAFileInformation21.infoYear;
infoComments.Text:=WMAFileInformation21.infoComments;
infoTrack.Text:=WMAFileInformation21.infoTrack;
infoComposer.Text:=WMAFileInformation21.infoComposer;
infoGenre.Text:=WMAFileInformation21.infoGenre;
infoCopyright.Text:=WMAFileInformation21.infoCopyright;
infoURL.Text:=WMAFileInformation21.infoURL;
{----------------------------------------------------------------------------}
ListBox1.Items.Add(＇＇ 时间： ＇＇+FormatFloat(＇＇0.0＇＇, WMAFileInformation21.Duration));
ListBox1.Items.Add(＇＇ 长度： ＇＇+IntToStr(WMAFileInformation21.Size)+＇＇ 字节＇＇);
ListBox1.Items.Add(＇＇采样率： ＇＇+IntToStr(WMAFileInformation21.Frequency)+＇＇ Hz＇＇);
ListBox1.Items.Add(＇＇比特率： ＇＇+IntToStr(WMAFileInformation21.Bitrate)+＇＇ Kbps＇＇);
ListBox1.Items.Add(＇＇ 码率： ＇＇+IntToStr(WMAFileInformation21.BitsPerSample)+＇＇ bit＇＇);
ListBox1.Items.Add(＇＇ 声道： ＇＇+IntToStr(WMAFileInformation21.Channels));
ListBox1.Items.Add(＇＇ 编码： ＇＇+WMAFileInformation21.infoEncodedBy);
ListBox1.Items.Add(＇＇ 原创： ＇＇+WMAFileInformation21.infoOriginalArtist);
ListBox1.Items.Add(WMAFileInformation21.FormatString);
end;

procedure TForm1.btnSaveTagClick(Sender: TObject);
begin
WMAFileInformation21.infoTitle:=infoTitle.Text;
WMAFileInformation21.infoArtist:=infoArtist.Text;
WMAFileInformation21.infoAlbum:=infoAlbum.Text;
WMAFileInformation21.infoYear:=infoYear.Text;
WMAFileInformation21.infoComments:=infoComments.Text;
WMAFileInformation21.infoTrack:=infoTrack.Text;
WMAFileInformation21.infoComposer:=infoComposer.Text;
WMAFileInformation21.infoGenre:=infoGenre.Text;
WMAFileInformation21.infoCopyright:=infoCopyright.Text;
WMAFileInformation21.infoURL:=infoURL.Text;

WMAFileInformation21.SetAudioInformation(EDFilePath.Text);
end;

end.

2楼: 没有人回答，分收回，留做它用。其它人不用回答了，谢谢！ 如用友财务软件u8

3楼: 领这个帖子的分：
http://www.delphibbs.com/delphibbs/dispq.asp？lid=3403804

4楼: 谢谢！

5楼: to liuchong
你有没有QQ啊！
我QQ：13335085

6楼: QQ:10040231