Скачать: CL | DM;

переход с Delphi5 на Delphi6   Найти похожие ветки 

← →
qwertXX   (2002-12-03 10:53) [0]

Доброе время суток! помогите решить проблемму: при установке компонента в Delphi6 (Delphi3-5 все проходит благополучно) выдается сообщение: "ambiguous overloaded call to "GetWindowThreadProcessId"".

в коде:
hMouseMoveHook := SetWindowsHookEx(WH_MOUSE, OnMouseMoveHook, 0,
GetWindowThreadProcessId(Application.Handle, nil));

---

← →
Skier ©   (2002-12-03 11:03) [1]

>qwertXX

Попробуй так :

hMouseMoveHook := SetWindowsHookEx(WH_MOUSE, OnMouseMoveHook, 0,
GetWindowThreadProcessId(Application.Handle));

---

← →
qwertXX   (2002-12-03 11:21) [2]

>Skier
не помогло

---

← →
Skier ©   (2002-12-03 11:28) [3]

>qwertXX


> не помогло


Странно...
Вот объявления этих функций в Windows.pas

function GetWindowThreadProcessId(hWnd: HWND; lpdwProcessId: Pointer = nil): DWORD; stdcall; overload;

function GetWindowThreadProcessId(hWnd: HWND; var dwProcessId: DWORD): DWORD; stdcall; overload;


а вот кусок из метода TScreen.SetCursor

//.............................
if (Handle <> 0) and
(GetWindowThreadProcessId(Handle, nil)=GetCurrentThreadId) then
//.............................

Может у тебя где-то ещё объявлена GetWindowThreadProcessId ?

---

← →
qwertXX   (2002-12-03 11:39) [4]

>Skier

нигде не объявлена.
Тот же компонент ставится в delphi3-5, а в 6 выдает эту ошибку.

---

← →
Skier ©   (2002-12-03 11:45) [5]

>qwertXX

hMouseMoveHook := SetWindowsHookEx(WH_MOUSE, OnMouseMoveHook, 0,
GetWindowTask(Application.Handle)); ?

---

← →
qwertXX   (2002-12-03 12:01) [6]

ошибка в 6 и при:
hMouseMoveHook := SetWindowsHookEx(WH_MOUSE, OnMouseMoveHook, 0,
GetWindowThreadProcessId(Application.Handle, nil));
и при:
hMouseMoveHook := SetWindowsHookEx(WH_MOUSE, OnMouseMoveHook, 0,
GetWindowThreadProcessId(Application.Handle));
в 3-5: ...GetWindowThreadProcessId(Application.Handle, nil))...
проходит

---

← →
Skier ©   (2002-12-03 12:06) [7]

>qwertXX
GetWindowTask(...) тоже не проходит ?

---

← →
qwertXX   (2002-12-03 12:15) [8]

> Skier
спасибо! с task работает

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c