procedure TForm1.ChangeIcon; var Icone: TIcon; begin Icone := TIcon.Create; try Icone.Handle := LoadIcon(HInstance, 'ICON3'); //Remplace l'icone de l'application dans la barre des tâches Application.Icon.Assign(Icone); Icone.handle := LoadIcon(HInstance, 'ICON2'); //Remplacer l'icone de la fiche Icon.Assign(Icone); finally Icone.Free; end; end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question