Question

delphi 调用cmd net send user message

如何用delphi cmd 命令行 实现2000或者xp下发送信息的功能
命令行运行 net send 用户名 发送的信息
用delphi做一个两个编辑框,第一个输入用户名,第二个输入要发送的信息
然后下面一个 "发送按钮"
发送后 文本编辑框内容自动清空
procedure TForm1.Button1Click(Sender: TObject);

var
s:string;
begin
s:='net send'+Edit1.Text+edit2.text;
ShellExecute(Handle,nil,'cmd.exe',pchar(s),nil,SW_shownormal);

end;
这样为什么不行,我是新手,基础的东西还不懂.

Answer 1

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
s:String;
Hand:THandle;
begin
if Key=13 then
begin
s:='/k net send '+Edit1.Text;
ShellExecute(Handle,nil,'cmd.exe',pchar(s),nil,SW_HIDE);//把cmd窗口隐藏
Hand:=FindWindow(nil,'c:\winnt\system32\cmd.exe');//找CMD句柄
if Hand<>0 then//如果找到句
SendMessage(Hand,WM_CLOSE,0,0);//关闭隐藏的CMD窗口
end;
end;

界面只有一个tedit控件，最前面跟电脑名或IP，按回车键发送消息
这是我一直在用的，如果要做到你所说的界面，那你自己改一点点就行了。

呵呵 不好意思，忘记告诉你要引用ShellAPI单元。