查找注冊表:
先寫個函數:
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;