hi,
bug 1:
findwindow code ist upsidedown
Delphi-Quellcode:
wnd := FindWindow('TrayClockWClass','12:02');
wnd := FindWindowEx(wnd, 0,'TrayNotifyWnd', nil);
wnd := FindWindowEx(wnd, 0,'Shell_TrayWnd', nil);
sollte sein:
Delphi-Quellcode:
wnd := FindWindow('Shell_TrayWnd',nil);
wnd := FindWindowEx(wnd, 0,'TrayNotifyWnd', nil);
wnd := FindWindowEx(wnd, 0,'TrayClockWClass', nil);
bug 2:
im treeview unten lassen sich die einträge editieren (wofür auch immer?)
bei einem anschliessendem click erscheint eine fehlermeldung -> '' is not a valid integer value
ansonsten ein gelungenes programm
[edit]vorschlag: wenn du TrayClockWClass findest solltest du in diesem speziellen fall den 2 parameter weglassen und nil nehmen ('TrayClockWClass','12:02' --> 'TrayClockWClass',nil) [/edit]