oracle_lover(数据库情人)
说得不错,

解决方案 »

  1.   

    我是想用程序判断,windows这个工具我会用。
      

  2.   

    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