procedure TForm1.Button1Click(Sender: TObject);
var
reg:Tregistry;
begin
reg:=Tregistry.Create ;
reg.RootKey :=HKEY_CLASSES_ROOT;
if reg.OpenKey('\CLSID\{D27CDB6E-AE6D-11cf-96B8-444553540000}\',true) then
begin
memo2.Lines.Add(reg.ReadString('ThreadingModel') +' fff');
end
else
begin
showmessage('打开失败')
end;
reg.CloseKey ;
reg.free;
end;我从注册表里是删不掉HKEY_CLASSES_ROOT\CLSID\{D27CDB6E-AE6D-11cf-96B8-444553540000}的.
我用冰刃删.既然也删不掉...求各位大虾帮忙..
var
reg:Tregistry;
begin
reg:=Tregistry.Create ;
reg.RootKey :=HKEY_CLASSES_ROOT;
if reg.OpenKey('\CLSID\{D27CDB6E-AE6D-11cf-96B8-444553540000}\',true) then
begin
memo2.Lines.Add(reg.ReadString('ThreadingModel') +' fff');
end
else
begin
showmessage('打开失败')
end;
reg.CloseKey ;
reg.free;
end;我从注册表里是删不掉HKEY_CLASSES_ROOT\CLSID\{D27CDB6E-AE6D-11cf-96B8-444553540000}的.
我用冰刃删.既然也删不掉...求各位大虾帮忙..
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货