How to get the information displayed by the DOS program running and add it to the Memo control?

死神贵族

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

Now this method can only get the title, but I want the content of the information displayed by DOS.

help me!

面面爱面面

Kidnap the Windows console, quack ~~

jjandycn

SendMessage, postmessage

njmumu

You can dos output to a text file, and then memo refresh the text file.
Such as:
Use the shellexecute of api to execute the dos command dir> c:\aa.txt;
memo1.SaveToFile ('c:\aa.txt')
Just fine

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)
    {
        // Failed to create pipeline
        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;
}

冰封世纪

Use pipes. . .

dylnnet

There are free controls. StdIORedirect

死神贵族

I tried the pipeline,

After starting with CreateProcess,
si: STARTUPINFO;
pi: PROCESS_INFORMATION;
CreateProcess( nil, fname, nil, nil, true, 0, nil, nil, si, pi)

I can't get the result with [pi.dwProcessId], do I all go to the "pipe"?

goylee

Pipe method
There are many examples