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.