Delphi程序流程三(1)(while)PS:顺便写了个最简单的任务管理器(包含申明API 自己申明参数为结构型API 组件LISTVIEW的用法)
2013-06-19 00:57
591 查看
unit Unit1; interface uses Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) btn1: TButton; ListView: TListView; procedure btn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; newitem:TListItem; //超级列表框一定要在这里申明 不知道为什么 //一个程序只用一次就可以了,放在按纽事件里有BUG 坑爹的 implementation type Snapshot32=record //记录类型的名称 A1:Integer; A2:Integer; A3:Integer; A4:Integer; A5:Integer; A6:Integer; A7:Integer; A8:Integer; A9:Integer; A10:array[0..259]of char; end; function CreateToolhelp32Snapshot(x,y: Integer): Integer; stdcall; external 'kernel32.dll' name 'CreateToolhelp32Snapshot'; function Process32Next(x:Integer;VAR y: Snapshot32): Integer; stdcall; external 'kernel32.dll' name 'Process32Next'; function Process32First(x:Integer;VAR y: Snapshot32): Integer; stdcall; external 'kernel32.dll' name 'Process32First'; function CloseHandle(x:Integer): Integer; stdcall; external 'kernel32.dll' name 'CloseHandle'; {$R *.dfm} procedure TForm1.btn1Click(Sender: TObject); var i,x:Integer; m:string; k:Snapshot32; begin ListView.Clear; i:=CreateToolhelp32Snapshot(2,0); k.A1:=1024; x:=Process32First(i,k) ; while x<>0 do begin newitem:=Listview.Items.Add; //要在循环里放入这个 否则他一直加入的是第 //一行 理解的是 超级列表框添加一行 返回新的行数 下面是新行数的标题 和新 //行数的列添加 //循环后再一次添加新一行 ,返回新的行数………依次这样 //超级列表框增加列表项目在 属性 Columns 里设置 然后必须要把属性ViewStyle //设置为vsreport newitem.Caption:=k.A10; newitem.SubItems.Add(IntToStr(k.A3)); x:=Process32Next(i,k); end; CloseHandle(x); end; end.
最简单的几个API 几分钟就可以写起 却在Listview的属性上花了太多时间 界面编程 最好用 最人性化的还是易语言 不说了 都是泪
算是第一个W32程序吧 截图留个纪念
参考书目:Delphi组件大全PDF及源代码
相关文章推荐
- Delphi程序流程三(2)(while)PS:最简单的任务管理器( 组件LISTVIEW的用法 增加LISTVIEW的读取 删除)
- Delphi程序流程(3)(while)(自己构建结构数组写进程管理器 包含动态结构数组的添加)
- 一个简单的tcl/tk程序,包含了几乎所有常用组件的基本用法,仅供自己参考
- Delphi程序API申明调用及参数传址与传值
- (delphi)程序运行过程中等待对话框的自定义组件源码(包含两个提示,进度条,AVI)
- Delphi FastReport组件下载,包含多个版本,自己选择
- 微信小程序picker组件简单用法示例【附demo源码下载】
- delphi写的整合汇编与api的简单的窗口程序
- Delphi中启动项管理 已安装程序卸载简单组件
- 一个用delphi写的整合汇编与api的简单的窗口程序
- android例子程序(ApiDemo)简单分类整理
- epoll的简单用法示例(程序还有bug,但只是为了示例epoll的用法就不改了)
- 常见适配器的用法(在listview中 ,把三个edittext内容放在简单适配器中)
- Delphi ListView基本用法大全
- PullToRefreshListView刷新下拉加载最简单用法
- 自己定义View时,用到Paint Canvas的一些温故,简单的帧动画(动画一 ,"掏粪男孩Gif"顺便再提提onWindowFocusChanged)
- 给自己的java程序生成API帮助文档
- 微信小程序 checkbox组件详解及简单实例
- Delphi中ListView类的用法
- 如何使用Spring Cloud – 简单服务流程(服务发现与API调用)