var r : integer;
i : integer;
procList : Array of String;
procName : string;
begin
procList := ['wps.exe', 'wpscenter.exe', 'wpsupdate.exe', 'wpscloudsvr.exe'];
for i := 0 to length(procList) - 1 do
begin
procName := procList[i];
end;
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.094731092453003 seconds