代码之家 › 专栏 › 技术社区 › junmats

确定其他应用程序是否正忙

redirect delphi-7 console delphi

junmats · 技术社区 · 17 年前

如何检查其他应用程序是否忙?

我有一个向控制台发送文本的程序。我将发送的文本包含13个字符(例如 ls#13cd documents#13dir )换句话说,我希望一次发送多个命令,控制台将逐个处理这些命令。我正在一个字符一个字符地发送文本。有时控制台只执行 ls 和 cd documents . 我想这可能是因为我的程序连续发送字符,即使控制台很忙,在这种情况下,控制台不接收传入字符。

这是我的代码:

procedure TForm1.SendTextToAppO(Str: String; AHandle: Integer);
var
  iWindow, iPoint, i: Integer;
  SPass: PChar;
  sList: TStringList;
begin
sList := TStringList.Create;
  ExtractStrings([#13],[' '],PChar(Str),sList);
  iWindow := AHandle;// AHandle is the handle of the console
  iPoint := ChildWindowFromPoint(iWindow, Point(50,50));
  for i:=0 to sList.Count-1 do begin
    SPass := PChar(sList[i]);
    try
      while(SPass^ <> #$00) do begin
      SendMessage(iPoint,WM_CHAR,Ord(SPass^),0);
      Inc(SPass);
      end;
      SendMessage(iPoint,WM_KEYDOWN,VK_RETURN,0);
    except
        // do nothing;
    end;
  end;
end;

我用的是Delphi7。