高难问题(80分)

我爱吃草莓 · 2006-03-25

有没有可以详细列举注册表信息的函数

Anskya · 2006-03-28

啊.好难....看 Delphi超猛料吧

fghyxxe · 2006-03-28

自己写.不要列举全部,用树的形式,当用户点时再去遍历某个范围的信息

zfg886 · 2006-03-28

答案只有两个

zfg886 · 2006-03-28

zfg886 · 2006-03-28

没有

zfg886 · 2006-03-28

回答完毕,请自己选择一个正确答案,然后给我分.

zfg886 · 2006-03-28

说"有"的理由:这样的函数完全可以实现,自己写一个就是,说不定有哪个牛人已经写出来在用了. 说"没有"的理由:API函数和DELPHI带的函数是肯定没有的了.这样的函数,也没有人会去写.

cis · 2006-03-29

倒~~

jfyes · 2006-03-30

uses Registry; function GetRegItemByNames(HK: Windows.HKEY; const Item: string; var TS: TStrings): Boolean; var  Reg: TRegistry; begin  Result := False;  Reg := TRegistry.Create;  try    Reg.RootKey := HK;    if Reg.OpenKey(Item, False) then    begin      Reg.GetKeyNames(TS);      Result := True;      Reg.CloseKey    end;  finally    Reg.Free;  end; end; function GetRegItemByValues(HK: Windows.HKEY; const Item: string; var TS: TStrings): Boolean; const  REG_BINMAX = 16384; var  Reg: TRegistry;  VTs: TStrings;  I, J, Index: Integer;  Value: string;  Dt: TRegDataType;  //ReadBinaryData Max 16KB  Buf: array [1..REG_BINMAX] of Char;  BufSize: Integer; begin  Result := False;  Reg := TRegistry.Create;  try    Reg.RootKey := HK;    if Reg.OpenKey(Item, False) then    begin      Value := Reg.ReadString('');      if Value = '' then   Value := RegNone;      TS.Add(RegDefault);      TS.Add(IntToStr(Ord(rdString)));      Ts.Add(Value);      //TS.Add(Format('(Default)'#13#10'%d'#13#10'%s', [Ord(rdString), Reg.ReadString('')]));            VTs := TStringList.Create;      try        Reg.GetValueNames(VTs);        if Value <> RegNone then Index := 1 else Index := 0;        for I := Index to VTs.Count - 1 do  begin          Value := '';          Dt := Reg.GetDataType(VTs);          case Dt of          rdString:       Value := Format('%s', [Reg.ReadString(VTs)]);          rdExpandString: Value := Format('%s', [Reg.ReadString(VTs)]);          rdInteger:      Value := Format('%d', [Reg.ReadInteger(VTs)]);          rdUnknown,          rdBinary:       begin                            BufSize := Reg.GetDataSize(VTs);                            FillChar(Buf, SizeOf(Buf), #0);                            Reg.ReadBinaryData(VTs, Buf, BufSize);                            for J := 1 to BufSize do                              if J > REG_BINMAX then Break else                              Value := Value + Format(' %2.2X', [Ord(Buf[J])]);                            //标识Hex Block                              if Length(Value) > 260 then Value := Format(HexBegin + #13#10'%s'#13#10 + HexEnd, [Value]);;                          end;          end;          TS.Add(VTs);          TS.Add(IntToStr(Ord(Dt)));          if Trim(Value) = '' then Value := '([None])';          Ts.Add(Value);          //数据格式:   名称#13#10类型#13#10值#13#10          //TS.Add(Format('%s'#13#10'%d'#13#10'%s'#13#10, [VTs, Ord(Dt), Value, VTs]));        end; //for i to do      finally        VTs.Free;      end;      Result := True;      Reg.CloseKey    end else begin      Value := RegNone;      TS.Add(RegDefault);      TS.Add(IntToStr(Ord(rdString)));      Ts.Add(Value);    end;  finally    Reg.Free;  end; end;  GetRegItemByNames(Windows.HKEY_LOCAL_MACHINE, '', Memo_Socketlog.Lines); GetRegItemByValues(Windows.HKEY_LOCAL_MACHINE, '', Memo_Socketlog.Lines);

