Найти smtp mailserver по умолчанию?

Previous  Top  Next

    
 

 

 

Code:

{

Here is some code I successfully used te determine

the DEFAULT mailaccount, which is used in

Outlook Express, to send outgoing mail via SMTP.

}

 

procedure TForm1.ReadRegistryDefaults;

var

Registry: TRegistry;

AccountStr: string;

begin

Registry := TRegistry.Create;

try

   Registry.RootKey := hkey_CURRENT_USER;

   if Registry.OpenKey('software\microsoft\internet account manager', False) then {}

   begin

     AccountStr := Registry.ReadString('default mail account');

     Registry.CloseKey;

     if (AccountStr <> '') then

       if Registry.OpenKey('software\microsoft\internet account manager\accounts\' +

         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;

 

©Drkb::03408

Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php