;savenight虽然只说了两个字，但却说到了点子上，我给你贴一段我自己的代码吧，我Pascal语言不太好，
; 用的是C++Builder，有注释应该能看懂吧
; 我这段程序是做了一个UPX.exe的Shell，通过.res资源文件先将UPX.exe包在我的程序中，用时将其释放
; 出来，用完删掉。其中，管道的主要作用是取得那个DOS程序运行结束时的信息
; btnSelectFile->Enabled = false;
; btnCompress->Enabled = false;
; char UPX[MAX_PATH];
; unsigned long ret;
; //我将UPX.exe改为UPXWaiKe.exe，这里判断在Shell程序所在的目录下，UPXWaiKe.exe是否存在，
; //若没有，将事先包在Shell的UPXWaiKe.exe释放出来，准备使用
; strcpy(UPX, (ExtractFilePath(Application->ExeName)+ AnsiString("UPXWaiKe.exe")).c_str());
; ret = GetFileAttributes(UPX);
; if(ret == 0xffffffff)
; {
; ; TResourceStream *rs = new TResourceStream( (int)HInstance, AnsiString("UPXFile"), "EXEFILE" );
; ; rs->SaveToFile( AnsiString(UPX) );
; ; delete rs;
; }
; AnsiString DelFile = AnsiString(UPX);
; //这里是要向UPXWaiKe.exe传递的参数，实际的命令行是，比如：
; // c:/UPXWaiKe.exe -9 -k c:/aaa.exe ，那么这里的参数部分就应该是 “ -9 -k c:/aaa.exe”
; AnsiString Str_Param;
; Str_Param = " -" + IntToStr(tbrCompressRate->Position+1); //压缩比参数
; if(cbxBackup->Checked) //保存备份参数
; ; Str_Param += " -k";
; Str_Param += " " + SelectFile; //文件名
; strcat(UPX, Str_Param.c_str());
; ///////////////////////////////////////////////////////////////////////////////////
; int FBreak; // 声明一个退出标志
; SECURITY_DESCRIPTOR sd;
; SECURITY_ATTRIBUTES sa;
; LPSECURITY_ATTRIBUTES lpsa = NULL;
; if(IsWindowsNT()) // 判断是否为NT内核
; {
; ; InitializeSecurityDescriptor(&sd, SECURITY_DESCRIPTOR_REVISION);
; ; SetSecurityDescriptorDacl(&sd, true, NULL, false);
; ; sa.nLength = sizeof(SECURITY_ATTRIBUTES);
; ; sa.bInheritHandle = true;
; ; sa.lpSecurityDescriptor = &sd;
; ; lpsa = &sa;
; }
; HANDLE hReadPipe; //建立管道，准备取得UPXWaiKe.exe运行完成时的信息
; HANDLE hWritePipe;
; assert(CreatePipe(&hReadPipe, &hWritePipe, lpsa, 2500000));
; STARTUPINFO si; //设置相关的结构
; memset(&si, 0, sizeof(STARTUPINFO));
; si.cb = sizeof(STARTUPINFO);
; si.dwFlags = STARTF_USESHOWWINDOW | STARTF_USESTDHANDLES;
; si.wShowWindow = SW_HIDE;
; si.hStdOutput = hWritePipe;
; si.hStdError = hWritePipe;
; PROCESS_INFORMATION pi;
; assert(hWritePipe);
; TStringList *Results = new TStringList;
; //执行UPXWaiKe.exe
; if( CreateProcess(NULL,
; ; ; ; ; ; ; ; ; ; UPX,
; ; ; ; ; ; ; ; ; ; NULL,//security
; ; ; ; ; ; ; ; ; ; NULL,// security
; ; ; ; ; ; ; ; ; ; TRUE,//inherits handles
; ; ; ; ; ; ; ; ; ; 0,
; ; ; ; ; ; ; ; ; ; 0,
; ; ; ; ; ; ; ; ; ; 0,
; ; ; ; ; ; ; ; ; ; &si,
; ; ; ; ; ; ; ; ; ; &pi
; ; ; ; ; ; ; ; ; ; ))
; {
; ; //
; ; CloseHandle(pi.hThread);
; ; WaitForSingleObject(pi.hProcess, 90000);
; ; // read from the pipe and put in richedit
; ; assert(hReadPipe);
; ; DWORD BytesRead; //unsigned long
; ; char dest[4000];
; ; bool RdLoopDone = false;
; ; Results->Clear();
; ; FBreak = 1;
; ; while(!RdLoopDone) //将命令行工具的结果写入ResultsRE
; ; {
; ; ; memset(dest, 0, 4000);
; ; ; assert(ReadFile(hReadPipe, &dest, sizeof(dest), &BytesRead, NULL));
; ; ; Results->Text = String(dest);
; ; ; if(BytesRead < 4000)
; ; ; ; RdLoopDone = true;
; ; ; if(FBreak > 150)
; ; ; ; RdLoopDone = true;
; ; ; FBreak++;
; ; }
; }
; CloseHandle(hReadPipe);
; CloseHandle(hWritePipe);
; CloseHandle(pi.hProcess);
; AnsiString SubResults = Trim(Results->Strings[6]);
; AnsiString StrTmp = "";
; Results->Clear();
; if(SubResults[1] == 'U')
; ; MessageBox(NULL,"失败的原因有如下几种可能：/n1.目标文件已经被压缩过或被保护了/n2.目标文件不是应用程序，而是其它打包文件",
; ; ; ; ; "压缩失败",MB_OK|MB_ICONSTOP);
; else
; {
; ; for(int i=1; i<=SubResults.Length(); i++)
; ; {
; ; ; if(SubResults
!= ' ')
; ; ; ; StrTmp += SubResults;
; ; ; else
; ; ; {
; ; ; ; if(SubResults[i-1] != ' ')
; ; ; ; {
; ; ; ; ; Results->Add(StrTmp);
; ; ; ; ; StrTmp = "";
; ; ; ; }
; ; ; }
; ; }
; ; Results->Add(StrTmp);
; ; lblAfterLength->Caption = Results->Strings[2] + "字节";
; ; lblCompressRate->Caption = Results->Strings[3];
; }
; delete Results;
; btnSelectFile->Enabled = true;
; DeleteFile(DelFile);
有什么不明白的，说出来
我是穷人，很想得这100分的说[
][^]
]