摘要:
阅读全文
摘要:
//声明: 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));... 阅读全文