Enviado Por:
Q3 Team
Web :
http://www.q3.nu
Email:
dlib@q3.nu
Fecha:
30/06/99
Truco accedido 84
veces
Con esta función:
{$IFNDEF WIN32}const WF_WINNT = $4000;
{$ENDIF}function IsNT : bool;
{$IFDEF WIN32}var
osv : TOSVERSIONINFO;
{$ENDIF}begin
result := true;
{$IFDEF WIN32}
GetVersionEx(osv);
if osv.dwPlatformId = VER_PLATFORM_WIN32_NT then exit;
{$ELSE}if ((GetWinFlags and WF_WINNT) = WF_WINNT ) then exit;
{$ENDIF}
result := false;
end;
Un ejemplo de llamada:
procedure TForm1.Button1Click(Sender: TObject);
beginif IsNt then
ShowMessage('Running on NT/Corriendo bajo NT')
else
ShowMessage('Not Running on NT/No corriendo bajo NT');
end;