Back
...

========
Subject: Версия Windows
From: Vlad Filyakov <Vlad.Filyakov@p9.f26.n5022.z2.fidonet.org>
--------
Привет, Eugeny!

EB> Люди! Как в Delphi узнать версию Windows? Приведите кусочек программы!

Var
Info:TOSVersionInfo;

Begin
Info.dwOSVersionInfoSize:=SizeOf(Info);
GetVersionEx(Info);
If Info.dwMajorVersion=4 Then { версия=4.xx }
Else { что-нибудь другое };
End.
С уважением, Vlad.

========
Subject: Windows 95& Windows NT
From: Jenya Pavlovsky <Jenya.Pavlovsky@p2.f324.n5030.z2.fidonet.org>

Привет, Eugeny!

Thursday June 05 1997, Eugeny Balahonov wrote to All:

EB> Как в делфийской проге узнать под какой ОС она зарущена: под Windows 95
EB> или под Windows NT?

Если Delphi 2, то:

==========сге pуку============

var
os:TOsVersionInfo;
win:String;

begin
os.dwOsVersionInfoSize:=SizeOf(os);
GetVersionEx(os);
case os.dwPlatformId of
VER_PLATFORM_WIN32S : win:='Windows ';
VER_PLATFORM_WIN32_WINDOWS : win:='Windows 95 ';
VER_PLATFORM_WIN32_NT : win:='Windows NT ';
else
win:='unknown Windows platform ';
end;

==========сге pуку============

Jenya

23.01.99 20:00:15