摘要: function TForm1.GetHWndByPID(const hPID: THandle): THandle; type PEnumInfo = ^TEnumInfo; TEnumInfo = record ProcessID: DWORD; HWND: THandle; end; func 阅读全文
posted @ 2023-05-30 16:14 lucken 阅读(351) 评论(0) 推荐(0)
摘要: // 下面的GetProcessNameById函数如下uses TLhelp32;function GetProcessNameById(const AID: Integer): String;var h:thandle; f:boolean; lppe:tprocessentry32;begin 阅读全文
posted @ 2023-05-30 14:10 lucken 阅读(194) 评论(0) 推荐(0)