haiou327’blog

procedure RunDosInMemo(const DosApp: string; AMemo: TMemo); const {设置ReadBuffer的大小} ReadBuffer = 2400; var Security: TSecurityAttributes; ReadPipe, WritePipe: THandle; start: TStartUpInfo; ProcessInfo: TProcessInformation; Buffer: PC

implementation {$R *.dfm} function WinExecAndWait32(FileName: string; Visibility: Integer; var mOutputs: string): Cardinal; var sa: TSecurityAttributes; hReadPipe, hWritePipe: THandle; ret: BOOL; strBuff: array[0..255] of char; lngBytesre

var Security: TSecurityAttributes; start: TStartUpInfo; ProcessInfo: TProcessInformation; implementation {$R *.dfm} var ReadOut, WriteOut, ReadIn, WriteIn: Cardinal; procedure InitConsole; begin with Security do begin nlength := S

在Delphi中运用Windows管道技术简述 Windows管道技术简述 不知你是否用过这样的程序，他们本身并没有解压缩的功能，而是调用DOS程序PKZIP完成ZIP包的解压缩。但是在程序运行时又没有DOS控制台的窗口出现而且一切本应该在DOS下显示的信息都出现在了那个安装程