摘要: 阅读全文
posted @ 2014-03-19 14:17 梁彦坤 阅读(109) 评论(0) 推荐(0) 编辑
摘要: //声明: GetWindowThreadProcessId( hWnd: HWND; {指定窗口句柄} lpdwProcessId: Pointer = nil {返回进程 ID 的指针} ):DWORD; {返回线程 ID} 第二个参数@变量获得进程ID,nil函数返回线程ID procedure TForm1.FormCreate(Sender: TObject); var c: Cardinal; begin GetWindowThreadProcessId(Handle, @c); ShowMessage(IntToStr(c));... 阅读全文
posted @ 2014-03-19 13:03 梁彦坤 阅读(683) 评论(0) 推荐(0) 编辑