我參考

http://delphi.ktop.com.tw/board.php?cid=30&fid=72&tid=53886

http://delphi.ktop.com.tw/board.php?cid=30&fid=72&tid=82894

http://www.hkitn.com/article.php/2752

http://www.programmer-club.com/pc2020v5/forum/showsametitleN.asp?board_pc2020=vc&id=26050

的文章，嘗試寫一個重導console的stdout、stdin的function(在bcb及vc中)

可是在CreatePipe 時就false了，用GetLastError得到的error code 是998，

用msdn去查是

想請問名位高手，這個問題要如何去解決呢？

以下是我的code..

[code]

String cstrTmp,cstrPasswd;
char chTmp[100];

SECURITY_ATTRIBUTES Security;
PHANDLE ReadPipe,WritePipe;
STARTUPINFO start;
PROCESS_INFORMATION ProcessInfo;
char Buffer[2400];
DWORD BytesRead;
DWORD Apprunning;
int ReadBuffer = 2400;

Security.nLength = sizeof(Security);
Security.bInheritHandle = true;

bool isTest = CreatePipe(ReadPipe, WritePipe, &Security , 0);//就是這裡建不起來
if(isTest)
{
memset(&start,0,sizeof(start));
start.cb = sizeof(start);
start.hStdOutput = WritePipe;
start.hStdInput = ReadPipe;
start.dwFlags = STARTF_USESTDHANDLES | STARTF_USESHOWWINDOW;
start.wShowWindow = SW_HIDE;
}
else
{ //這裡取得的errorcode是998
ReadBuffer = GetLastError();
}

cstrTmp = "E:\\VC_Source\\TEST\\TestReDirStdOut\\Debug\\jut listall";
strcpy(chTmp,cstrTmp.c_str());

isTest = CreateProcess(NULL,chTmp,&Security,&Security,true,NORMAL_PRIORITY_CLASS,
NULL,NULL,&start,&ProcessInfo);
if(isTest)
{
Apprunning = WaitForSingleObject(ProcessInfo.hProcess,5000);
}

do{
BytesRead = 0;
ReadFile(ReadPipe,(void *)Buffer,ReadBuffer,&BytesRead,NULL);
Buffer[BytesRead] = 0;
OemToChar(Buffer,Buffer);
Memo->Lines->Add(Buffer);
}while(BytesRead < ReadBuffer);

CloseHandle(ProcessInfo.hProcess);
CloseHandle(ProcessInfo.hThread);
CloseHandle(ReadPipe);
CloseHandle(WritePipe);

[/code]

自已問自已答...

原因出在HANDLE的宣告上

CreatePipe用的是HANDLE的位址，但我傳入的位址卻沒有先配址，

最後改為isTest = CreatePipe (&ReadPipe, &WritePipe, &Security , 2400);

且宣告為HANDLE ReadPipe, WritePipe;

就解決了^^