索尼爱立信c702(三星u6)-听风

今天给各位分享索尼爱立信c702的知识，其中也会对三星u6进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文导读目录：

2、台式电脑配置清单及价格表2021(台式电脑配置大全)

createpipe（delphi创建一个进程并返回进程的PID

代码如下：functionTForm.ReadFromPipe(Pipe:THandle):string;varBuffer:PChar;BytesRead:DWord;beginResult:=’’;ifGetFileSize(Pipe,nil)=thenExit;Buffer:=AllocMem(ReadBuffer+);repeatBytesRead:=;ReadFile(Pipe,Buffer,ReadBuffer,BytesRead,nil);ifBytesRead》thenbeginBuffer:=#;OemToAnsi(Buffer,Buffer);Result:=string(Buffer);end;until(BytesRead《ReadBuffer);FreeMem(Buffer);end;procedureTForm.TimerTimer(Sender:TObject);vars:string;begins:=ReadFromPipe(ReadOut);ifs《》’’thenbeginMemo.Lines.Text:=Memo.Lines.Text+s;Memo.SelStart:=Length(Memo.Lines.Text);Memo.SelLength:=;end;end;在下方的输入框内输入命令之后,代码如下：procedureTForm.WriteToPipe(Pipe:THandle;Value:string);varlen:integer;BytesWrite:DWord;Buffer:PChar;beginlen:=Length(Value)+;Buffer:=PChar(Value+#);WriteFile(Pipe,Buffer,len,BytesWrite,nil);end;procedureTForm.ButtonClick(Sender:TObject);beginifTrim(cbCmd.Text)《》’’thenbeginWriteToPipe(WriteIn,cbCmd.Text);ifcbCMD.ItemIndex》-thencbCMD.Items.Delete(cbCMD.ItemIndex);cbcmd.Items.Insert(,cbCmd.Text);cbCmd.Text:=’’;end;end;这里要注意的是发送命令行的时候必须添加换行字符#,本文目录delphi创建一个进程并返回进程的PIDdelphi创建一个进程并返回进程的PID程序设计思路:首先,利用WINAPI函数Createpipe建立两个管道(Pipe),然后建立利用CreateProcess函数创建一个控制台程序的进程（这里使用的是Win的Dos控制台cmd.exe,并且在StartUpInfo参数中指定用刚才建立的三个管道替换标准的输入hStdOutput输出hStdInput以及错误输出设备hStdError,代码如下：procedureTForm.InitConsole;varSecurity:TSecurityAttributes;start:TStartUpInfo;beginwithSecuritydobeginnlength:=SizeOf(TSecurityAttributes);binherithandle:=true;lpsecuritydescriptor:=nil;end;Createpipe(ReadOut,WriteOut,Security,);Createpipe(ReadIn,WriteIn,Security,);withSecuritydobeginnlength:=SizeOf(TSecurityAttributes);binherithandle:=true;lpsecuritydescriptor:=nil;end;FillChar(Start,Sizeof(Start),#);start.cb:=SizeOf(start);start.hStdOutput:=WriteOut;start.hStdInput:=ReadIn;start.hStdError:=WriteOut;start.dwFlags:=STARTF_USESTDHANDLES+STARTF_USESHOWWINDOW;start.wShowWindow:=SW_HIDE;CreateProcess(nil,PChar(’cmd’),Security,Security,true,N ORMAL_PRIORITY_CLASS,nil,nil,start,ProcessInfo)end;然后利用一个定时器,从对应输出设备的管道中读取控制台返回的信息,则通过向输入设备对应的管道发送命令来实现命令行的输入,才能被Dos控制台接受并执行,并显示。

索尼爱立信c702(三星u6)

delphi创建一个进程并返回进程的PID

程序设计思路:首先,利用WINAPI函数Createpipe建立两个管道(Pipe),然后建立利用CreateProcess函数创建一个控制台程序的进程（这里使用的是Win的Dos控制台cmd.exe,并且在StartUpInfo参数中指定用刚才建立的三个管道替换标准的输入hStdOutput输出hStdInput以及错误输出设备hStdError。代码如下：procedureTForm.InitConsole;varSecurity:TSecurityAttributes;start:TStartUpInfo;beginwithSecuritydobeginnlength:=SizeOf(TSecurityAttributes);binherithandle:=true;lpsecuritydescriptor:=nil;end;Createpipe(ReadOut,WriteOut,Security,);Createpipe(ReadIn,WriteIn,Security,);withSecuritydobeginnlength:=SizeOf(TSecurityAttributes);binherithandle:=true;lpsecuritydescriptor:=nil;end;FillChar(Start,Sizeof(Start),#);start.cb:=SizeOf(start);start.hStdOutput:=WriteOut;start.hStdInput:=ReadIn;start.hStdErr or:=WriteOut;start.dwFlags:=STARTF_USESTDHANDLES+STARTF_USESHOWWINDOW;start.wShowWindow:=SW_HIDE;CreateProcess(nil,PChar(’cmd’),Security,Security,true,NORMAL_PRIORITY_CLASS,nil,nil,start,ProcessInfo)end;然后利用一个定时器，从对应输出设备的管道中读取控制台返回的信息，并显示。代码如下：functionTForm.ReadFromPipe(Pipe:THandle):string;varBuffer:PChar;BytesRead:DWord;beginResult:=’’;ifGetFileSize(Pipe,nil)=thenExit;Buffer:=AllocMem(ReadBuffer+);repeatBytesRead:=;ReadFile(Pipe,Buffer,ReadBuffer,BytesRead,nil);ifBytesRead》thenbeginBuffer:=#;OemToAnsi(Buffer,Buffer);Result:=string(Buffer);end;until(BytesRead《ReadBuffer);FreeMem(Buffer);end;procedureTForm.TimerTimer(Sender:TObject);vars:string;begins:=ReadFromPipe(ReadOut);ifs《》’’thenbeginMemo.Lines.Text:=Memo.Lines.Text+s;Memo.SelStart:=Length(Memo.Lines.Text);Memo.SelLength:=;end;end;在下方的输入框内输入命令之后，则通过向输入设备对应的管道发送命令来实现命令行的输入，代码如下：procedureTForm.WriteToPipe(Pipe:THandle;Value:string);varlen:integer;BytesWrite:DWord;Buffer:PChar;beginlen:=Length(Value)+;Buffer:=PChar(Value+#);WriteFile(Pipe,Buffer,len,BytesWrite,nil);end;procedureTForm.ButtonClick(Sender:TObject);beginifTrim(cbCmd.Text)《》’’thenbeginWriteToPipe(WriteIn,cbCmd.Text);ifcbCMD.ItemIndex》-thencbCMD.Items.Delete(cbCMD.ItemIndex);cbcmd.Items.Insert(,cbCmd.Text);cbCmd.Text:=’’;end;end;这里要注意的是发送命令行的时候必须添加换行字符#，才能被Dos控制台接受并执行