Chami.com Tips

procedure SetNetscapeMailPreferences(
  sUserName,
  sMailboxName,
  sFromAddress,
  sReplyToAddress,
  sOrganization,
  sSignatureFile,
  sSMTPServer,
  sPOPServer
    : string );
var
  r : TRegIniFile;

  procedure Save( a, b, c : string );
  begin
    r.WriteString( a, b, c + #0 );
  end;

begin
  r := TRegIniFile.Create(
         'Software'
       + 'NetscapeNetscape Navigator'
       );

  Save( 'Mail', 'POP Name',
    sMailboxName );

  Save( 'Services', 'POP_Server',
    sPOPServer );

  Save( 'Services', 'SMTP_Server',
    sSMTPServer );

  Save( 'User', 'User_Addr',
    sFromAddress );

  Save( 'User', 'User_Name',
    sUserName );

  Save( 'User', 'Reply_To',
    sReplyToAddress );

  Save( 'User', 'User_Organization',
    sOrganization );

  Save( 'User', 'Sig_File',
    sSignatureFile );

  r.Free;
end;

HKEY_CURRENT_USER
  Software
    Netscape
      Netscape Navigator

SetNetscapeMailPreferences(
  'Bob B Bob',
  'bob',
  'bob@bob.com',
  'bob@bob.com',
  'Bob Inc.',
  'C:Sign.TXT',
  'bob.com',
  'bob.com' 
);