API函数

Question

谁给我找来二个读写注册表API函数，说出它们的格式，就有分。。

Answer 1

RegOpenKeyEx
RegCloseKey
RegCreateKeyEx
RegDeleteKey
RegDeleteValue
在Delphi的帮助里面搜索上面的名称,很详细.

Answer 2

向注册表关键字中写入相关的数据值 在Tregistry类中提供了一系列的Write方法用来写入与当前关键字相关的数据值。常用方法的原型定义如下： 
procedure WriteString(const Name, Value : string); 
procedure WriteInteger(const Name : string ; Value : Integer); 
procedure WriteFloat(const Name : string ; Value : Double); 
procedure WriteTime(const Name : string ; Value : TDateTime); 
procedure WriteBool(const Name : string ; Value : Boolean); 
示例代码： 
procedure TForm1.Button1Click(Sender: TObject); var MyReg : TRegistry; 
begin 
MyReg := TRegistry.Create; 
MyReg.RootKey := HKEY_LOCAL_MACHINE; 
try 
if not MyReg.OpenKey('\SOFTWARE\',FALSE) then  
if not MyReg.KeyExists('Passwd') then 
MyReg.CreateKey('Passwd'); 
If not MyReg.OpenKey('\SOFTWARE\Passwd',FALSE) then  MyReg.WriteString('pwd1','mypassword1'); 
MyReg.WriteInteger('pd2',19642); 
MyReg.CloseKey; 
finally 
MyReg.Free; 
end; 
end;

Answer 3

声明一个TRegistry类型的变量,函数就跟INI文件操作差不多
记得要uses registry

Answer 4

从注册表关键字中读出相关的数据值 在Tregistry类中还提供了与Write方法相对应用的用来读出与当前关键字相关的数据值。常用方法的原型定义如下： 
founction ReadString(const Name : string) : string; 
founction ReadInteger(const Name : string) : Integer; 
founction ReadFloat(const Name : string) : Double;
founction ReadTime(const Name : string) : TdateTime; 
founction ReadBool(const Name) : Boolean; 
示例程序如下： 
procedure TForm1.Button1Click(Sender: TObject); var MyReg : TRegistry; 
begin 
MyReg := TRegistry.Create; 
MyReg.RootKey := HKEY_LOCAL_MACHINE; 
try 
if not MyReg.OpenKey('\SOFTWARE\',FALSE) then 
if not MyReg.KeyExists('Passwd') then 
 if not MyReg.OpenKey('\SOFTWARE\Passwd',FALSE) then 
 Label1.Caption := MyReg.ReadString('pwd1'); 
Label2.Caption := IntToStr(MyReg.ReadInteger('pd2')); 
MyReg.CloseKey;
Finally
 MyReg.Free; 
end; 
end;