Fix refresh of taskbars on explorer restart

Author: vhanla

main.pas

@@ -149,6 +149,9 @@   TForm1 = class(TUForm)
 
     // System functions
     function SystemUsesLightTheme: Boolean;
+
+
+
   public
     { Public declarations }
     Taskbars: TTaskbars;
@@ -225,6 +228,7 @@ procedure TForm1.mnuCenterClick(Sender: TObject);
   SyncSettingsPage;
 end;
 
+
 procedure TForm1.CreateParams(var Params: TCreateParams);
 var
   AeroEnabled: LongBool;
@@ -375,6 +379,7 @@ procedure TForm1.FormCreate(Sender: TObject);
 begin
   Self.ThemeManager := ThemeManager;
   AutoStartState;
+
   Init;
   tmrUpdateTBinfo.Enabled := True;
   LoadINI;
@@ -1173,7 +1178,7 @@ procedure TForm1.WndProc(var Msg: TMessage);
 begin
   if Msg.Msg = fwm_TaskbarRestart then
   begin
-    Taskbars.UpdateTaskbarInfo;
+    Taskbars.Refresh;
   end
   else
   begin