iwunit1.pas

一些关于电子邮件SMTP`POP3 MIME`的源码·个人感觉还不错

unit IWUnit1;
{PUBDIST}

interface

uses
  IWAppForm, IWApplication, IWTypes, IWCompButton, Classes, Controls,
  IWControl, IWCompFlash, IWCompMenu, IWHTMLControls;

type
  TformMain = class(TIWAppForm)
    IWFlash1: TIWFlash;
    IWButton1: TIWButton;
    IWButton2: TIWButton;
    procedure IWButton1Click(Sender: TObject);
    procedure IWButton2Click(Sender: TObject);
  public
  end;

implementation
{$R *.dfm}

uses
  ServerController;

procedure TformMain.IWButton1Click(Sender: TObject);
begin
  IWFlash1.AutoPlay:=True;
end;

procedure TformMain.IWButton2Click(Sender: TObject);
begin
  IWFlash1.AutoPlay:=False;
end;

end.