Memo1->Lines->Add("");
if(info.dwMajorVersion<4)
Memo1->Lines->Add("Windows NT 3.x Detected!");
switch(info.dwPlatformId)
{
case VER_PLATFORM_WIN32s:
Memo1->Lines->Add("WIN32s Detected!");
break;
case VER_PLATFORM_WIN32_WINDOWS:
Memo1->Lines->Add("Win95 or Win98 Detected!");
break;
case VER_PLATFORM_WIN32_NT:
Memo1->Lines->Add("Wondows NT detected!");
break;
Memo1->Lines->Add("");
if(info.dwMajorVersion<4)
Memo1->Lines->Add("Windows NT 3.x Detected!");
switch(info.dwPlatformId)
{
case VER_PLATFORM_WIN32s:
Memo1->Lines->Add("WIN32s Detected!");
break;
case VER_PLATFORM_WIN32_WINDOWS:
Memo1->Lines->Add("Win95 or Win98 Detected!");
break;
case VER_PLATFORM_WIN32_NT:
Memo1->Lines->Add("Wondows NT detected!");
break;