谢谢!
解决方案 »
- 各位帮帮我做一个mfc通讯录课程设计(有界面的)
- 发张图片测试一下,看看是不是自己的 IP 地址?
- 数据导入导出
- 什么叫windows软件开发?
- 散分!只要能提供完整正确的Jeffrey Richter的《Windows 核心编程》的源代码。先来者先得!
- 在进行网络程序设计时,阻塞和非阻塞与同步异步分别是什么意思,阻塞和非阻塞与同步异步之间是否有什么关系??高手祥解一下啊?
- 请问有人实现过进度条吗 MFC
- ATL activex如何刷新控件-〉最后10分了:(
- 这样都行啊----老板是写软件的好沟通的很,干活痛快
- 放分!VC大突破!!!
- wry.dll的格式,怎么创建临时文件!
- 请问如何在一个菜单项前打上一个对号?在程序里如何写??谢谢!
strYour.Format("%s",date +%C%y%m%d )
strYour.Format("%d",date +%C%y%m%d );
var
HRead,HWrite:THandle;
StartInfo:TStartupInfo;
ProceInfo:TProcessInformation;
b:Boolean;
sa:TSecurityAttributes;
inS:THandleStream;
sRet:TStrings;
begin
Result := '';
FillChar(sa,sizeof(sa),0);
//ÉèÖÃÔÊÐí¼Ì³Ð£¬·ñÔòÔÚNTºÍ2000ÏÂÎÞ·¨È¡µÃÊä³ö½á¹û
sa.nLength := sizeof(sa);
sa.bInheritHandle := True;
sa.lpSecurityDescriptor := nil;
b := CreatePipe(HRead,HWrite,@sa,0);
CheckResult(b); FillChar(StartInfo,SizeOf(StartInfo),0);
StartInfo.cb := SizeOf(StartInfo);
StartInfo.wShowWindow := SW_HIDE;
//ʹÓÃÖ¸¶¨µÄ¾ä±ú×÷Ϊ±ê×¼ÊäÈëÊä³öµÄÎļþ¾ä±ú,ʹÓÃÖ¸¶¨µÄÏÔʾ·½Ê½
StartInfo.dwFlags := STARTF_USESTDHANDLES+STARTF_USESHOWWINDOW;
StartInfo.hStdError := HWrite;
StartInfo.hStdInput := GetStdHandle(STD_INPUT_HANDLE);//HRead;
StartInfo.hStdOutput := HWrite; b := CreateProcess(PChar(Prog),//lpApplicationName: PChar
PChar(CommandLine), //lpCommandLine: PChar
nil, //lpProcessAttributes: PSecurityAttributes
nil, //lpThreadAttributes: PSecurityAttributes
True, //bInheritHandles: BOOL
CREATE_NEW_CONSOLE,
nil,
PChar(Dir),
StartInfo,
ProceInfo ); CheckResult(b);
WaitForSingleObject(ProceInfo.hProcess,INFINITE);
GetExitCodeProcess(ProceInfo.hProcess,ExitCode); inS := THandleStream.Create(HRead);
if inS.Size>0 then
begin
sRet := TStringList.Create;
sRet.LoadFromStream(inS);
Result := sRet.Text;
sRet.Free;
end;
inS.Free; CloseHandle(HRead);
CloseHandle(HWrite);
end;