{"id":790,"date":"2008-05-27T12:10:11","date_gmt":"2008-05-27T12:10:11","guid":{"rendered":"http:\/\/6teen.ru\/?p=485"},"modified":"2008-05-27T12:10:11","modified_gmt":"2008-05-27T12:10:11","slug":"6678","status":"publish","type":"post","link":"http:\/\/pblog.ru\/lab\/?p=790","title":{"rendered":"\u041a\u0430\u043a \u0443\u0437\u043d\u0430\u0442\u044c \u0432\u0435\u0440\u0441\u0438\u044e Windows 3"},"content":{"rendered":"<p>\u041a\u0430\u043a \u0443\u0437\u043d\u0430\u0442\u044c \u0432\u0435\u0440\u0441\u0438\u044e Windows 3<br \/>\n<!--more--><\/p>\n<pre class=\"alt2\" style=\"margin:0px; padding:6px; border:1px inset; width:580px; height:320px; overflow:auto\"><div>\u041a\u0430\u043a \u0443\u0437\u043d\u0430\u0442\u044c \u0432\u0435\u0440\u0441\u0438\u044e Windows 3\n\n\u042d\u0442\u043e\u0442 \u043f\u0440\u0438\u043c\u0435\u0440 \u0434\u043e\u043b\u0436\u0435\u043d \u0440\u0430\u0431\u043e\u0442\u0430\u0442\u044c \u043d\u0430 \u0432\u0441\u0435\u0445 \u0432\u0435\u0440\u0441\u0438\u044f\u0445 Windows.\n\n{$IFDEF WIN32}\nfunction GetVersionEx(lpOs : pointer) : BOOL; stdcall;\nexternal 'kernel32' name 'GetVersionExA';\n{$ENDIF}\n\nprocedure GetWindowsVersion(var Major : integer;\n                            var Minor : integer);\nvar\n{$IFDEF WIN32}\n  lpOS, lpOS2 : POsVersionInfo;\n{$ELSE}\n  l : longint;\n{$ENDIF}\nbegin\n{$IFDEF WIN32}\n   GetMem(lpOS, SizeOf(TOsVersionInfo));\n   lpOs^.dwOSVersionInfoSize := SizeOf(TOsVersionInfo);\n   while getVersionEx(lpOS) = false do begin\n     GetMem(lpos2, lpos^.dwOSVersionInfoSize + 1);\n     lpOs2^.dwOSVersionInfoSize := lpOs^.dwOSVersionInfoSize + 1;\n     FreeMem(lpOs, lpOs^.dwOSVersionInfoSize);\n     lpOS := lpOs2;\n   end;\n   Major := lpOs^.dwMajorVersion;\n   Minor := lpOs^.dwMinorVersion;\n   FreeMem(lpOs, lpOs^.dwOSVersionInfoSize);\n{$ELSE}\n  l := GetVersion;\n  Major := LoByte(LoWord(l));\n  Minor := HiByte(LoWord(l));\n{$ENDIF}\nend;\n\nprocedure TForm1.Button1Click(Sender: TObject);\nvar\n  Major : integer;\n  Minor : integer;\nbegin\n  GetWindowsVersion(Major, Minor);\n  Memo1.Lines.Add(IntToStr(Major));\n  Memo1.Lines.Add(IntToStr(Minor));\nend;\n<\/div><\/pre>\n<p><\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u041a\u0430\u043a \u0443\u0437\u043d\u0430\u0442\u044c \u0432\u0435\u0440\u0441\u0438\u044e Windows 3<\/p>\n","protected":false},"author":3,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[448,454],"tags":[603,1237],"_links":{"self":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts\/790"}],"collection":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/users\/3"}],"replies":[{"embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=790"}],"version-history":[{"count":0,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts\/790\/revisions"}],"wp:attachment":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=790"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=790"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=790"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}