象 qq影音,暴风影音,kmplayer 这类的软件,安装之后,windows 自带的播放器还是放不了,说明那些软件的目录下的 .ax 文件没有注册进系统,这是怎么实现的?
解决方案 »
- Delphi7 中使用JSON.pas
- 安装文件
- 几个小问题
- 在DELPHI怎样发送消息给局域网其他用户,象在CMD 下的 NET SEND XXX XXXX那样????
- DBEdit的字段为数字型,如何让它居左显示?
- 痛哭的人:关于ado主从表的头痛问题...若解决,另奉200分!
- 还请大家多多帮助!我在使用ADO的时候,使用datamodule出错,但在每个窗体中使用ADO没问题,为什么?
- SPCOMM 在第一次接收数据时第一位数据丢失 是什么问题啊
- 谁有winsock的例子
- 为什么会出现Lock file has grown too large!的错误提示?????
- does not return a result set
- 关于基于 delphi 工作流程引擎的讨论贴。。
function lwGetClassObject(hLib : HMODULE; const CLSID,IID : TGUID; var obj) : HRESULT;var
lpDllGetClassObject : function(const CLSID, IID: TGUID; var Obj): HResult; stdcall;
pcf : IClassFactory;
begin
Result := E_FAIL;
if (hLib = 0) then
Exit; lpDllGetClassObject := GetProcAddress(hLib, 'DllGetClassObject');
Result := lpDllGetClassObject(CLSID, IClassFactory, pcf); if pcf = nil then
Exit; Result := pcf.CreateInstance(nil, IID, obj);
if Pointer(obj) = nil then
Result := E_FAIL; pcf := nil;
end; //use
hr := lwGetClassObject(LoadLibrary('CL264dec.ax'),
CLISD_CL264Decoder,
IID_IBaseFilter,
pCL264Decoder); //IGraphBuilder.AddFilter(pCL264Decoder, 'CL264 Decoder8');