MY_console

program MY_console; {$APPTYPE CONSOLE} uses SysUtils, Windows, shellapi; var ReadOut, WriteOut, ReadIn, WriteIn: THandle; ProcessInfo: TProcessInformation; Security: TSecurityAttributes; StartUpInfo: TStartUpInfo; s: string; label start; //----------------------------------------------------读取管道 function ReadFromPipe(Pipe: THandle): string; var Buffer: PChar; BytesRead: DWord; ReadBuffer: Cardinal; begin Result := ''; if GetFileSize(Pipe, nil) = 0 then Exit; Buffer := AllocMem(ReadBuffer + 1); repeat BytesRead := 0; ReadFile(Pipe, Buffer[0], ReadBuffer, BytesRead, nil); if BytesRead > 0 then begin Buffer[BytesRead] := #0; OemToAnsi(Buffer, Buffer); Result := string(Buffer); end; until (BytesRead < ReadBuffer); FreeMem(Buffer); end; //---------------------------------------------------写管道 procedure WriteToPipe(Pipe: THandle; Value: string); var len: integer; BytesWrite: DWord; Buffer: PChar; begin len := Length(Value) + 1; Buffer := PChar(Value + #10); WriteFile(Pipe, Buffer[0], len, BytesWrite, nil); end; //--------------------------------------------------- begin { TODO -oUser -cConsole Main : Insert code here } begin with Security do begin nLength := SizeOf(TSecurityAttributes); bInheritHandle := true; lpSecurityDescriptor := nil; end; Createpipe(ReadOut, WriteOut, @Security, 0); Createpipe(ReadIn, WriteIn, @Security, 0); FillChar(StartUpInfo, Sizeof(StartUpInfo), #0); StartUpInfo.cb := SizeOf(StartUpInfo); with StartUpInfo do begin hStdOutput := WriteOut; hStdInput := ReadIn; hStdError := WriteOut; dwFlags := STARTF_USESTDHANDLES + STARTF_USESHOWWINDOW; wShowWindow := SW_HIDE; end; CreateProcess(nil, PChar('cmd'), @Security, @Security, true, NORMAL_PRIORITY_CLASS, nil, nil, StartUpInfo, ProcessInfo); {CreateProcess(nil, PChar('cmd'), @Security, @Security, true, DETACHED_PROCESS, nil, nil, StartUpInfo, ProcessInfo); 英文提示} //--------------------------------------------------------------------控制台输入 begin start: readln(s); WriteToPipe(WriteIn, s); Writeln(ReadFromPipe(ReadOut)); //readln; s := ''; goto start; end; end; //------------------------------------ end.

 

 

 

 

 

 

lose