用TerminateProcess怎么老死机(45分)

crazymoon · 2003-04-08

用在定时器里，一会就死机 try   closehandle(HSnapshot); except   end;   HSnapshot:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);   Lppe1.dwSize:=Sizeof(Lppe);   Found1:=Process32First(HSnapshot,Lppe1);   while Found1 do   begin     try       if Lppe1.szExeFile=ExeFileName then       begin          try         HProcess:=OpenProcess(PROCESS_ALL_ACCESS or PROCESS_TERMINATE,FALSE,Lppe1.th32ProcessID);                 //终止进程         result:= TerminateProcess(HProcess,0) ;                   try                   closehandle(HProcess);                   except                   end;         exit;         except         end;         exit;       end;     except      end;     Found1:=Process32Next(HSnapshot,Lppe1);   end;

creation-zy · 2003-04-08

老大，你怎么把资源释放放在最前面？放在末尾试一试？（Delphi的局部变量的初始值是不定的）

crazymoon · 2003-04-08

function CloseProgram(ExeFileName:string):boolean; begin try   HSnapshot:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);   Lppe1.dwSize:=Sizeof(Lppe);   Found1:=Process32First(HSnapshot,Lppe1);   while Found1 do   begin     try       if Lppe1.szExeFile=ExeFileName then       begin          try         HProcess:=OpenProcess(PROCESS_ALL_ACCESS or PROCESS_TERMINATE,FALSE,Lppe1.th32ProcessID);         result:= TerminateProcess(HProcess,0) ;                   try                   closehandle(HProcess);                   except                   end;               except         end;         exit;       end;     except      end;     Found1:=Process32Next(HSnapshot,Lppe1);   end;   finally    closehandle(HSnapshot);    end; end;

jdhx_ren · 2003-05-27

crazymoon · 2003-05-27

接受答案了.

用TerminateProcess怎么老死机(45分)

crazymoon

Unregistered / Unconfirmed

creation-zy

Unregistered / Unconfirmed

crazymoon

Unregistered / Unconfirmed

jdhx_ren

Unregistered / Unconfirmed

crazymoon

Unregistered / Unconfirmed

Similar threads