Delphi中对Dos命令的调用

最新推荐文章于 2023-08-01 19:52:18 发布

shansheng

最新推荐文章于 2023-08-01 19:52:18 发布

阅读量3.5k

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi 文章标签： delphi dos class string

本文链接：https://blog.youkuaiyun.com/shansheng/article/details/51412

Delphi 专栏收录该内容

3 篇文章

订阅专栏

博客展示了一段Delphi代码，定义了一个用于发送消息的过程SendmMSG。代码中根据条件执行不同操作，使用CreateProcess函数创建进程来发送消息，若创建失败则显示提示信息，还涉及对文本框内容的处理。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

procedure TForm1.SendmMSG(MessageStr: String); //用于发送消息
var
si : Tstartupinfo;
pi : TProcessInformation;
begin
MessageStr:='net send hostname '+MessageStr;

    if sendcount=-1 then
    begin
    FillChar(si, SizeOf(StartUpInfo), $00);
    si.dwFlags := STARTF_USESHOWWINDOW;
    si.wShowWindow := SW_Hide;
    if CreateProcess(nil, PChar(MessageStr), nil, nil,False,
              IDLE_PRIORITY_CLASS, nil, nil, si,pi) then
    begin
      CloseHandle(pi.hThread);
      CloseHandle(pi.hProcess);
    end else showmessage('sss');
    end else while not (teedit3.Text='0') do
    begin
      FillChar(si, SizeOf(StartUpInfo), $00);
    si.dwFlags := STARTF_USESHOWWINDOW;
    si.wShowWindow := SW_Hide;
    if CreateProcess(nil, PChar(BatchFileName), nil, nil,False,
              IDLE_PRIORITY_CLASS, nil, nil, si,pi) then
    begin
      CloseHandle(pi.hThread);
      CloseHandle(pi.hProcess);
    end else showmessage('sss');
      teedit3.Text:=inttostr(strtoint(trim(teedit3.Text))-1);
      form1.Update;
    end;
end;