ivy1982 · 2006-03-30

注册表基本操作,简单加密 32位Delphi程序中可利用TRegistry对象来存取注册表文件中的信息。 　　一、创建和释放TRegistry对象 　　1.创建TRegistry对象。为了操作注册表,要创建一个TRegistry对象:ARegistry := TRegistry.Create; 　　2.释放TRegistry对象。对注册表操作结束后,应释放TRegistry对象所占内存:ARegistry.Destroy。 　　二、指定屹作的键 　　操作注册表时,首先应指定操作的主键:先给属性RootKey赋值以指定根键,然后用方法OpenKey来指定要操作的主键名。 　　1.指定根键(RootKey)。 　　根键是注册表的入口,也注册表信息的分类,其值可为: 　　HKEY—CLASSES—ROOT:存储整个系统对象类信息,如ActiveX对象注册、文件关联等信息。 　　HKEY—CURRENT—USER:存储当前用户的配置信息。为属性RootKey的默认值。 　　HKEY—LOCAL—MACHINE:存储当前系统的软硬件配置信息。应用程序自己的信息可以存储在该根键下。 　　HKEY—USERS:存储所有用户通用的配置信息。 　　还可以是HKEY—CURRENT—CONFIG、HKEY—DYN—DATA。 　　2.指定屹作的主键。 　　Function OpenKey(const Key: string; CanCreate: Boolean): Boolean; 　　Key:主键名,是键名全名中除去根键的部分,如Software/Borland/Delphi。 　　CanCreate:在指定的主键名不存在时,是否允许创建该主键,True表示允许。 　　返回值True表示操作成功。 　　3.关闭当前主键。 　　在读取或存储信息之后,应及时将关闭当前主键

rocedure CloseKey。 　　三、从注册表中读取信息 　　Read系列方法从注册表读取指定的信息(字符串、二进制和十六进制),并转换为指定的类型。 　　1.Read系列方法。 　　function ReadString(const Name: string): string; 　　读取一个字符串值,Name为字符串名称。 　　function ReadInteger(const Name: string): Integer; 　　读取一个整数值,Name为整数名称。 　　function ReadBinaryData(const Name: string; var Buffer; BufSize: Integer):Integer; 　　读取二进制值,Name为二进制值名称,Buffer为接收缓冲区,BufSize为缓冲区大小,返回为实际读取的字节数。 　　其它方法还有:ReadBool、ReadCurrency、ReadDate、ReadDateTime、ReadFloat、ReadTime。 　　2.读取信息一例(显示Windows的版本)。 　　在HKEY—LOCAL—MACHINE/Software/Microsoft/Windows/CurrentVersion下,有三个字符串值Version、VersionNumber和SubVersionNumber,用于记录当前Windows的版本号。 　　{请在Uses中包含Registry单元} 　　procedure TForm1.Button1Click(Sender:TObject); 　　var 　　 ARegistry : TRegistry; 　　begin 　　 ARegistry := TRegistry.Create; 　　//建立一个TRegistry实例 　　 with ARegistry do 　　 begin 　　 RootKey := HKEY—LOCAL—MACHINE;//指定根键为HKEY—LOCAL—MACHINE 　　 //打开主键Software/Microsoft/Windows/CurrentVersion 　　 if OpenKey( 'Software/Microsoft/Windows/CurrentVersion' false ) then 　　 begin 　　 memo1.lines.add('Windows版本:'+ ReadString('Version')); 　　 memo1.lines.add('Windows版本号:' + ReadString('VersionNumber')); 　　 memo1.lines.add('Windows子版本号:' + ReadString('SubVersionNumber')); 　　 end; 　　 CloseKey;//关闭主键 　　 Destroy;//释放内存 　　 end; 　　end; 　　四、向注册表中写入信息 　　Write系列方法将信息转化为指定的类型,并写入注册表。 　　1.Write系列方法。 　　procedure WriteString(const Name  Value: string); 　　写入一个字符串值,Name为字符串的名称,Value为字符串值。 　　procedure WriteInteger(const Name: string; Value: Integer); 　　写入一个整数值。 　　procedure WriteBinaryData(const Name: string; var Buffer; BufSize: Integer); 　　写入二进制值,Name为二进制值的名称,Buffer为包含二进制值的缓冲区,BufSize为缓冲区大小。 　　其它方法还有:WriteBool、WriteCurrency、WriteDate、WriteDateTime、WriteFloat、WriteTime。 　　2.写入信息一例。 　　下面程序使Delphi随Windows启动而自动运行。 　　var 　　 ARegistry : TRegistry; 　　begin 　　 ARegistry := TRegistry.Create;   　　//建立一个TRegistry实例 　　 with ARegistry do 　　 begin 　　 RootKey:=HKEY—LOCAL—MACHINE; 　　 if OpenKey('Software/Microsoft/Windows/CurrentVersion/Run' True) then 　　 WriteString('delphi' 'C:/Program Files/borland/delphi3/bin/delphi32.exe'); 　　 CloseKey; 　　 Destroy; 　　 end; 　　end; 　　五、键值维护 　　除了在注册表中读取、存储外,程序可能还需要增加主键、删除主键、主键改名、数据值改名等。 　　1.创建新主键:function CreateKey(const Key: string): Boolean。 　　Key即为主键名,返回值True表示操作成功。 　　2.删除主键:function DeleteKey(const Key: string): Boolean。 　　Key即为主键名,返回值True表示操作成功。 　　3.复制或移动主键

