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]);
}
}
} |
