home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 November / Chip_2002-11_cd1.bin / zkuste / delphi / kompon / d567 / MMAILER.ZIP / Unit2.pas < prev   
Pascal/Delphi Source File  |  2002-08-28  |  1KB  |  67 lines
  1. unit Unit2;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, Registry;
  8.  
  9. type
  10.   TSetupForm = class(TForm)
  11.     Label5: TLabel;
  12.     Label3: TLabel;
  13.     Label4: TLabel;
  14.     Edit1: TEdit;
  15.     Edit2: TEdit;
  16.     Edit3: TEdit;
  17.     Button1: TButton;
  18.     Button2: TButton;
  19.     procedure FormCreate(Sender: TObject);
  20.   private
  21.     { Private declarations }
  22.   public
  23.     { Public declarations }
  24.   end;
  25.  
  26. var
  27.   SetupForm: TSetupForm;
  28.  
  29. implementation
  30.  
  31. {$R *.dfm}
  32.  
  33. procedure TSetupForm.FormCreate(Sender: TObject);
  34. var
  35.   Reg: TRegistry;
  36. begin
  37.   Reg:= TRegistry.Create;
  38.   try
  39.     Reg.RootKey:= HKEY_CURRENT_USER;
  40.     if Reg.KeyExists('\software\mas prod.\TmMailer') then
  41.     begin
  42.       if Reg.OpenKey('\software\mas prod.\TmMailer', false) then
  43.       begin
  44.           Edit1.Text:= Reg.ReadString('Host');
  45.           Edit2.Text:= Reg.ReadString('UserId');
  46.           Edit3.Text:= Reg.ReadString('Password');
  47.       end;
  48.     end
  49.     else
  50.     begin
  51.       if Reg.OpenKey('\software\mas prod.\TmMailer', true) then
  52.       begin
  53.           Edit1.Text:= '<your provider>';
  54.           Edit2.Text:= '<your userid>';
  55.           Edit3.Text:= '<your password>';
  56.           Reg.WriteString('Host', '<your provider>');
  57.           Reg.WriteString('UserId', '<your userid>');
  58.           Reg.WriteString('Password', '<your password>');
  59.       end;
  60.     end;
  61.   finally
  62.     Reg.Free;
  63.   end;
  64. end;
  65.  
  66. end.
  67.