Mega Code Archive

 
Categories / Delphi / System
 

Isletim sistemi tipinin alinmasi [windiws 95, nt]

if Win32Platform = VER_PLATFORM_WIN32_NT then ShowMessage('NT isletim sistemi') else if Win32Platform = VER_PLATFORM_WIN32_WINDOWS then ShowMessage(95/98/ME Sürümü')