Hallo,
so funktioniert es leider nicht:
Code:
procedure TForm1.Button1Click(Sender: TObject);
var
wnd: HWND;
begin
wnd := FindWindow('Shell_TrayWnd', nil);
wnd := FindWindowEx(wnd, 0, 'TrayNotifyWnd', nil);
wnd := FindWindowEx(wnd, 0, 'SysPager', nil); // Wenn die Uhr auch weg soll, diese Zeile
if wnd <> 0 then
begin
ShowWindow(wnd,SW_HIDE)
end;
end;
Da passiert gar nix.
Wenn ich diese Zeile weglasse,
Code:
wnd := FindWindowEx(wnd, 0, 'SysPager', nil);
geht die Uhr samt allen Icons weg. Ich möchte aber das die Uhr da ist und die Icons weg sind...