home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Freelog 19
/
Freelog019.iso
/
Prog
/
Pratique
/
FichPrin.~cp
< prev
next >
Wrap
Text File
|
2001-01-29
|
1KB
|
41 lines
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "FichPrin.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
MessageBeep(0);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
// version du systeme utilise
// on declare comme precise ds l'aide
OSVERSIONINFO osvi;
osvi.dwOSVersionInfoSize=sizeof(OSVERSIONINFO);
// on appelle l'API concernΘe
::GetVersionEx(&osvi);
// on traite la valeur retournee par l'appel
if (osvi.dwPlatformId==VER_PLATFORM_WIN32_WINDOWS);
{
if(osvi.dwMinorVersion==0)
Edit2->Text=" Windaube 95";
else
Edit2->Text=" Windaube 98";
}
}
//---------------------------------------------------------------------------