переход с 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 работает

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