这个问题问了很多次了,搜索先!在Delphi猛料包里面也有!
解决方案 »
- 大侠```你在哪里```
- 我回来了,散分
- Tchartseries与Tlineseries有什么区别和联系呢?
- 有没有这样的COMBOBOX ,有ITEMS 和 items 可对应的另一个值,可以获得那个值的?
- 急求:EXCEL中,如何把内容直接写进文件,而不显示Excel这个软件?
- 如何将字符串类型转成字符类型????????????????????????????????????????????????????????
- 如何用SendMessage函数发送一个带字符串的事件?
- 请教一个问题:新增记录并刷新数据集后定位记录。
- 我刚刚开始学习delphi,不知道是不是应该从头开始由pascal学起?
- 一个比较急的问题。。。。。。。。
- 为庆祝本人第一次进入专家榜(第21位),特大叫三声嘎!嘎!嘎!。。。。。。
- 程序运行出结果后,如何将之弹到最上面,以显示给用户,提醒用户?
先在Form上放一个ListView控件,将ListView的ViewStyle属性值改为vsReport,然后双击ListView,增加两个Column,将Column的width的值设置为200.
然后加一个Button按钮.记得在uses里加入tlhelp32单元.(
其实这些你搜索一下以前的帖子再自己动动手就会了的)在Button的单击事件里:
procedure TForm1.Button1Click(Sender: TObject);
var
Han: THandle;
Process: PROCESSENTRY32;
ok: boolean;
Rec: TListItem;
i:integer;begin //取得系统进程
ListView1.Items.Clear;
i := 0;
Han := CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0);
Process.dwSize := SizeOf(Process);
ok := Process32First(Han, Process);
while ok do
begin
Rec := ListView1.Items.Add;
Rec.Caption := IntToStr(i);
Rec.Caption:=Process.szExeFile ;
Rec.SubItems.Add(IntToStr(Process.th32ProcessID));
i := i+1;
ok := Process32Next(Han,Process);
end;
end;