Discussion :

[bobymaw]

comment obtenir des information matériel sur la machine utilisé.
le nom de l'ordinateur ?
Le compte utilisateur de la l'ordinateur?
le nom du processeur?

Et la quantité mémoires vives (indiqué dans la FAQ) peut elle varié légèrement (octet défectuer iou je ne sais koi) au fil du temps?

[batmat86]

Te voilà pas mal d'info, bon courage à toi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
 
// Récupérer la mémoire vive installée
void __fastcall TFormAccueil::ButtonMemoireClick(TObject *Sender)
{
        TMemoryStatus *MS = new TMemoryStatus;
        GlobalMemoryStatus(MS);
        // Récupération de la mémoire dans une chaîne
        AnsiString Memoire = FormatFloat("#,# Mo",
                   (MS->dwTotalPhys / 1024.)/1024.);
        EditMemoire->Text=Memoire;
}
//---------------------------------------------------------------------------
 
//Taille totale du disque dur utilisée
void __fastcall TFormAccueil::ButtonDisqueDurClick(TObject *Sender)
{
        float Total = DiskSize(0);
        AnsiString S;
        S.sprintf("%.f Go", Total/1000/1000/1000 );
        EditDisqueDurTotal->Text=S;
}
/*Là j'ai divisé par 1000/1000/1000 et non 1024/1024/1024 afin de trouver la même valeur de disque que celle que l'on est censé avoir quand on acheté le disque. Car si on prend 1024/1024/1024 pour un 10 Go par exemple on trouvera que 9 Go, voilà pourquoi.
*/
//---------------------------------------------------------------------------
 
//Taille libre de ce disque dur
void __fastcall TFormAccueil::ButtonDDlibreClick(TObject *Sender)
{
        float AmtFree = DiskFree(0);
        AnsiString S;
        S.sprintf("%.2f Go", AmtFree/1024/1024/1024 );
        EditDisqueDurLibre->Text=S;
 
}
//---------------------------------------------------------------------------
 
//Récupération du nom de l'ordinateur et de son adresse ip
void __fastcall TFormAccueil::ButtonIPClick(TObject *Sender)
{
      //Attention a winsock2.h !!!
      WORD wVersionRequested;
      WSADATA wsaData;
      char name[255];
      AnsiString ip;
      PHOSTENT hostinfo;
      wVersionRequested = MAKEWORD( 2, 0 );
 
      if ( WSAStartup( wVersionRequested, &wsaData ) == 0 )
      {
        if( gethostname ( name, sizeof(name)) == 0)
            {
              EditNomPC->Text = name;  //nom de l'ordinateur
                if((hostinfo = gethostbyname(name)) != NULL)
                 {
                   ip = inet_ntoa (*(in_addr *)*hostinfo->h_addr_list);
                   EditIP->Text = ip;  //adresse IP
                 }
            }
        WSACleanup( );
      }
 
//Récupère le nom de l'utilisateur qui utilise la session actuellement ouverte
void __fastcall TFormUtilisateur::ButtonNomClick(TObject *Sender)
{
    char NomUtilisateur[30];
    unsigned long lop;
    lop=30;
    GetUserName(NomUtilisateur, &lop);
    EditNom->Text=NomUtilisateur;
}
//---------------------------------------------------------------------------
 
//Récupération du nom de l'imprimante par défaut installé sur le pc
void __fastcall TFormUtilisateur::ButtonImprimanteClick(TObject *Sender)
{
    TStrings*imprimante=Printer()->Printers;
    for (int i=0; i<imprimante->Count; i++){
     AnsiString nomImprimante="Imprimante"+(AnsiString)i;
     EditImprimante->Text=("Imprimantes Installées",nomImprimante,imprimante->Strings[i]);
    }
}
 
 
}

[EDIT] si tu arrive à trouver plus de renseignements sur une machine fais moi signe car cela m'intéresserais beaucoup pour mon application.

[bobymaw]

merci
je ne pense pas trouver autre chose.

[StreM]

Pour le processeur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
AnsiString Processeur;
        Processeur  = StrUpper(getenv("PROCESSOR_IDENTIFIER"));