oracle_lover(数据库情人):果然是oracle_lover转载 当前正在运行的程序的文件名列表 uses tlhelp32;-------------- var lppe:tprocessentry32; sshandle:thandle; found:boolean; begin sshandle:=createtoolhelp32snapshot(th32cs_snapail,0); found:=process32first(sshandle,lppe); while found do begin //进行你的处理其中lppe.szExefile就是程序名。 found:=proccess32next(sshandle,lppe); end; end;//线程用Thread32First,Thread32Next //模块用Module32First,Module32Next //堆用Heap32First,Heap32Next //可执行文件用process32first
当前正在运行的程序的文件名列表
uses tlhelp32;--------------
var
lppe:tprocessentry32;
sshandle:thandle;
found:boolean;
begin
sshandle:=createtoolhelp32snapshot(th32cs_snapail,0);
found:=process32first(sshandle,lppe);
while found do
begin
//进行你的处理其中lppe.szExefile就是程序名。
found:=proccess32next(sshandle,lppe);
end;
end;//线程用Thread32First,Thread32Next
//模块用Module32First,Module32Next
//堆用Heap32First,Heap32Next
//可执行文件用process32first