尋找進程

function FindProcWnd(exename: string): boolean; var hSS: THandle; ppp: TProcessEntry32; dwPID: DWORD; msl: string; mrest: boolean; i: integer; begin mrest := False; GetWindowThreadProcessID(0, @dwPID); hSS := CreateToolhelp32Snapshot(TH32CS_SNAPProcess, dwPID); if Process32First(hSS, ppp) then begin while Process32Next(hSS, ppp) do begin msl := AnsiUppercase(strpas(ppp.szExeFile)); if msl = AnsiUppercase(exename) then begin mrest := True; break; end; end; end; closeHandle(hSS); result := mrest; end;