C
creation-zy
Unregistered / Unconfirmed
GUEST, unregistred user!
我的一个程序用TFindProc控件列出当前系统的全部进程，但我发现它列出的进程比FPE等工具软件
列出的数量要少。以前还可以凑合着用，现在发现了一个大问题：我的程序看不见DOS进程！
如富甲天下2这个DOS游戏。
FPE到底使用了什么技术？最好给出源代码。
以下是TFindProc控件枚举进程的代码：
var
;i:Integer;
;snap ; : THandle;
;pe32 ; : TPROCESSENTRY32;
begin
;snap := 0;
;for i := 0 to fProcessList.Count-1 do
; ;fProcessList.Objects.Free;
;fProcessList.Clear;
;try
; snap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
; if snap < > 0 then begin
; ;pe32.dwSize := SizeOf(TPROCESSENTRY32);
; ;if Process32First(snap, pe32) then begin
; ; AddProcess(pe32);
; ; while Process32Next(snap, pe32) do
; ; ;AddProcess(pe32);
; ;end;
; end;
;finally
; CloseHandle(snap);
;end;
End;
它列出的进程数比FPE少太多了...
列出的数量要少。以前还可以凑合着用，现在发现了一个大问题：我的程序看不见DOS进程！
如富甲天下2这个DOS游戏。
FPE到底使用了什么技术？最好给出源代码。
以下是TFindProc控件枚举进程的代码：
var
;i:Integer;
;snap ; : THandle;
;pe32 ; : TPROCESSENTRY32;
begin
;snap := 0;
;for i := 0 to fProcessList.Count-1 do
; ;fProcessList.Objects.Free;
;fProcessList.Clear;
;try
; snap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
; if snap < > 0 then begin
; ;pe32.dwSize := SizeOf(TPROCESSENTRY32);
; ;if Process32First(snap, pe32) then begin
; ; AddProcess(pe32);
; ; while Process32Next(snap, pe32) do
; ; ;AddProcess(pe32);
; ;end;
; end;
;finally
; CloseHandle(snap);
;end;
End;
它列出的进程数比FPE少太多了...
]
]
]