Link to home
Start Free TrialLog in
Avatar of ProgsX
ProgsX

asked on

I want Default Mail Account of all of all the programs mail.

I use this fonction
function GetRegistryValue(KeyName: string;Value:String): string;
var
Registry: TRegistry;
begin
  Registry := TRegistry.Create(KEY_READ);
    try
      Registry.RootKey := HKEY_CURRENT_USER;
      Registry.OpenKey(KeyName, False);
      Result := Registry.ReadString(Value);
    finally
      Registry.Free;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var s:String;
begin
s:=GetRegistryValue('\Software\Microsoft\Internet Account Manager','Default Mail Account');
Edit1.Text := GetRegistryValue('\Software\Microsoft\Internet Account Manager\Accounts\'+s,'SMTP Email Address');
end;
I want Default Mail Account of all of all the programs mail.
example: Outlook Express, Outlook, Netscape, AOL, fire fox, opera….and other
Thank you for assistance.
Avatar of Andre_Tertling
Andre_Tertling
Flag of Germany image

Apart from the fact that this sounds like preparation for an email harvester, most of these programs store the requested bits of information in plain text configuration files, so the first step for doing this would be simply installing those programs and looking at their config files.
Avatar of TheRealLoki
The correct way would be to ask the user to enter their mail settings.
Most email clients encrypt the account details so that 3rd party programs can not do this.
ASKER CERTIFIED SOLUTION
Avatar of Wim ten Brink
Wim ten Brink
Flag of Netherlands image

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Avatar of ProgsX
ProgsX

ASKER

I have the parameters for outlook express and msoutlook, and the others one must do it manually.


Progx