Wie bekomme ich den TEXT eines Fensters und nicht nur den TITLE des Fensters.

[hoika]

Hallo,
vielleicht

type
LPSTR = PChar;

durch

type
LPSTR = PAnsiChar;

ersetzen?

[wschrabi]

Hallo Leute,
also ich hab das EDA sehr abgespeckt. Ich habe gesehen, dass mein Error Window im Window noch ein Tochterfenster hat und mit den Parentcoordinaten habe ich relative dazu um einen TPoint den Cursor positioniert um so in das Tochterfenster per CursorCoordinaten zu gelangen, dann habe ich wie in EDA Source zu finden war das WindowHandle um diese Cursorcoordinaten abgefragt und so dann mit dem GetText von der winapi einfach den Capture Text des Tochterfensters abgefragt bzw in eine Memo geschrieben.

Wenn dieser Tochterfestertext dann aus einer Liste bestimmte Errorcodes enthält mache ich mit PostKEy32 bestimmte Tastatureingaben.

EDA hat mir sehr geholfen, denn um es zu Analysieren muss man das ErrorWindow mal auf die ParentFesnterCoordinaten analysieren.

Anregungen sehr wünschenswert.

[wschrabi]

Zitat von hoika:

Hallo,
vielleicht

type
LPSTR = PChar;

durch

type
LPSTR = PAnsiChar;

ersetzen?

Ja ich denke Du hast damit Recht gehabt, da ja Berlin mit WideChars arbeitet, habe ich EDA mit AnsiChars umgeschrieben.
Jetzt klappt es zumindest auf einem Rechner ohne Crash. auf dem anderen PC muss wohl der PC OS was haben.

DANKE

Nachtrag: Um es Berlin compatibel zu machen habe ich bei den Type folgendes eingefügt:

Delphi-Quellcode:

type
  
  PChar = PansiChar;
  Char = ansiChar;
  MyString = AnsiString;  // Subsitute all STRING Type to MyString Type

und die Aufrufe nach winapi habe ich so gecastet:

Delphi-Quellcode:

   
 SetString(Result, pc, wvsprintf(PWIDEchar(pc), PWIDEChar(fmt), PWIDEChar(pdw1)));
bzw
    lstrcpy(PWideChar(miscd^.target_classname), @temps[1]);
bzw
                        lstrlen(PWidechar(pl^.val_if_sz));
bzw
      GetClassname(hwnd, PWideChar(pc), maxbufsize) 
bzw
      SetString(result, pc, lstrlen(PWideChar(pc)))

bzw
        lstrcpyn(PWideChar(PPropertyList(lastentry)^.name_of_prop), @temps[1], i);
bzw 
    hGlob := GlobalAlloc(GMEM_MOVEABLE, lstrlen(PWideChar(sztext)) + 1);
bzw
      CopyMemory(szCopy, sztext, lstrlen(PWideChar(sztext)));

Jetzt stürtzt es nicht mehr ab und es läuft stabiler, doch leicher wird mir im Assoz.-Fenster immer nur 1 CHARACTER vom assoz. Text ausgegeben.
Wo muss mann da drehen? Ich hab schon alles durchgesucht, doch ich komme auf keinen grünen Zweig.
Ohne meiner Type Substitution kommt der ganze Text aber es stürzt ab.
kann mir da wer helfen?

Hab auch in Screenshoot das eingegeben:

das wie oben erwähnt eingeben:
  LPSTR = PANSIChar; Doch immer nur 1 CHAR

danke