怎么判断我的计算机上有没有安装MTS server？如果没有的话，怎么装上？

[cxz7531]

我的操作系统是window 2000 server 在默认的情况下，是不是安装了MTS server？怎么检查？

[hezhiwenyy2008]

注册表里面

[sousouwjh]

查找注冊表：
先寫個函數：
function IsBDEInstalled : boolean;
var
registerTemp : TRegistry;
begin
registerTemp := TRegistry.Create;
with registerTemp do
begin
RootKey:=HKEY_LOCAL_MACHINE;
result := OpenKey('Software\microsoft\mstts',false);
CloseKey;
Free;
end;
end;
調用函數：
procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.lines.add('');
if IsBDEInstalled then
memo1.lines.add('安裝了MTS server')
else
memo1.lines.add('未安裝MTS server');
end;