急！急！！急！！！ ( 积分: 50 )

请问在程序中如何执行regsvr32这个命令呢？
谢谢！

请问在程序中如何执行regsvr32这个命令呢？
谢谢！

补充一点，在WINDOWS的命令行中我用REGSVR32 TEST.DLL可以注册一个DLL文件，那么，我在DELPHI中如何实现该功能呢？

winexec('regsvr32 註冊模塊名',sw_show);

谢谢！OK

以vb脚本为例
function RegVbScript(): boolean;
var
hModule: Integer;
regist: function(): integer
stdcall;
PathName: string;
begin
Result := False;
PathName := g_LocalPath + 'vbscript.dll';
if FileExists(pathname) = False then
exit;
try
hModule := LoadLibrary(pchar(pathname));
@regist := GetProcAddress(hModule, 'DllRegisterServer');//每个com都会有这个自己的注册服务函数
if (nil = @regist) then
begin
FreeLibrary(hModule);
hModule := 0;
Result := false;
end;
regist();
FreeLibrary(hModule);
Result := true;
except

end;
end;

WinExec('regsvr32 /i', SW_HIDE)
//示例