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;
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).
HKEY_CURRENT_USER
Software
Netscape
Netscape Navigator
Software
Netscape
Netscape Navigator
Listing #2 : TEXT code. Download reginfo (0.19 KB).
SetNetscapeMailPreferences(
'Bob B Bob',
'bob',
'bob@bob.com',
'bob@bob.com',
'Bob Inc.',
'C:Sign.TXT',
'bob.com',
'bob.com'
);
'Bob B Bob',
'bob',
'bob@bob.com',
'bob@bob.com',
'Bob Inc.',
'C:Sign.TXT',
'bob.com',
'bob.com'
);
Listing #3 : Delphi code. Download chngmail (0.22 KB).