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为一些整数.报错为标题所示.请教各位高手!!!
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为一些整数.报错为标题所示.请教各位高手!!!
一定要re.ReadBinaryData('DefaultConnectionSettings',buf,sizeof(buf));
不能ReadBinaryData('DefaultConnectionSettings',buf[0],sizeof(buf));
我的问题是这样的:在有些电脑不会报错.报错的电脑也不一定会报.