Ошибка при компиляции (Delphi)

[alxd]

function MyHook(Code:integer; wParam, lParam: DWord): DWord; stdcall;
var
  WHandle: THandle;
  ProcID: ^DWORD;
begin
  if (wParam=WM_MBUTTONDOWN) then
  begin
    WHandle := GetForegroundWindow;
    GetMem(ProcID, SizeOf(ProcID));
    GetWindowThreadProcessId(WHandle, ProcID);
  end;
  result:=CallNextHookEx(ourHook ,Code, wParam, lParam);
end;

Есть функция, в которой пытаюсь определить ID процесса по хендлу окна. вроде делаю все так, как и описано во множестве источников,
но при компиляции вываливается сообщение

"[Error] Hook.dpr(33): Ambiguous overloaded call to 'GetWindowThreadProcessId'"

Уже и не знаю как быть. Подскажите

[Terran]

Я думаю ошибка не в этой функции. Выложите исходник.

[alxd]

Вот исходник

[Terran]

Всё понятно. Зайдите в исходник и удалите в разделе Uses модуль Wintypes и всё будет работать.

[alxd]

Спасибо! Я так понимаю функция описана сразу в двух местах и компилятор не знает какую выбрать?

[Terran]

Так и есть.

[alxd]

Ясно. Спс!