http://img61.imageshack.us/img61/243...rogress8bh.png
Ich hab mal schnell ein Programm gecoded. Was mir aufgefallen ist:
Anscheinend wird die untere Progressbar übertragen.
Das hab ich auch mit dem VB-Programm erlebt.
Auch in meinem Beispiel sind die Namen der Progressbars identisch.
Sie lauten TProgressBar.
Delphi-Quellcode:
var
wnd: HWND;
begin
wnd := FindWindowbyTitle('ProgressTEST');
wnd := FindWindowEx(wnd, 0, 'TProgressBar', nil);
if wnd <> 0 then
begin
end;
end;
Wie kann man nun die Progressbars definieren?