如何在注册表中创建一个DOWRD值？

[智商无下限]

DELPHI中提供的函数好像只能创建“字符串”形式的值！
各位帮帮我！

[happyzsl]

procedure AddSourceToRegistry;

var
NTReg : TRegIniFile;
dwData : DWord;
begin
NTReg := TRegIniFile.Create('');
try
NTReg.RootKey := HKEY_LOCAL_MACHINE;
NTReg.OpenKey('SYSTEM\CurrentControlSet\Services\EventLog\Application\MyLog',true);
NTReg.LazyWrite := false;
TRegistry(NTReg).WriteString('EventMessageFile',Application.ExeName);
dwData := EVENTLOG_ERROR_TYPE or EVENTLOG_WARNING_TYPE or
EVENTLOG_INFORMATION_TYPE;
TRegistry(NTReg).WriteInteger('TypesSupported', dwData);

finally
NTReg.Free;
end;
end;

[beata88]

Ok

[wxjh]

WriteInteger