Registriert seit: 21. Jul 2004
Ort: Nürnberg
115 Beiträge
Delphi 7 Architect
|
Re: Problem mit EnumWindows
1. Sep 2005, 13: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
|
|
Zitat
|