Von C nach D (elphi) - Äh wie ?

[Apollonius]

Ich übersetze die markierten Stellen einfach mal nach Delphi.

Code:

embedWindowState myWindowState;

var myWindowState: embedWindowState; //globale Variable

Code:

HWND (*e)(embedWindowState *v); //Funktionszeiger in C sind etwas schwierig

var e: function(v: pEmbedWindowState): hwnd;

Code:

g_mod = this_mod;

 g_mod:=this_mod

Code:

myWindowState.r.left = config_x; //Wo liegt das Problem?

Code:

*(void**)&e = (void *)SendMessage(this_mod->hwndParent,WM_WA_IPC,(LPARAM)0,IPC_GET_EMBEDIF); //köstlich!

PPointer(@@e)^:=Pointer(SendMessage(this_mod^.hwndParent, WM_WA_IPC, LPARAM(0), IPC_GET_EMBEDIF)) Das geht auch einfacher als
Pointer(e):=Pointer(SendMessage(this_mod^.hwndParent, WM_WA_IPC, LPARAM(0), IPC_GET_EMBEDIF))

Code:

parent = e(&myWindowState);

Parent:=e(@MyWindowState)