Einzelnen Beitrag anzeigen

Benutzerbild von RWarnecke
RWarnecke

Registriert seit: 31. Dez 2004
Ort: Stuttgart
4.408 Beiträge
 
Delphi XE8 Enterprise
 
#4

AW: Im Explorer ausgewähltes Verzeichnis ermitteln

  Alt 26. Dez 2010, 09:39
Eine andere Möglichkeit wäre mit WinSpy den Wert vielleicht zu übergeben. Das zeigt mir WinSpy unter Windows 7 für die Adresszeile im Windows Explorer an :
Delphi-Quellcode:
var
  wnd: HWND;
begin
  wnd := FindWindow('CabinetWClass','Daten (D:)');
  wnd := FindWindowEx(wnd, 0, 'WorkerW', nil);
  wnd := FindWindowEx(wnd, 0, 'ReBarWindow32', nil);
  wnd := FindWindowEx(wnd, 0, 'Address Band Root', nil);
  wnd := FindWindowEx(wnd, 0, 'msctls_progress32', nil);
  wnd := FindWindowEx(wnd, 0, 'ComboBoxEx32', nil);
  wnd := FindWindowEx(wnd, 0, 'ComboBox', nil);
  wnd := FindWindowEx(wnd, 0, 'Edit', nil);
  if wnd <> 0 then
  begin
   // ShowMessage('Window found. Handle: ' + IntToStr(wnd));
     writeln('Window found. Handle: ' + IntToStr(wnd));
     FlashWindow(wnd);
  end;
end.
Vielleicht hilft Dir das ja weiter.
Rolf Warnecke
App4Mission
  Mit Zitat antworten Zitat