mail.~pas

来自「这个也不错」· ~PAS 代码 · 共 45 行

unit mail;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons,shellapi;

type
  TForm2 = class(TForm)
    GroupBox1: TGroupBox;
    memo1: TMemo;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses server;

{$R *.DFM}

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
  form1.serversocket1.Socket.sendtext('mail1'+edit1.text);
  //memo1.Lines.Add('server:'+form1.serversocket1.Socket.ReceiveText);
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
 SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
// SetWindowPos(form2.handle,HWND_TOPmost,0,0,0,0,SWP_showWINDOW);
end;

end.