Einzelnen Beitrag anzeigen

RuX

Registriert seit: 21. Jul 2004
Ort: Nürnberg
115 Beiträge
 
Delphi 7 Architect
 
#3

Re: Problem mit EnumWindows

  Alt 1. Sep 2005, 12:23
so:
Delphi-Quellcode:
function EnumChildProc(Wnd: hWnd; SearchStr: String): BOOL; stdcall;
var
  buffer: array[0..MAX_PATH] of char; //caption von button
begin
  result := Wnd <> 0;

  if result then begin
    SendMessage(wnd, WM_GETTEXT, sizeof(buffer), Integer(@buffer));
    if buffer = SearchStr then begin
      PostMessage(wnd, BM_CLICK, 0, 0);
      exit;
    end;

    EnumChildWindows(wnd, @EnumChildproc, Integer(SearchStr));
  end;
end;
aber wie gesagt er springt gar nicht erst rein bei der 3ten suche :/
Delphi3/Delphi5/Delphi7/Delphi8 User
  Mit Zitat antworten Zitat