Registriert seit: 31. Dez 2004
Ort: Stuttgart
4.408 Beiträge
Delphi XE8 Enterprise
|
AW: Im Explorer ausgewähltes Verzeichnis ermitteln
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.
|
|
Zitat
|