EnableExplicit Define hwnd Define subhwnd Define hwndlength Define content$ MessageRequester("","Starte Notepad und schreibe was ins Editor.",0) hwnd = FindWindow_("notepad",#Null) If hwnd subhwnd=FindWindowEx_(hwnd, #Null, "Edit", #Null) If subhwnd hwndlength = SendMessage_(subhwnd, #WM_GETTEXTLENGTH, 0, 0)+1 content$ = Space(hwndlength) SendMessage_(subhwnd, #WM_GETTEXT, hwndlength, @content$) MessageRequester("","Inhalt des Editors: "+content$,0) EndIf EndIf