procedure GetKeyNames(Strings: TStrings);
procedure GetValueNames(Strings: TStrings);
procedure GetValueNames(Strings: TStrings);
解决方案 »
- 求验证码识别相关资料,或识别高手合作
- 请教关于MIDI端口的获取方法(解决了再+100分)
- 关于List index out of bounds(0)
- 一个简单的网络IP数据包监视程序
- DBGridEh的复制方法能不能不要标题头?
- 一个485接口,MODBUS协议的软件,包括了模拟设备的软件,帮忙测试,给源码
- 两台打印机(一个CANON喷墨,一个EPSON针打),一次只能连接一台打印机,如何用程序确定当前所连接的打印机?
- 请教一个用Delphi制作登录窗口界面的问题!(送100)
- 如何改變操作系統的日期格式???
- 有没有这个函数?!
- 如何在sql中给一个text字段符带有'的一个字符串
- 多线程阻塞式 Socket ,服务器端如何把在某一个线程中接受到来的信息,再发送给其它线程呢?
Reg1:=TRegistry.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg1.RootKey:=HKEY_CURRENT_USER;
try
fString:=Tstringlist.Create;
fString1:=Tstringlist.Create;
Reg.OpenKey('Software\Microsoft\Windows Messaging Subsystem\Profiles\Microsoft Outlook Internet Settings',False); Reg.GetKeyNames(fstring);
for I:=0 to fstring.Count-1 do
begin
Reg1:=TRegistry.Create;
Reg1.RootKey:=HKEY_CURRENT_USER;
Reg.OpenKey('Software\Microsoft\Windows Messaging Subsystem\Profiles\Microsoft Outlook Internet Settings\'+fstring.Strings[i],False);
Reg.GetvalueNames(fstring1);
for m:=0 to fString1.count-1 do
begin
if fString1.Strings[m]='001e6700' then
begin
getpath:=Reg.ReadString('001e6700');
Break;
end;
end;
end;
finally
Reg.Free;
Reg1.Free;
fString.Free;
fString1.Free;
end;