Zitat:
Delphi-Quellcode:
parentwnd := FindWindow('ThunderRT6MDIForm','Dialock Hotel - DIALOCK Hotel');
parentwnd := FindWindowEx(parentwnd, 0, 'MDIClient', nil);
parentwnd := FindWindowEx(parentwnd, 0, 'ThunderRT6FormDC', nil);
parentwnd := FindWindowEx(parentwnd, 0, 'AfxWnd40', nil);
Was passiert denn, wenn parentwnd in dieser Kette einmal 0 wird, weil das entsprechende Fenster nicht gefunden wurde? Du solltest nach jeder Zuweisung auf 0 prüfen, dann kann man auch eine entsprechende Meldung bringen, was da ggf. schief läuft. Ob diese Meldung kommen soll, ließe sich z.B. mittels Kommandozeilen-Parameter angeben.