注册表中的数据名称和数据数值
用什么东西,给个例子
用什么东西,给个例子
解决方案 »
- 【高手进】 控件移动闪烁
- excel导入到sql server数据如何筛选判断啊
- 追到心仪的女孩子,散分!!!!
- 新手请教:怎样在Excel中插入图片(50分)
- 对Devexpress公司控件(cxXXXX控件)熟悉的请进来!!!!!
- 如何判断某文件存在?
- 有没有什么好看点的datetimepicker控件?D5、D6带的那个我看腻了
- 请问这个函数SHFileOperation是如何使用的?请附范例。谢谢
- 窗口最小化时,所画的图形没有了,谁来帮我解决下
- paradox sql语句where条件中日期怎样表达?
- 关于ADO一个容易被忽视的问题!UpdateBatch
- 如何替换字符串中的某一个字符
{
AnsiString S;
TRegistry *Registry = new TRegistry;
try
{
Registry->RootKey = HKEY_LOCAL_MACHINE;
// false because we do not want to create it if it doesn’t exist
Registry->OpenKey(KeyName, false);
S = Registry->ReadString("VALUE1");
}
__finally
{
delete Registry;
}
return S;}
var
Registry: TRegistry;
begin
Registry := TRegistry.Create(KEY_READ);
try
Registry.RootKey = HKEY_LOCAL_MACHINE;
// False because we do not want to create it if it doesn't exist
Registry.OpenKey(KeyName, False);
Result := Registry.ReadString('VALUE1');
finally
Registry.Free;
end;
end;
var
Reg: TRegIniFile;
begin
if Length(NameofKey.Text) or Length(ValueforKey.Text) <=0 then
Showmessage('Either the key name or value is missing.')
else begin
Reg:=TRegIniFile.Create('MyApp');
try
Reg.RootKey:=HKey_Local_Machine; // Section to look for within the registry
if not Reg.OpenKey(NameofKey.Text,False) then
if MessageDlg('The specified key does not exist, create it?' ,Mtinformation,[mbYes,mbNo],0)=mryes then
begin
Reg.CreateKey(NameofKey.Text);
if not Reg.OpenKey(NameofKey.Text,False) then
ShowMessage('Error in Opening Created Key')
else
Reg.WriteString('Main Section','Value1',ValueForKey.Text);
end
else
Reg.WriteString('Main Section','Value1',ValueForKey.Text);
finally Reg.Free;
end;
end;
end;
你帮我看看老外的 这个软件要怎么做(关于注册表)
http://www.bwkj.net/bios/down3/regc.exe
uses Registry;procedure TForm1.Button1Click(Sender: TObject);
Var list,softList :TStringList;
Reg :TRegistry;
FPath,FKey,SubString:String;
i: integer;
begin
FPath := 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall';
FKey := 'DisplayName';
list := TStringList.Create;
softList := TStringList.Create;
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
If Reg.OpenKey(FPath, False) then
Reg.GetKeyNames(List);
List.Sort;
List.BeginUpdate;
Reg.CloseKey;
If Reg.OpenKey(FPath, False) then
Edit1.Text := List[0];
//Edit1.Text := Reg.ReadString('DriverDesc');
Reg.CloseKey;
for i:=0 to List.Count-1 do begin
FPath := 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\'+List[i];
if (Reg.OpenKey(FPath,False)) and (Reg.ReadString(FKey)<>'') then
softList.Add(Reg.ReadString(FKey));
Reg.CloseKey;
end;//end for
finally
Reg.Free; // 用 Try..Finally 结构确保 REG 变量能够释放。
end;
softList.Sort;
ListBox1.Items:=softlist;
end;