[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]

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;

[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]