{ Here is some code I successfully used te determine the DEFAULT mailaccount, which is used in Outlook Express, to send outgoing mail via SMTP. } procedureTForm1.ReadRegistryDefaults; var
Registry: TRegistry; AccountStr: string
; begin
Registry := TRegistry.Create; try
Registry.RootKey := hkey_CURRENT_USER; if
Registry.OpenKey('softwaremicrosoftinternet account manager', False) then
{} begin
AccountStr := Registry.ReadString('default mail account'); Registry.CloseKey; if
(AccountStr <> '') then
if
Registry.OpenKey('softwaremicrosoftinternet account manageraccounts' + AccountStr, False) then
{} begin
Edit_Server.Text := Registry.ReadString('SMTP Server'); Edit_Account.Text := Registry.ReadString('SMTP Email Address'); Registry.CloseKey; end
; end
; finally
Registry.Free; end
; end
;