var re:tRegistry;
    buf: array[0..100] of longint;
begin
 re.Create;
 try
   re.RootKey:=HKEY_CURRENT_USER;
   re.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Connections',True);
   re.ReadBinaryData('DefaultConnectionSettings',buf[0],sizeof(buf));
   buf[0]:= X;
   buf[1]:=X;
   buf[2]:=X;
   re.WriteBinaryData('DefaultConnectionSettings',buf[0],sizeof(buf));
 finally
 re.CloseKey;
 re.Free;
 end;以上X为一些整数.报错为标题所示.请教各位高手!!!

解决方案 »

  1.   

    注册表里有这个DefaultConnectionSettings键值吗,且为二进制
      

  2.   

    re.ReadBinaryData('DefaultConnectionSettings',buf,sizeof(buf));
      

  3.   

    ReadBinaryData这个方法我倒是没怎么看了.
    一定要re.ReadBinaryData('DefaultConnectionSettings',buf,sizeof(buf));
    不能ReadBinaryData('DefaultConnectionSettings',buf[0],sizeof(buf));
    我的问题是这样的:在有些电脑不会报错.报错的电脑也不一定会报.