■■■■■■请在《谁有类似QQ的局域网通讯的软件源码？急用，谢谢！》给我帮助的人进来吧■■■■■■ (100分)

：）[][]
谢谢各位帮助,这是给分的帖子。不是问问题的帖子，谢谢！

private
UserName : string;
MessageHeader : TStringList;
{ Private declarations }
public
{ Public declarations }
end;

var
frmMain: TfrmMain;

implementation

{$R *.DFM}


procedure TfrmMain.btnSendClick(Sender: TObject);
var
i, res: Integer;
begin
if AddrBox.Text <> '' then
begin
StatusLabel.Font.Color := clBlack;
StatusLabel.Caption := 'Wait... ';
Update;
if AddrBox.Items.IndexOf(AddrBox.Text) = -1 then
AddrBox.Items.Add(AddrBox.Text);
res := SendMsg(AddrBox.Text,'',MessageHeader.Text+mesText.Text);
if res = 0 then
frmMain.StatusLabel.Font.Color := clBlue
else
frmMain.StatusLabel.Font.Color := clRed;
case res of
0 : frmMain.StatusLabel.Caption := 'The message is sent';
87 : frmMain.StatusLabel.Caption := 'The parameter is incorrect';
123 : frmMain.StatusLabel.Caption := 'sintax is incorrect';
2273 : frmMain.StatusLabel.Caption := 'Can not find '+frmMain.AddrBox.Text;
else frmMain.StatusLabel.Caption := 'Error: '+IntToStr(res);
end;
end;
end;


procedure TfrmMain.FormCreate(Sender: TObject);
var
strUser : PChar;
strSize : DWord;
begin
MesText.Lines.Clear;
strUser := StrAlloc(100);
strSize := 100;
GetUserName(strUser,strSize);
UserName := strUser;
StrDispose(strUser);
MessageHeader := TStringList.Create;
MessageHeader.Add('---------------------------------');
MessageHeader.Add(' from '+UserName);
MessageHeader.Add('---------------------------------');
end;


procedure TfrmMain.MesTextChange(Sender: TObject);
begin
StatusLabel.Caption := ' ';
end;

procedure TfrmMain.AddrBoxChange(Sender: TObject);
begin
StatusLabel.Caption := ' ';
end;

end.

老兄：你不要注册那么多账号发同一个问题啊

这也行？！！先看看上面的代码是搞什么的再贴给别人。

：（
来晚了一步，竟然没分了。呵呵