알짜게시판

[Delphi] 실행 중인 프로세스가 활성 창인지 확인하는 함수

IsVisible 함수는 프로세스 이름(ProcessName)으로 현재 활성창인지 확인합니다.

[code] function IsVisible(ProcessName: string): Boolean; var  SnapShot: THandle;  ProcEntry: TProcessEntry32;  ProcList: TList<DWORD>;  function EnumWindowsProc(hWnd: THandle; List: TList<DWORD>): BOOL; stdcall;  var    ProcessID: DWORD;  begin    Result := True;    if IsWindowVisible(hWnd) then    begin      GetWindowThreadProcessId(hWnd, @ProcessID);      List.Add(ProcessID);    end;  end; begin  Result := False;  SnapShot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);  ProcList := TList<DWORD>.Create;  try    EnumWindows(@EnumWindowsProc, LParam(ProcList));    ProcEntry.dwSize := SizeOf(TProcessEntry32);    if Process32First(SnapShot, ProcEntry) then    begin      repeat        if SameText(ProcEntry.szExeFile, ProcessName) then       begin          if ProcList.Contains(ProcEntry.th32ProcessID) then          begin            Result := True;            Exit;          end;       end;      until not Process32Next(SnapShot, ProcEntry);    end;  finally    ProcList.Free;    CloseHandle(SnapShot);  end; end; [/code]

로그인 후 댓글내용을 입력해주세요

번호 제목 글쓴이 조회 날짜
247 [워드프레스] xmlrpc.php 차단으로 보안 강화하기 11,683 06-05
246 [Delphi] 폼이 모니터 한 가운데 있는 경우 자연스럽게 왼쪽으로 이동시키기 21,550 05-26
245 [윈도우] WSH script registration is not valid. 24,964 05-23
244 [워드프레스] 제목 블록 기본값을 H5로 변경하는 방법 25,348 05-22
243 [파이썬] 동영상 특정 영역 모자이크(흐리게) 하기 43,573 04-30
242 [리눅스] 구글 크롬 콘솔 'Attestation check for Topics on' 에러 원인 & 해결방… 58,429 04-11
241 [크롬] 개발자 도구(DevTools)에서 붙여넣기 안될때 71,508 03-10
240 [그누보드] SmartEditor2Skin.html 다운로드 되는 현상 109,608 01-08
239 [윈도우] 네트워크 탐지 113,484 12-31
238 [Delphi] TrayIcon 이 흐릿하게 보이는 버그? 수정 127,586 12-12
열람 [Delphi] 실행 중인 프로세스가 활성 창인지 확인하는 함수 144,924 11-02
236 [Delphi] 메세지 다이어그램(Message Dialog) 에 체크박스(CheckBox) 추가 131,836 10-30
235 [그누보드] 부트스트랩 테마 예제로 사용중인 main.php 115,049 10-21
234 [그누보드] 유튜브 스킨 74,376 10-14
233 [윈도우] TLS 연결 끊김 해결 방법 - Kyber 비활성화 157,901 10-12
232 [PHP] 검색 로봇 접속시 종료 55,974 10-07
231 [윈도우] WinDivert 사용중인 어플리케이션 검색 44,627 09-12
230 [워드프레스] 답글 남기기 메시지 변경 42,433 09-05
229 [리눅스] PHP-FPM 튜닝을 위한 메모리 계산 40,965 08-29
228 [윈도우] 아이폰 벨소리 쉽게 추가하기 93,822 06-14
227 [윈도우] C:\Windows\Installer 폴더 다른 드라이브로 옮기기 104,464 05-29
226 작업 표시줄 (기타 시스템 트레이 아이콘) 제거 프로그램 110,716 05-18
225 [워드프레스] cdn.jsdelivr.net 에서 ssl 인증서 오류 문제 101,866 05-02
224 [그누보드] cdn.jsdelivr.net 에서 ssl 인증서 오류 문제 97,334 05-02
223 [PHP] REQUEST 값 받기(application/json 포함) 98,897 04-20
222 [리눅스] 데몬(systemd service) 작성 및 실행하기 65,856 03-14
221 [PHP] Porto 테마에서 포스팅만 Loading Overlay 58,077 03-08
220 [그누보드] 아이디 대신 이메일로 회원 가입하기 89,308 02-02
219 [시크릿DNS] Kaspersky 백신 사용시 DNS 암호화 관련 3 98,901 01-04
218 [칼무리] 영역화면 크기 오류인 경우 121,922 12-12
217 [MySQL] 업데이트 이후 에러 발생([ERROR] Incorrect definition of table … 91,593 12-08