type
TRegProc = function : HResult;
stdcall;
var
RegProc : TRegProc;
LibHandle : THandle;
begin
LibHandle := LoadLibrary(PChar(FileName));
//關鍵就是這個句柄怎樣搞到,可以是其它的辦法,要看你的com+
if LibHandle <> 0
begin
@RegProc := GetProcAddress(LibHandle, 'DllUnregisterServer');
if Assigned(@RegProc) then
if RegProc = 0 then
ShowMessage('Suff');
FreeLibrary(LibHandle);
end;
end;