Win8: SHELLDLL_DefView wird nicht mehr gefunden

[Luckie]

ja, aber die API Funktion sollte sie doch finden. Wie gesagt, ich lade sie ja nicht explizit. Das wundert mich etwas.

[Helmi]

Ich hab jetzt extra deinen SourceCode vom LuckieDIPS gedebuggt und es gibt das gleiche Problem wie in meiner SW (die ja deinen Code verwendet)

die Variable DefView ist 0, weil DefView := FindWindowEx(Progman, HWND(nil), 'SHELLDLL_DefView', nil); null liefert, also SHELLDLL_DefView nicht gefunden wird

[Luckie]

Aaaah. Es gibt kein Fenster mehr mit dem Namen. Da hat sich wohl was geändert. Es geht gar nicht um die DLL. Danke für die Info. Doof. Nimm dir mal WinSpy und guck mal, ob du das Fenster findest. Sorry, wenn ich etwas daneben schreibe, bin gerade etwas im Stress.

[Helmi]

hab ich ja schon gemacht - schau einfach mal ein paar Posts von mir weiter oben

[Luckie]

Ok, wie gesagt, bin etwas im Stress. Funktioniert wieder?

[hathor]

Das muss jetzt "ungefähr" so aussehen:

Delphi-Quellcode:

...
    if DefView = 0 then
        DefView := FindWindowEx(DefView, 0, 'WorkerW', nil);
    if DefView <> 0 then
    begin
      if IsActiveDesktopActive then
        EnumChildWindows(DefView, @EnumDefViewProc, LPARAM(@DefView));
      Result := FindWindowEx(DefView, 0, 'SysListView32', nil);
    end;
...

[Helmi]

nur gibt's WorkerW mehr als ein mal

[jaenicke]

Aber nicht nebeneinander. Der Code funktioniert bei mir problemlos um z.B. die Listview zu finden:

Delphi-Quellcode:

var
  ParentWindow, ListWindow: HWND;
begin
  ParentWindow := FindWindow('WorkerW','');
  if ParentWindow <> 0 then
  begin
    ListWindow := FindWindowEx(ParentWindow, 0, 'SHELLDLL_DefView', nil);
    ListWindow := FindWindowEx(ListWindow, 0, 'SysListView32', nil);
    if ListWindow <> 0 then
    begin
      ShowMessage('Window Handle: ' + IntToStr(ListWindow));
    end;
  end;
end;

[Helmi]

ok - werd ich heut abend mal ausprobieren

[jaenicke]

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