ExecuteDosCmd

procedure TdmAsyncDemo.ExecuteDosCmd(Sender: TObject);
var
  a1:string;
begin
  if assigned(Sender)
  and (Sender is TwhAsyncObject) then
  with TwhAsyncObject(Sender) do
    if not Done then begin
      try
        if assigned(Data) then
          with TThreadInput(Data) do
            a1:= GetDosOutput(DosCmd,GetStrProc) //ucPipe
        else begin
          a1:= ResultString;
          a1:= GetDosOutput(a1,nil);
          end;
      except on e:exception do begin
        ResultValue:=-1;
        a1:=e.message;
        end;
        end;
      ResultString:=a1;
      Done:=True;
      end;
end;