Win8: SHELLDLL_DefView wird nicht mehr gefunden

[Helmi]

Zitat von jaenicke:

Den Code generiert übrigens WinSpy automatisch für dich.
http://www.delphipraxis.net/15388-wi...6-09-08-a.html

Och - wie praktisch
irgendwie sind Programmierer faule Leute

nichts desto trotz - es geht leider auch mit diesem Code nicht!
Hab mir die letzte Version von WinSpy geholt und auch den erzeugten Code getestet:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  wndMain, wndChild: HWND;
begin
  wndMain := FindWindow('WorkerW','');
  if wndMain <> 0 then
  begin
    wndChild := FindWindowEx(wndMain, 0, 'SHELLDLL_DefView', nil);
    wndChild := FindWindowEx(wndChild, 0, 'SysListView32', nil);
//    if wndChild <> 0 then
    begin
      ShowMessage('Window Handle: ' + IntToStr(wndChild));
//      FlashControl(wndChild); // internal function
    end;
  end;
end;

wndChild ist leider 0.