Bonjour;
je veut savoir quelle est l'instruction laquelle avec je peut savoir si une police donnée elle existe bien dans Windows  
Merci

Bonjour,
Tu peux utiliser la propriété fonts de l'objet Tscreen qui liste les fonts installées sous la forme d'un TSringList.
Par exemple pour en avoir la liste, tu crées un objet memo sur un formulaire et tu le remplis avec :

Memo1.Lines:=Screen.Fonts;

merci rengzehn pour ta réponse mais ou peut on trouver cette objet dans quelle palettes ??

Screen ? il n'est pas dans les palettes mais dejà définit pour tout projet dans l'api delphi. Tu n'as pas à le déclarer. Quand tu en as besoin, tu appelles screen.fonts dans ton prog et ça te renvoie un  tableau de string avec les fonts installées sur l'ordi.

salut rengzehn ;
Merci mon frere, elle fonctionne mais ce que je veut exactement c'est que je tape le nom de la police et delphi me répondre si elle existe ou pas (cad je créer tout un programme ) merci de me répondre mon ami @ plus

En principe on ne fait pas les progs des autres sur ce forum. C'est dans quel but ?
 
Tu as commencé à faire ton programme ? fait un copier/coller de ce que tu as écrit, jpeux donner des conseils mais pas faire le taff à ta place ;p
 
J'imagine que tu as une zone de saisie pour la police recherchée, par exemple edit1.text alors tu peux faire une fonction du genre
 
function font_exist (ma_font : string) : boolean
begin
for i := 0 to screen.fonts.count-1 do
if ma_font==screen.fonts[i] then return 1
return 0;
end;
 
ou un truc du genre. En gros tu fais une boucle sur la taille de screen.fonts et tu regardes si ce que tu as saisi est dans la liste des fonts dispo en les comparant une à une.
(attention vla ton père)

Même pas besoin de boucle, tu peux appeler la méthode IndexOf de Screen.Fonts pour voir si un nom est dans la liste.