<div>
procedure TForm1.Button1Click(Sender<wbr />: TObject);<br />
var xxx: TOSversioninfo;<br />
begin<br />
&nbsp; xxx.dwOSVersionInfoSize:=s<wbr />izeof(TOSv<wbr />ersioninfo<wbr />);<br />
&nbsp; GetVersionEx(xxx);<br />
&nbsp; if xxx.dwPlatformId=0 then showmessage('3.11');<br />
&nbsp; if xxx.dwPlatformId=1 then showmessage('95');<br />
&nbsp; if xxx.dwPlatformId=2 then showmessage('NT');<br />
end;<br />
<br />

</div>


procedure TForm1.Button1Click(Sender: TObject);
var xxx: TOSversioninfo;
begin
  xxx.dwOSVersionInfoSize:=sizeof(TOSversioninfo);
  GetVersionEx(xxx);
  if xxx.dwPlatformId=0 then showmessage('3.11');
  if xxx.dwPlatformId=1 then showmessage('95');
  if xxx.dwPlatformId=2 then showmessage('NT');
end;



<div>
Dear ronit,Thank you for fast answer, but it doesn't work for me.I have found this API function in Win32, but there isn't this function in the 16bit API.I need the function (or any other solution) in Win3.1 with 16bit API.<br />

</div>


Dear ronit,Thank you for fast answer, but it doesn't work for me.I have found this API function in Win32, but there isn't this function in the 16bit API.I need the function (or any other solution) in Win3.1 with 16bit API.


<div>
There is a GetVersion function that exists both on 16 and 32 bits.<br />

</div>


There is a GetVersion function that exists both on 16 and 32 bits.


<div>
Thanks fsanchez! It might be good, but I have to know the results of this function to determin the OS' version, don't I?<br />

</div>


Thanks fsanchez! It might be good, but I have to know the results of this function to determin the OS' version, don't I?


<div>
<div class="content wysiwyg-content">
I need to know, which version of Windows is running behind my program.<br />
I have to determine if it's Win3.1 or Win95 with Delphi1.0.
</div>
</div>


I need to know, which version of Windows is running behind my program.
I have to determine if it's Win3.1 or Win95 with Delphi1.0.

Which Windows running behind my prog?

Delphi is the most powerful Object Pascal IDE and component library for cross-platform Native App Development with flexible Cloud services and broad IoT connectivity. It provides powerful VCL controls for Windows 10 and enables FMX development for Windows, Mac and Mobile. Delphi is your choice for ultrafast Enterprise Strong Development™. Look for increased memory for large projects, extended multi-monitor support, improved Object Inspector and much more. Delphi is 5x faster for development and deployment across multiple desktop, mobile, cloud and database platforms including 32-bit and 64-bit Windows 10.