Forum: Sonstige Fragen zu Delphi
Delphi
by Helmi,
26. Feb 2014
ja - schaut ganz gut aus
nebenbei bemerkt haben wir den gleichen Link erwischt :-)
Forum: Sonstige Fragen zu Delphi
Delphi
by Helmi,
26. Feb 2014
also es hakt schon bei wndChild := FindWindowEx(wndMain, 0, 'SHELLDLL_DefView', nil);, also dem ersten wndChild
Dort steht schon null drin - wurde also nicht gefunden
Forum: Sonstige Fragen zu Delphi
Delphi
by Helmi,
26. Feb 2014
Och - wie praktisch :-)
irgendwie sind Programmierer faule Leute :P
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:
procedure TForm1.Button1Click(Sender: TObject);
var
wndMain, wndChild: HWND;
begin
wndMain := FindWindow('WorkerW','');
Forum: Sonstige Fragen zu Delphi
Delphi
by Helmi,
26. Feb 2014
ok - werd ich heut abend mal ausprobieren
Forum: Sonstige Fragen zu Delphi
Delphi
by Helmi,
25. Feb 2014
nur gibt's WorkerW mehr als ein mal
Forum: Sonstige Fragen zu Delphi
Delphi
by Helmi,
25. Feb 2014
hab ich ja schon gemacht - schau einfach mal ein paar Posts von mir weiter oben
Forum: Sonstige Fragen zu Delphi
Delphi
by Helmi,
25. Feb 2014
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
Forum: Sonstige Fragen zu Delphi
Delphi
by Helmi,
25. Feb 2014
Leider nein - da, wie ich schon im ersten Post schrieb, wird SHELLDLL_DefView nicht mehr (direkt) unter progman gefunden
Forum: Sonstige Fragen zu Delphi
Delphi
by Helmi,
25. Feb 2014
hab ich jetzt mal gemacht - nur gibt es (ab Win7?) als übergeordnetes Fenster: WorkerW - nur nach dem kann man nicht suchen, weil es den mind. 5 mal gibt
Forum: Sonstige Fragen zu Delphi
Delphi
by Helmi,
24. Feb 2014
Ja Luckie - du lebst ja noch :-)
Ich hab von dir mal den Code aus LuckieDips "geklaut" um Desktop-Icons zu speichern bzw. wiederherzustellen.
Unter XP funktioniert der Code wunderbar - nur eben nicht mehr bei Win8
Forum: Sonstige Fragen zu Delphi
Delphi
by Helmi,
24. Feb 2014
Hallo,
bei Win 8 (vermutlich schon bei Win 7) hab ich das Problem, dass ich SHELLDLL_DefView nicht mehr finde
Progman := FindWindow('Progman', nil);
If Progman <> 0 then
begin
DefView := FindWindowEx(Progman, HWND(nil), 'SHELLDLL_DefView', nil);