Enum & CallBack

← →
Nick N A (2002-10-27 06:58) [0]

Все CallBack функции у меня задыхаются в Delphi после первого шага - нарушение стека.

BOOL CALLBACK PropEnumProc(HWND hwnd, LPCTSTR lpszString, HANDLE hData )
{
result = true;
}// вариант в си работает,
а что нужно Delphi ? (в си я небольшой мастер, да и интерфейс у
Delphi лучше продуман)

неработают даже такой вариант:

procedure Add(lpszString:LPCTSTR);
Begin
Form1.ListBox1.Add(lpszString);
end;

function PropEnumProc;(hwnd:HWND;enumerated
lpszString:LPCTSTR; HANDLE:cardinal ):LongBool;cdecl;
assembler
asm
pusha;// variant 2
push lpszString;//variant 2
call add; //variant 2
popa;//variant 2
end;// ошибка всегда после этой строчки

var wm:HWND;
Begin
wn:=GetForegroundWindow;
ListBox1.Clear;
EnumProps(wn,@PropEnumProc);
end;

Enum - это перечисление различных параметров, свойств, отличный быстрый, часто единственный способ получить информацию о винде

← →
Cobalt © (2002-10-27 13:18) [1]

Обычно CallBack-ф-ии - stdcall

← →
Alex4444444444 (2002-10-27 14:40) [2]

VSEGDA stdcall !

← →
Nick N A (2002-10-30 03:50) [3]

Я уже пробывал stdcall, в справке их гораздо больше :) ,
но ни с одиним из них неработает :( .

← →
Cobalt © (2002-10-30 15:14) [4]

BOOL CALLBACK PropEnumProc( HWND hwnd,
// handle to window whose property list is being enumerated
LPCTSTR lpszString,
// string component of property
HANDLE hData
// data handle component of property );
Попробуйте вместо LPCTSTR поставить PCHar

← →
apay © (2002-11-02 01:35) [5]

вообще-то в windef.h есть строчка
#define CALLBACK __stdcall

так что если в хелпе сишная ф-я CALLBACK, надо писать stdcall

function PropEnumProc(hwnd:THandle;
lpszString:PChar; HANDLE:cardinal):LongBool;stdcall;
begin
Add(lpszString);
Result := True;
end;

Не только здесь перепутано соглащение о вызове, но и в Add также

Enum & CallBack Найти похожие ветки