Гейтс получил Hобелевскую премию по экономике и медицине за то, что первый додумался продавать геморрой за такие деньги.
private{ Private declarations }procedure OSInfo;
...
procedure TForm1.OSInfo;
var
BRes : boolean;
lpVersionInformation : TOSVersionInfo;
c : string;
begin
lpVersionInformation.dwOSVersionInfoSize :=
SizeOf(TOSVersionInfo);
BRes := GetVersionEx(lpVersionInformation);
if BRes thenwith lpVersionInformation docase dwPlatformId of
VER_PLATFORM_WIN32_WINDOWS :
if dwMinorVersion=0 then
c := 'Windows 95'
else
c := 'Windows 98';
VER_PLATFORM_WIN32_NT :
c := 'Windows NT';
VER_PLATFORM_WIN32s :
c := 'Win 3.1 with Win32s'
end;
Form1.Caption:=c;
end;
Статья Как узнать платформу раздела ОС и Железо Windows может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.