如何得到DOS程序运行显示的信息，添加到Memo控件中？

死神贵族

targetHandle := GetWinHandle('ConsoleWindowClass',nil);
SendMessage(targetHandle, WM_GETTEXT, SizeOf(s), Integer(@s));

现在用此方法只能得到题目，可我想要DOS显示的信息内容。

help me!

面面爱面面

绑架Windows控制台,嘎嘎~~

jjandycn

SendMessage,postmessage

njmumu

你可以dos输出到文本文件,然后memo刷新文本文件.
如:
用api的shellexecute 执行dos命令 dir >c:\aa.txt;
memo1.SaveToFile('c:\aa.txt')
就可以了

yjws121

//c++
bool RunCmd(String cmd,TStringList* stringlist)
{
    TMemoryStream *memstream=new TMemoryStream();
    PROCESS_INFORMATION proc;
    STARTUPINFO start;
    SECURITY_ATTRIBUTES sa;
    long ret;
    unsigned long lngBytesread;
    HANDLE hReadPipe,hWritePipe;
    char *strBuff= new char[256];
    if(strBuff==NULL)
    {
        return false;
    }
    sa.nLength = sizeof(SECURITY_ATTRIBUTES);
    sa.bInheritHandle=true;
    sa.lpSecurityDescriptor=NULL;
    ret=CreatePipe(&hReadPipe,&hWritePipe,&sa,0);
    if(ret==0)
    {
        //创建管道失败
        return false;
    }
    memset(&start,0x00,sizeof(STARTUPINFO));
    start.cb=sizeof(STARTUPINFO);
    start.dwFlags=STARTF_USESTDHANDLES | STARTF_USESHOWWINDOW;
    start.hStdOutput=hWritePipe;
    start.hStdError=hWritePipe;
    bool retc=CreateProcess(NULL,cmd.c_str(),NULL,NULL,true, 0, 0, NULL, &start, &proc);
    if(!retc)
    {
        return false;
    }
    CloseHandle(hWritePipe);
    unsigned long len;
    memstream->Position=0;
    while(true)
    {
        memset(strBuff,0x00,256);
        GetFileSize(hReadPipe,&len);
        ret = ReadFile(hReadPipe, strBuff, 256, &lngBytesread,NULL);
        if(ret==0)
        {
            break;
        }
        else
        {
            memstream->Write(strBuff,lngBytesread);
        }
    }
    CloseHandle(proc.hProcess);
    CloseHandle(proc.hThread);
    CloseHandle(hReadPipe);
    memstream->Position=0;
    delete strBuff;
    stringlist->LoadFromStream(memstream);
    memstream->Clear();
    delete memstream;
    return true;
}

冰封世纪

使用管道。。。

dylnnet

有免费的控件。StdIORedirect

死神贵族

我试用管道，

可用CreateProcess启动后，
si: STARTUPINFO;
pi: PROCESS_INFORMATION;
CreateProcess( nil, fname, nil, nil, true, 0, nil, nil, si, pi)

用【pi.dwProcessId】居然取不到结果了，难道都跑到「管道」里了？

goylee

Pipe方法
有很多例子的