알짜게시판

[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]

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

번호 제목 글쓴이 조회 날짜
78 [윈도우] 브라우저 환경설정 추출 14,661 06-18
77 [윈도우] 네트워크 탐지 113,534 12-31
76 [Delphi] TrayIcon 이 흐릿하게 보이는 버그? 수정 127,625 12-12
열람 [Delphi] 실행 중인 프로세스가 활성 창인지 확인하는 함수 144,958 11-02
74 [Delphi] 메세지 다이어그램(Message Dialog) 에 체크박스(CheckBox) 추가 131,867 10-30
73 [그누보드] 부트스트랩 테마 예제로 사용중인 main.php 115,101 10-21
72 [그누보드] 유튜브 스킨 74,426 10-14
71 [윈도우] TLS 연결 끊김 해결 방법 - Kyber 비활성화 168,661 10-12
70 [윈도우] WinDivert 사용중인 어플리케이션 검색 44,676 09-12
69 [워드프레스] 답글 남기기 메시지 변경 42,469 09-05
68 작업 표시줄 (기타 시스템 트레이 아이콘) 제거 프로그램 120,063 05-18
67 [워드프레스] cdn.jsdelivr.net 에서 ssl 인증서 오류 문제 101,897 05-02
66 [그누보드] cdn.jsdelivr.net 에서 ssl 인증서 오류 문제 97,372 05-02
65 [PHP] Porto 테마에서 포스팅만 Loading Overlay 58,110 03-08
64 [그누보드] 아이디 대신 이메일로 회원 가입하기 89,364 02-02
63 [시크릿DNS] Kaspersky 백신 사용시 DNS 암호화 관련 3 98,957 01-04
62 [칼무리] 영역화면 크기 오류인 경우 121,965 12-12
61 HTTPS/DNS 차단 쉽게 이해하기 84,793 08-16
60 ChangeDNS - DNS 서버를 손쉽게 변경합니다. 86,647 08-13
59 [그누보드] 사이드바 만들기 105,794 05-04
58 [Delphi] 파일 포맷 알아내기 51,421 09-08
57 [PHP] 파일 포맷 알아내기 45,604 08-23
56 [그누보드] 웹폰트 적용하기 46,445 08-13
55 [그누보드] CKEditor 5 플러그인 107,621 08-11
54 [시크릿DNS] 프록시 혼합 사용 예제 2 480,909 08-07
53 [리눅스] 웹서버 상태 확인 후 자동 재시작 쉘 스크립트 41,229 02-28
52 WinDivert 1753 에러 발생시 41,024 12-20
51 WinDivert 서비스 종료 49,800 02-08
50 [윈도우] 윈도우 서버 2016 IIS 중지 9,022 01-29
49 [그누보드] 새 글 정리하기 4,049 01-28
48 WinDivert 오류코드 4,338 01-24
목록