请问怎么得到别人机器的注册表中的信息?马上给分!
解决方案 »
- 请问通过网络如何来发消息啊?
- spcomm串口控件的问题
- 有关文件存储与转换问题,困惑了N久,不得已跑来请教各位高手!!!!!!
- 简单问题,来吧.
- 菜鸟关于字符串问题 大家帮帮忙 谢谢.
- 请问?窗体最小化会激活哪个事件?在运行时我怎么才能获取窗体当前的状态?
- 在Delphi中能够调到VB编写的DLL文件吗。如何调用??
- SQL中除了DROP可以删除表以外,还有一个删除表的命令怎么写?是T开头的~
- 哪儿可以提供ExpressNavBar vcl下?
- ado+sql server创建的视图利用dbgrid怎么显示出来
- 这里真的就没有高手吗?看来高手从来不需要交流啊!高手进来!只会up的别来啊!
- 老问题?没搞定!:(
var
FRegFile: TRegIniFile;
section: string;
szTemp,UpGradeSvr,UpGradeFilePath: string;
begin
if MaskEdit1.Text <> '' then
UpGradeSvr := '\\' + MaskEdit1.Text;
try
FRegFile := TRegIniFile.Create('');
FRegFile.RootKey := HKEY_LOCAL_MACHINE;
if not FRegFile.RegistryConnect(UpGradeSvr) then begin
messageDlg('无法访问 '+UpGradeSvr+' 的注册表', mterror, [mbok],0);
Exit;
end;
section := 'Software\Anyi\R9ERP\INSTALLED';
FRegFile.OpenKey(section, False);
szTemp := FRegFile.ReadString(section, 'Path', '');
if szTemp <> '' then
UpGradeFilePath := UpGradeSvr + '\' + szTemp + '\R9ERP\UpGrade\Client';
except
//Result := False;
FRegFile.Free;
Exit;
end;
//Result := True;
FRegFile.Free;
Edit1.Text := UpGradeFilePath
end;