rocedure MoveKey(const OldName  NewName: string; Delete: Boolean)。 　　OldName、NewName分别表示源主键名和目标主键名;Delete表示是否删除源主键,True表示删除,False表示保留。 　　复制或移动一个主键将复制或移动该子键下的所有数据值和子键内容。 　　4.判断指定主键是否存在,其下是否有主键,并获取主键名称。 　　KeyExists用于判断指定主键是否存在: 　　function KeyExists(const Key: string): Boolean;//返回值为True表示主键存在。 　　HasSubKeys用于判断指定主键下是否有子键:function HasSubKeys: Boolean; 　　返回值为True表示主键下有子键。 　　GetKeyNames用于获取子键名称

rocedure GetKeyNames(Strings: TStrings); 　　Strings用于返回当前主键下各子键的名称。 　　5.获取主键下的数据值名称

rocedure GetValueNames(Strings: TStrings)。 　　Strings用于返回当前主键下各数值名称。 　　如要获取当前系统中的拨号连接名称,可利用获取主键HKEY—USERS 　　/.DEFAULT/RemoteAccess/Addresses下的数值名称的方法来进行。 　　6.判断数值名称存在、数值名称改名。 　　ValueExists用于判断数值名称是否存在: 　　function ValueExists(const Name: string): Boolean; 　　返回值为True表示数值名称存在。 　　RenameValue用于数值名称改名: 　　procedure RenameValue(const OldName  NewName: string); 　　以上是注册表常用操作所对应的TRegistry的方法和属性,其它方法和属性请参见Delphi联机帮助文件。 　以上程序在PWIN 98+Delphi 3.0下调试通过。   　                              用注册表对Delphi程序进行加密   　　本加密方法分三部分: 　　1. 根据对注册表的搜索结果判定设置对话框的内容。 　　2. 若初次使用,则设新密码;若是已经设置密码,则进行验证。 　　3. 一个密码变换小程序(比原来的复杂得多)。当然,如果需要修改密码的功能,只要将设置密码部分改动一下即可。 　　一、程序启动时,通过搜索注册表,判断是否已有密码,来确定窗口的显示内容。不过事先应有以下的声明然后才能使用: 　　在user中加入TRegistry,在var声明中加入以下几个窗体变量: 　　 TheReg: TRegistry; 　　 KeyName ValueStr tempStr:String; 　　procedure TfrmPass.FormShow(Sender: TObject); 　　begin 　　 TheReg := TRegistry.Create; 　　 try TheReg.RootKey := HKEY—LOCAL—MACHINE; 　　KeyName := 'SOFTWARE/Mypassword'; 　　//有该键则打开,没有则创建 　　if TheReg.OpenKey(KeyName  True) then begin 　　tempStr:=ExtractFileName(Application.ExeName); //读取密码 　　 ValueStr:=TheReg.ReadString(tempStr); 　　 //密码不为空则修改窗体为验证密码 　　 if ValueStr<>'' then begin 　　 edit2.Visible:=false; frmPass.Caption:='验证密码'; 　　 edit1.SetFocus; OK.Caption:='确定'; end 　　//密码为空则修改窗体为设置密码对话框 　　else begin 　　showmessage('第一次使用请设置密码!'); 　　 edit2.Visible:=true; frmPass.Caption:='请设置新密码'; 　　 edit1.SetFocus; OK.Caption:='设置'; 　　 end; TheReg.CloseKey; end; 　　finally TheReg.Free; end; end; 　　二、按钮的响应代码:包括新设密码和验证密码。 　　procedure TfrmPass.OKClick(Sender: TObject); 　　begin 　　 //根据Edit2的显示与否判断已有密码进行验证 　　 if edit2.Visible=false then begin 　　if pass(edit1.text)=ValueStr then begin 　　 showmessage('密码正确!'); end 　　else begin 　　 showmessage('密码不正确!无权操作!'); 　　 halt; end; end //无密码设置新密码 　　 else begin 　　if edit1.text=edit2.text then begin 　　 TheReg := TRegistry.Create; 　　 TheReg.RootKey := HKEY—LOCAL—MACHINE; 　　 KeyName := 'SOFTWARE/Mypassword'; 　　 if TheReg.OpenKey(KeyName  True) then 　　 TheReg.WriteString(tempStr pass(edit1.text)); 　　 TheReg.CloseKey; end 　　else begin 　　 showmessage('再次键入的密码不一致请重输!'); 　　 edit1.text:=''; edit2.text:=''; 　　 edit1.SetFocus; end; //进行下一步操作... 　　 end; end; 　　三、密码变换程序:注意要预先定义。 　　这个变换小程序在笔者看来还不算很复杂,只进行了两次变换,不过,想要破译也是得费点劲。读者还可以采用其他的数学函数进行更为复杂的变换。 　　function pass(pstr:string):string; 　　var str str1:string; 　　i j:integer; 　　begin 　　 str:=pstr; 　　 for i:=1 to length(str) do begin 　　//进行第一次变换 　　 j:=(i＊i＊i mod (i+20))+(i＊i mod (i+10))+i＊2+1; 　　 str1:=str1+chr(ord(str)+j); //第二次变换 　　 j:=(i＊i＊i mod (i+10))+(i＊i mod (i+20))+i＊2+1; 　　 str1:=str1+chr(ord(str)+j); end; 　　 pass:=str1; 　　end;  ,

我爱吃草莓 · 2006-04-03

多人接受答案了。

高难问题(80分)

我爱吃草莓

Unregistered / Unconfirmed

Anskya

Unregistered / Unconfirmed

fghyxxe

Unregistered / Unconfirmed

zfg886

Unregistered / Unconfirmed

zfg886

Unregistered / Unconfirmed

zfg886

Unregistered / Unconfirmed

zfg886

Unregistered / Unconfirmed

zfg886

Unregistered / Unconfirmed

cis

Unregistered / Unconfirmed

jfyes

Unregistered / Unconfirmed

ivy1982

Unregistered / Unconfirmed

我爱吃草莓

Unregistered / Unconfirmed

Similar threads