;先判断程序是否运行,若已经运行,获取程序pid Procedure.l GetPid(Gamename.s) pe.PROCESSENTRY32 pe/dwsize = SizeOf(processentry32) prolist = CreateToolhelp32Snapshot_(#TH32CS_SNAPPROCESS,0) If prolist <> #INVALID_HANDLE_VALUE refs = Process32First_(prolist,pe) While refs ss.s = PeekS(@pe/szexefile) If ss = Gamename pid = OpenProcess_(#PROCESS_ALL_ACCESS,0,pe/th32processid) ProcedureReturn pid EndIf refs = Process32Next_(prolist,pe) Wend EndIf CloseHandle_(prolist) ProcedureReturn EndProcedure Debug TerminateProcess_(GetPid("TheWorld.exe"),0)