用Delphi编写系统进程监控程序_网学

网站导航：免费论文原创论文论文搜索原创论文网学软件学术大家资料中心会员中心问题解答原创论文论文素材设计下载最新论文下载排行论文上传在线投稿联系我们

C++ VB ASP VF DELPHI JSP 电气计算机经济打包下载查询工具设计案例教授专家实用代码网页配色便捷工具表单美化免费论文可用论文论文培训时间与效率 DIV技术 JS代码百宝箱设计师 AJAX代码 GIF素材背景图片网页图标 QQ表情 png图标动画素材 PPT模板 DIVCSS模板企业模板韩国模板日本模板欧美模板个人模板节庆模板实用工具 Psd素材 QQ专栏 CAJ文档游戏评论游戏攻略游戏赏析游戏前瞻游戏新闻游戏帮助游戏秘籍游戏补丁国外课件本科课件网络课件原创设计原创下载原创论文网站维护(新) 虚拟实验,在线实验系统口才培训驾照考试酒后代驾设计定作设计专题计算机原创网络教育收录查询 ASP,网站,C/S,设计等定作
栏目导航： DELPHI

当前位置：网学 > 编程文档 > DELPHI > 正文

用Delphi编写系统进程监控程序

来源：Http://myeducs.cn 联系QQ：

点击这里给我发消息

作者：用户投稿来源：网络发布时间： 12/10/12

下载{$ArticleTitle}原创论文样式

boutProc.Items.Clear;
          lblCountSysProc.caption:=inttostr(lvSysProc.items.count);
          lblCountAboutProc.caption:='''';
        end
      end;
    end;
  end;
end;

procedure TForm1.lvSysProcClick(Sender: TObject);
var
  newitem2:Tlistitem;
  clp:bool;
begin
  if lvSysProc.selected<>nil then
  begin
    idid:=strtoint(''

上一页 1 2 3 4 5 下一页

点击进入论坛和大家一起交流设计,分享设计素材,结交设计朋友

上一篇资讯：发布程序时对ODBC数据源的配置方法

下一篇资讯：使用TNMSMTP控件在需认证服务器上发送邮件

相关资讯

网学推荐

免费论文

原创论文

文章排行榜

· Delphi RTTI的使用例子

· delphi直接执行sql生成的数据库脚本

· Delphi从INI文件载入语言包

· delphi利用ini文件实现界面无闪烁多

· 关于DELPHI程序多语言支持的问题

· delphi中国际化的几种方案及比较

· Delphi2010 RTTI + Attribute 简单

· Delphi 自定义数据层对象的释放

· Delphi适应多种数据库之间存取操作

· Delphi开发Windows服务程序教程

· 用Delphi学设计模式之工厂方法篇

· Dll中导出类--运用了多态的思想得到

· Delphi下DLL调用以及共享数据库连接

· Delphi中DLL封装业务逻辑的实现

· Delphi中DLL封装对象的几种方法整理

· DELPHI定义的条件编译的全部说明

· 解决delphi2010 无法继承窗体的bug

· Mainmenu控件的使用方法详解.doc

设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心

版权所有 QQ:3710167 邮箱：3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是像素
Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved
湘ICP备09003080号

'+lvSysProc.itemfocused.subitems[0]);
    lvAboutProc.items.Clear;
    fshandle:=CreateToolhelp32Snapshot(th32cs_snapmodule,idid);
    fm32.dwsize:=sizeof(fm32);
    clp:=Module32First(fshandle,fm32);
    while integer(clp)<>0 do
    begin
      newitem2:=lvAboutProc.Items.add;
      with newitem2 do
      begin
        caption:=fm32.szexepath;
        with newitem2.subitems do
        begin
          add(IntToHex(fm32.th32moduleid,4));
          add(IntToHex(fm32.GlblcntUsage,4));
          add(IntToHex(fm32.proccntUsage,4));
        end;
      end;
      clp:=Module32Next(fshandle,fm32);
    end;
    closehandle(fshandle);
    lblCountAboutProc.Caption:=IntToStr(lvAboutProc.items.count);
  end
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  with application do
  begin
    showwindow(handle,SW_HIDE);    //隐藏任务栏上的任务按钮
    OnMinimize:=AppOnMinimize;     //最小化时自动隐藏
    OnDeactivate:=FormDeactivate;  //不活动时自动隐藏
    OnActivate:=btnRefreshClick;
  end;
  RegisterServiceProcess(GetcurrentProcessID,1); //将程序注册为系统服务程序，以避免出现在任务列表中
  with SysTrayIcon do
  begin
    cbSize:=sizeof(SysTrayIcon);
    wnd:=Handle;
    uID:=SYSTRAY_ID;
    uFlags:=NIF_ICON OR NIF_MESSAGE OR NIF_TIP;
    uCallBackMessage:=WM_SYSTRAYMSG;
    hIcon:=Application.Icon.Handle;
    szTip:=''系统进程监控'';
  end;
  Shell_NotifyIcon(NIM_ADD,@S

上一页 1 2 3 4 5 下一页

点击进入论坛和大家一起交流设计,分享设计素材,结交设计朋友

上一篇资讯：发布程序时对ODBC数据源的配置方法

下一篇资讯：使用TNMSMTP控件在需认证服务器上发送邮件

相关资讯

网学推荐

免费论文

原创论文

文章排行榜

· Delphi RTTI的使用例子

· delphi直接执行sql生成的数据库脚本

· Delphi从INI文件载入语言包

· delphi利用ini文件实现界面无闪烁多

· 关于DELPHI程序多语言支持的问题

· delphi中国际化的几种方案及比较

· Delphi2010 RTTI + Attribute 简单

· Delphi 自定义数据层对象的释放

· Delphi适应多种数据库之间存取操作

· Delphi开发Windows服务程序教程

· 用Delphi学设计模式之工厂方法篇

· Dll中导出类--运用了多态的思想得到

· Delphi下DLL调用以及共享数据库连接

· Delphi中DLL封装业务逻辑的实现

· Delphi中DLL封装对象的几种方法整理

· DELPHI定义的条件编译的全部说明

· 解决delphi2010 无法继承窗体的bug

· Mainmenu控件的使用方法详解.doc

设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心

版权所有 QQ:3710167 邮箱：3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是像素
Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved
湘ICP备09003080号