摘要: function IsRuning(const AObjectName: string): Boolean;{AObjectName='aaa.exe'} var lppe : TProcessEntry32; sshandle: Thandle; found: boolean; begin Result := False; sshandle := CreateToolhelp... 阅读全文
posted @ 2008-06-10 12:03 sonicit 阅读(1109) 评论(0) 推荐(0) 编辑