知道一个进程的名字如何获得这个进程的hProcess?还有,在ListBox中,如何获得选中的item的名字?
解决方案 »
- 请高手赐教 Delphi7+Rave横向打印显示不了页脚
- 聘:现场评奖投票软件开发
- 急用简单问题:如何给一个控件的事件赋值?
- 各位放分了!告诉我网上关于Delphi的免费书的的奖呀,急需!!!
- 为什么query.sql.add中用"backup" 运行时好象说不认识,该怎么办?在线等待
- 知道对方IP,怎样在程序里确认对方是否在线?
- delphi 5 的乱码问题
- 怎样用delphi做一个时钟触发器(详细见内)
- 两个窗体,一个已经最小化,要求点击另一个窗体时可以将他还原(不是最大化)
- 救命啊!一个关于分离文件的问题!!!!
- 请问高手,这两句语句代表什么么意思?
- 客户端无法执行Update语句,但有些机子又可以,这是怎么回事?
/////////////////////////////////////////////////////
uses ... TLHelp32, ...
type
TForm1 = class(TForm)
...
end;
var
Form1: TForm1;
l : Tlist; ////返回的东东在"L"这个TList中。
type
TProcessInfo = Record
ExeFile : String;
ProcessID : DWORD;
end;
pProcessInfo = ^TProcessInfo;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
var p : pProcessInfo;
i : integer;
ContinueLoop:BOOL;
var
FSnapshotHandle:THandle;
FProcessEntry32:TProcessEntry32;
begin
l := TList.Create;
l.Clear;
FSnapshotHandle:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
FProcessEntry32.dwSize:=Sizeof(FProcessEntry32);
ContinueLoop:=Process32First(FSnapshotHandle,FProcessEntry32);
while integer(ContinueLoop)<>0 do
begin
New(p);
p.ExeFile := FProcessEntry32.szExeFile;
p.ProcessID := FProcessEntry32.th32ProcessID;
l.Add(p);
ContinueLoop:=Process32Next(FSnapshotHandle,FProcessEntry32);
end;
end;
procedure TForm1.FormDestroy(Sender: TObject);
var p : pProcessInfo;
i : integer;
begin
With l do
for i := Count - 1 DownTo 0 do
begin p := items[i]; Dispose(p); Delete(i); end;
end;
...
end.
//////////////////////////////////
获得ListBox中选中的一项
str:=ListBox.items[itemsIndex];
楼主需要多看帮助
获得ListBox中选中的一项
ListBox.items[itemsIndex];
HANDLE handle=::CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);
PROCESSENTRY32 Info;
Info.dwSize = sizeof(PROCESSENTRY32);if(::Process32First(handle,&Info))
{
do
{}
while(::Process32Next(handle,&Info));