<b>Hallo!<br>
<br>
Ich schreibe ein Programm, das nur unter WinNT laufen soll... ausserdem soll noch zwischen <i>NT-Server</i> und <i>NT-Workstation</i> unterschieden werden.<br>
Ich habe nun versucht über die API-Befehle </b>GetVersion<b> und </b>GetVersionEx(TOSVersionInfoA)<b> auf das Betriebssystem und dessen Version zu kommen - klappt nicht.<br></b>
<br>
<font face="Courier">program NAME;<br>
...<br>
begin<br>
Application.Initialize;<br>
if GetVersionEx(AWinVer)<br>
then begin<br>
if AWinVer.dwPlatformId <> VER_PLATFORM_WIN32_NT<br>
then begin<br>
Application.Cr eateForm(TFrmMain, FrmMain);<br>
Application.Ru n;<br>
end;<br>
end;<br>
end.<br></font>
<br><b>
Wie komme ich denn jetzt auf das verwendete Betriebssystem (WinNT <u>und</u> Server/WorkStation)?<br>
<br>
Danke!<br>
<br>
Ich schreibe ein Programm, das nur unter WinNT laufen soll... ausserdem soll noch zwischen <i>NT-Server</i> und <i>NT-Workstation</i> unterschieden werden.<br>
Ich habe nun versucht über die API-Befehle </b>GetVersion<b> und </b>GetVersionEx(TOSVersionInfoA)<b> auf das Betriebssystem und dessen Version zu kommen - klappt nicht.<br></b>
<br>
<font face="Courier">program NAME;<br>
...<br>
begin<br>
Application.Initialize;<br>
if GetVersionEx(AWinVer)<br>
then begin<br>
if AWinVer.dwPlatformId <> VER_PLATFORM_WIN32_NT<br>
then begin<br>
Application.Cr eateForm(TFrmMain, FrmMain);<br>
Application.Ru n;<br>
end;<br>
end;<br>
end.<br></font>
<br><b>
Wie komme ich denn jetzt auf das verwendete Betriebssystem (WinNT <u>und</u> Server/WorkStation)?<br>
<br>
Danke!<br>
Comment