大佬教程收集整理的这篇文章主要介绍了delphi – 具有优先级参数的CreateProcess?,大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。
这是我到目前为止:
const LOW_PRIORITY = IDLE_PRIORITY_CLASS; //BELOW_NORMAL_PRIORITY = ??? NORMAL_PRIORITY = NORMAL_PRIORITY_CLASS; //ABOVE_NORMAL_PRIROTY = ??? HIGH_PRIORITY = HIGH_PRIORITY_CLASS; REALTIME_PRIORITY = REALTIME_PRIORITY_CLASS; procedure RunProcess(Filename: String; Priority: Integer); var StarTinfo: TStartupInfo; ProcInfo: TProcessInformation; Done: Boolean; begin FillChar(StarTinfo,SizeOf(TStartupInfo),#0); FillChar(ProcInfo,SizeOf(TProcessInformation),#0); StarTinfo.cb := SizeOf(TStartupInfo); try Done := CreateProcess(nil,PChar(FileName),nil,false,CREATE_NEW_PROCESS_GROUP + Priority,StarTinfo,ProcInfo); if not Done then messageDlg('Could not run ' + Filename,mtError,[mbOk],0); finally CloseHandle(ProcInfo.hProcess); CloseHandle(ProcInfo.hThread); end; end;
上面的代码的工作原理是我可以设置执行过程的优先级.但请参阅Windows任务管理器下面的图像:
您可以设置更多选项,例如低于正常和高于正常,这也是我想要设置的.通过Windows.pas看,我没有看到这样的价值.
如何使用这些额外参数创建和运行我的流程?
谢谢 :)
const BELOW_NORMAL_PRIORITY_CLASS = $00004000 ABOVE_NORMAL_PRIORITY_CLASS = $00008000
另外请记住,CreateProcess
修改了第二个参数lpCommandLine,即传递PChar(FileName)的参数.因此,如果调用函数传递一个存在于只读内存中的字符串文字,则代码将失败.我会添加以下行
UniqueString(FileName);
在调用CreateProcess之前.更多信息可以在这里找到:Access Violation in function CreateProcess in Delphi 2009
以上是大佬教程为你收集整理的delphi – 具有优先级参数的CreateProcess?全部内容,希望文章能够帮你解决delphi – 具有优先级参数的CreateProcess?所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。