Forum: Win32/Win64 API (native code)
Delphi
by JnZn558,
3. Apr 2010
weil dein tipps bei mir nicht funktioniert hat, und jez funktioniert mein beispiel, nur bin ein bisschen verwirrt, kannst erklaeren?
Forum: Win32/Win64 API (native code)
Delphi
by JnZn558,
2. Apr 2010
function ZWndProc(hWnd: HWND; dwMsg: ZDWORD; wParam: WPARAM; lParam: LPARAM): LRESULT;
var
pWnd : PZWindowBase;
pCS : PCreateStruct;
nUserData : ZINT;
begin
if dwMsg = WM_NCCREATE then
begin
pCS := PCreateStruct(lParam);
nUserData := ZINT(pCS.lpCreateParams);
Forum: Win32/Win64 API (native code)
Delphi
by JnZn558,
2. Apr 2010
danke sehr, dies sieht sehr uebersichtlich aus, very n1. werde es sofort testen
Forum: Win32/Win64 API (native code)
Delphi
by JnZn558,
1. Apr 2010
erstmal danke fuers antworten, aber so sei eure Antworten sehr trocken, ein bisschen korrektur code waere viel besser verstaendlicher.
Forum: Win32/Win64 API (native code)
Delphi
by JnZn558,
1. Apr 2010
Wie Bitte. Versteh dich nicht, PWindowBase ist ein Pointer von WindowBase
PWindowBase = ^WindowBase
ich weiss das mit T. nun eine Loesung fuer den Crash?
Forum: Win32/Win64 API (native code)
Delphi
by JnZn558,
1. Apr 2010
function WndProc(hWindow: HWND; dwMsg: ZDWORD; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
var
wnd: PWindowBase;
msg : TMSG;
begin
if dwMsg = WM_NCCREATE then
begin
wnd := PWindowBase(PCreateStruct(nlParam)^.lpCreateParams);
SetWindowLongPtr(hWindow, GWL_USERDATA, Integer(wnd));
end;