[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]