Главная страницаОбратная связьКарта сайта

Определить SMTP сервер по умолчанию


{ 
  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;


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Определить SMTP сервер по умолчанию", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info