谁能帮助分析一下这个程序？(100分)

dream_flyer · 2002-04-22

procedure TForm1.Button1Click(Sender: TObject);  procedure 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   With Security do begin    nlength              := SizeOf(TSecurityAttributes);    binherithandle       := true;    lpsecuritydescriptor := nil;   end;   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),           @Security,           @Security,           true,           NORMAL_PRIORITY_CLASS,           nil,           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;  begin {button 1 code}    RunDosInMemo('ping 10.43.0.1',Memo1);  end; 上述程序似乎只能回显ping、ipconfig等命令，我将命令参数换成 'd:/.../tpc.exe d:/...pas'产生问题不能回显

谁能帮助分析一下这个程序？(100分)

dream_flyer

Unregistered / Unconfirmed

Similar threads