k := 0; While Integer(ContinueLoop) <> 0 Do Begin If ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) = UpperCase(ExeFileName)) Or (UpperCase(FProcessEntry32.szExeFile) = UpperCase(ExeFileName))) Then inc(k); ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32) ; End; CloseHandle(FSnapshotHandle); Result := k; End;
----------------------------------------------
-