Falae pessoal,
Estuo fazendo uma aplicação que configura o outlook express diretamente pelo
registro do windows
bem até ai tudo normal... mais o meu problema e o seguinte, estou tendo
dificuldades no algoritimo e/ou no comando a utilizar para criar a chave
caso ja esteja uma conta criada e configurada
se alguem quizer testar na sua maquina basta por 3 Buttons e 4 edits
Aguardo reposta.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, registry, Menus;
type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
Edit4: TEdit;
Label4: TLabel;
Button2: TButton;
Button3: TButton;
MainMenu1: TMainMenu;
Arquivo1: TMenuItem;
Sair1: TMenuItem;
N1: TMenuItem;
N2: TMenuItem;
AboutBox1: TMenuItem;
Ajuda1: TMenuItem;
AboutBox2: TMenuItem;
procedure Button1Click(Sender: TObject);
procedure Sair1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
Reg: Tregistry;
begin
//Faz a troca do Caption do Botão
if Button1.Caption = '&Alterar'
then
begin
// Habilita os Edit´s
button2.Enabled:=true;
edit1.Enabled:=true;
edit2.Enabled:=true;
edit3.Enabled:=true;
edit4.Enabled:=true;
// Faz a troca do Caption do Botão
Button1.Caption:= '&Aplicar';
end
else
begin
// desabilita os Edit´s
button2.Enabled:=false;
edit1.Enabled:=false;
edit2.Enabled:=false;
edit3.Enabled:=false;
edit4.Enabled:=false;
//Faz a troca do Caption do Botão
Button1.Caption:= '&Alterar';
end;
Reg:=Tregistry.create;
with Reg do
begin
rootkey:=HKEY_CURRENT_USER;
Openkey('Software\Microsoft\Internet Account
Manager\Accounts\00000001',false);
writestring('Account Name', edit1.Text);
writestring('POP3 Server', edit2.Text);
writestring('SMTP Server', edit3.Text);
writestring('POP3 User Name', edit4.Text);
writestring('SMTP Display Name', edit1.Text);
writestring('SMTP Email Address', edit4.Text);
closekey;
end;
end;
procedure TForm1.Sair1Click(Sender: TObject);
begin
close;
end;
procedure TForm1.FormShow(Sender: TObject);
var
Reg: Tregistry;
begin
Reg:=Tregistry.create;
with Reg do
begin
rootkey:=HKEY_CURRENT_USER;
Openkey('Software\Microsoft\Internet Account
Manager\Accounts\00000001',false);
edit1.Text:= reg.ReadString('SMTP Display Name');
edit2.Text:= reg.ReadString('POP3 Server');
edit3.Text:= reg.ReadString('SMTP Server');
edit4.Text:= reg.ReadString('POP3 User Name');
closekey;
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
button2.Enabled:= false;
edit1.Text:= '';
edit2.Text:= '';
edit3.Text:= '';
edit4.Text:= '';
end;
end.
----------
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 266.5.1 - Release Date: 27/2/2005
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
