一个简单而又急的问题(19分)

procedure TMyRegistry.Root3;
var
RegFile : TRegistry;
begin
try
RegFile := TRegistry.Create;
RegFile.RootKey := HKEY_LOCAL_MACHINE;
if RegFile.OpenKey('/SYSTEM/CurrentControlSet/Services/Tcpip/Parameters' , True) then
begin
RegFile.WriteInteger('SackOpts' , 00000001);
RegFile.WriteInteger('GlobalMaxTcpWindowSize' , 0003e640);
//郁闷啊，这里我要创建DWord类型，读入十六进制，这里编译不能通过
//默认的好像是以十进制写入注册表的，我改成WriteFloat，写入的却是二进制类型
end;
finally
RegFile.CloseKey;
RegFile.Free;
end;
end;

这样试试：
RegFile.WriteInteger('GlobalMaxTcpWindowSize' , $0003e640);//十六进制

RegFile.WriteInteger('GlobalMaxTcpWindowSize' , 0003e640); 3e640其中有一个是十六进制的'e'值，而十六进制的值必须在数值前加上一个'$'美元符号Delphi才能识别。

知道了。谢谢。。。