Mega Code Archive

 
Categories / Delphi / Examples
 

How to change netscape preferences from your program [and access multiple email accounts]

If you've been wondering how to change Navigator 3.x's preferences (or settings) from your program, take a look at the following function: 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; Listing #1 : Delphi code. Download nsmail (0.46 KB). As you can see, Netscape's using the following registry key to store its user settings: HKEY_CURRENT_USER Software Netscape Netscape Navigator To get a list of other settings you can change, simply run "Registry Editor" ("RegEdit.exe") and select the above registry key. Our example function "SetNetscapeMailPreferences()" will let you change your Netscape's mail preferences, which means you can utilize it to write a program that would let users access multiple email accounts using a single installation of Navigator 3.x. Here's a sample call: SetNetscapeMailPreferences( 'Bob B Bob', 'bob', 'bob@bob.com', 'bob@bob.com', 'Bob Inc.', 'C:Sign.TXT', 'bob.com', 'bob.com' ); NOTE: Netscape should be closed while making modifications to its registry entires. Also don't forget that future versions of Netscape may use different registry keys.