[Delphi] 프로세스 리스트

간단하게 프로세스 리스트를 메모장에 출력하는 함수.

아래 함수를 Timer나 Thread 로 돌리면 작업관리자 간지가 남.

 

uses 에 TlHelp32 추가

 

1. procedure ProcList;
2. var
3.   Process32: TProcessEntry32;
4.   H: THandle;
5.   Next: Boolean;
6.   s: String;
7. begin
8.   Process32.dwSize:=SizeOf(Process32);
9.   H:=CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
10.  
11.   if Process32First(H, Process32) then begin
12.     repeat
13.       Next:=Process32Next(H, Process32);
14.       s:=s+#13#10+Process32.szExeFile;
15.     until not Next;
16.     Form1.Memo1.Text:=s;
17.   end;
18. end;