Toolbar-Auslesen klappt nicht auf einem 64bit-Win7?

[DeddyH]

Wie bereits angedeutet wurde, werden in Deinem Code keine Rückgaben ausgewertet. Eigentlich sollte das statt so

Zitat:

Delphi-Quellcode:

hTaskBar := FindWindow('Shell_TrayWnd',nil);
hReBarWindow32 := FindWindowEx(hTaskBar,0,'ReBarWindow32',nil);

wohl besser so aussehen:

Delphi-Quellcode:

hTaskBar := FindWindow('Shell_TrayWnd',nil);
if hTaskBar <> 0 then
  begin
    hReBarWindow32 := FindWindowEx(hTaskBar,0,'ReBarWindow32',nil);

Oder alternativ auch z.B. so:

Delphi-Quellcode:

type
  ETaskbarNotFound = class(Exception);

hTaskBar := FindWindow('Shell_TrayWnd',nil);
if hTaskBar = 0 then
  raise ETaskbarNotFound('Taskbar-Handle nicht gefunden');
hReBarWindow32 := FindWindowEx(hTaskBar,0,'ReBarWindow32',nil);

Auf jeden Fall ist es keine gute Idee, immer vom Idealfall auszugehen.