Zitat von
mdogg:
Auch hier tut sich nichts. Das Label ändertsich nicht!
Dann baue doch einige Fehlermeldungen ein:
Delphi-Quellcode:
var
hWindow, hStatusBarHandle: HWND;
begin
hWindow := FindWindow('ExploreWClass', nil);
if hWindow> 0 then
begin
hStatusBarHandle := FindWindowEx(hWindow, 0, 'msctls_statusbar32', nil);
if hStatusBarHandle<> 0 then
label1.Caption := GetStatusBarText(hStatusBarHandle, 2)
else
MessageDlg('Die Statusbar mit dem Klassennamen "msctls_statusbar32" wurde nicht gefunden', mtError, [mbOk], 0);
end
else
MessageDlg('Das Fenster mit dem Klassennamen "ExploreWClass" wurde nicht gefunden', mtError, [mbOk], 0);
Hast du überhaupt die Statusbar im Window Explorer (nicht im Internet Explorer) aktiviert? Steht im 3. Feld der Statusbar überhaupt was drin, denn das 2. Panel wird ja ausgelesen.