这个 solution怎么样

编辑：链接导致了这个解决方案(轻轻地重构了可读性和删除使用)：

@H_301_8@// The example runs 'chkdsk.exe c:\' and displays the output to Memo1. // Put a TMemo (Memo1) and a TButton (Button1) on your form. Put this // code in the OnCLick event procedure for Button1: procedure TForm1.RunDosInMemo(DosApp:String;AMemo:TMemo) ; const ReadBuffer = 2400; var Security : TSecurityAttributes; ReadPipe,WritePipe : THandle; start : TStartUpInfo; ProcessInfo : TProcessInformation; Buffer : Pchar; BytesRead : DWord; Apprunning : DWord; begin Security.nlength := SizeOf(TSecurityAttributes) ; Security.binherithandle := true; Security.lpsecuritydescriptor := nil; if Createpipe (ReadPipe,WritePipe,@Security,0) then begin Buffer := AllocMem(ReadBuffer + 1) ; FillChar(Start,Sizeof(Start),#0) ; start.cb := SizeOf(start) ; start.hStdOutput := WritePipe; start.hStdInput := ReadPipe; start.dwFlags := STARTF_USESTDHANDLES + STARTF_USESHOWWINDOW; start.wShowWindow := SW_HIDE; if CreateProcess(nil,PChar(DosApp),true,NORMAL_PRIORITY_CLASS,nil,start,ProcessInfo) then begin repeat Apprunning := WaitForSingleObject(ProcessInfo.hProcess,100); Application.ProcessMessages; until (Apprunning <> WAIT_TIMEOUT) ; repeat BytesRead := 0; ReadFile(ReadPipe,Buffer[0],ReadBuffer,BytesRead,nil) ; Buffer[BytesRead]:= #0; OemToAnsi(Buffer,Buffer) ; AMemo.Text := AMemo.text + String(Buffer) ; until (BytesRead < ReadBuffer) ; end; FreeMem(Buffer) ; CloseHandle(ProcessInfo.hProcess) ; CloseHandle(ProcessInfo.hThread) ; CloseHandle(ReadPipe) ; CloseHandle(WritePipe) ; end; end; procedure TForm1.Button1Click(Sender: TObject) ; begin RunDosInMemo('chkdsk.exe c:\',Memo1) ; end;