IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
logo

FAQ WinDevConsultez toutes les FAQ

Nombre d'auteurs : 3, nombre de questions : 71, dernière mise à jour : 25 novembre 2018  Ajouter une question

 

Cette FAQ ne prétend pas traiter de tous les trucs & astuces ou de tous les problèmes rencontrés par les utilisateurs de WinDev : elle a été créée via l'analyse des questions les plus fréquentes posées sur le forum de ce site, et sur les connaissances des différents rédacteurs. Nous espérons voir le nombre de questions/réponses augmenter régulièrement, pour couvrir le plus de thèmes possibles. Pour y participer, suivez le mode d'emploi donné dans la 2ème question !

SommaireConcepts, WLangage et environnementSystème (6)
précédent sommaire suivant
 

Code windev : Sélectionner tout
fdisqueinfo("c:", fdnumerodeserie)

Mis à jour le 5 mars 2009 Emmanuel Lecoester

Code windev : Sélectionner tout
1
2
3
4
5
6
7
8
9
  
// To detect if the host computer uses the french language 
// Détermine si le français est la langue utilisée sur l'ordinateur 
FUNCTION IsFrench() 
bRet is int = False 
sLocale is fixed string on 6 
API("KERNEL32", "GetLocaleInfoA", LOCALE_USER_DEFAULT, LOCALE_SENGLANGUAGE, &sLocale, Length(sLocale)) 
IF Upper(sLocale) = "FRENCH" THEN bRet = True 
RESULT bRet

Mis à jour le 15 novembre 2008 Emmanuel Lecoester

Code windev : Sélectionner tout
1
2
3
4
5
i est un entier système 
clangue est une chaîne fixe sur 100 
i=API("kernel32","GetSystemDefaultLangID") 
i=API("kernel32","VerLanguageNameA",i, &clangue,100)  
SI i <>0 ALORS Trace(clangue,i)

Mis à jour le 8 mai 2009 Emmanuel Lecoester

Code windev : Sélectionner tout
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
//--------------------------------------------------------------------------- 
// Il suffit d'initialiser sPath au chemin désiré 
sPath est chaîne = "C:\" 
  
SHFILEINFOA est une structure 
hIcon est un entier système // Type C : HICON 
iIcon est un entier // Type C : int 
dwAttributes est un entier // Type C : DWORD 
szDisplayName est une chaîne fixe sur 260 // Type C : CHAR 
szTypeName est une chaîne fixe sur 80 // Type C : CHAR 
FIN 
stFileInfo est un SHFILEINFOA 
  
// SHGFI_SMALLICON = 1 
// SHGFI_SYSICONINDEX = 16384 
nSHGFI est entier = SHGFI_SMALLICON | SHGFI_SYSICONINDEX 
// Handle de l'imageList 
nIMAGELIST_16 est entier = API("Shell32.dll", "SHGetFileInfo", "", 0, &stFileInfo, Dimension(stFileInfo), nSHGFI) 
// Index de l'icone dans l'imageList 
API("Shell32.dll", "SHGetFileInfo", sPath, 0, &stFileInfo, Dimension(stFileInfo), nSHGFI) 
nIconIndex est entier =  stFileInfo:iIcon 
// Handle de l'icône 
// ILD_NORMAL = 0 
// ILD_TRANSPARENT = 1 
nHIcon est entier = API("COMCTL32.DLL", "ImageList_GetIcon", nIMAGELIST_16, nIconIndex, ILD_NORMAL | ILD_TRANSPARENT) 
// Mise à jour de l'icone de la fenêtre 
// WM_SETICON = 128 
// ICON_SMALL = 0 
SendMessage(Handle(MaFenêtre), WM_SETICON, ICON_SMALL, nHIcon)  
// Ne pas détruire l'icône, sinon l'affichage ne sera pas réalisé 
// API("user32", "DestroyIcon", nHIcon) 
//---------------------------------------------------------------------------

Mis à jour le 8 mai 2009 Emmanuel Lecoester

Proposer une nouvelle réponse sur la FAQ

Ce n'est pas l'endroit pour poser des questions, allez plutôt sur le forum de la rubrique pour ça


Réponse à la question

Liens sous la question
précédent sommaire suivant
 

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2024 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.