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

智商无下限 2002-12-26 04:23:57
DELPHI中提供的函数好像只能创建“字符串”形式的值!
各位帮帮我!
...全文
14 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
wxjh 2002-12-26
WriteInteger
回复
beata88 2002-12-26
Ok
回复
happyzsl 2002-12-26
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;



回复
相关推荐
发帖
Windows SDK/API
创建于2007-08-02

1161

社区成员

Delphi Windows SDK/API
申请成为版主
帖子事件
创建了帖子
2002-12-26 04:23
社区公告
暂无公告