Как сделать калькулятор в Delphi?

Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.

Как Delphi реализует многоплатформенную разработку?

Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...

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

Советы » E-mail » Найти smtp mailserver по умолчанию

{
  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('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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2024 - All Rights Reserved - www.delphirus.com