Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Win Api / Как программно определить, что приложение работает под Windows NT?

Как программно определить, что приложение работает под Windows NT?

Пример:

function IsNT : bool;
var
    osv : TOSVERSIONINFO;
begin
    result := true;
    osv.dwOSVersionInfoSize := sizeof(OSVERSIONINFO);
    GetVersionEx(osv);
    if osv.dwPlatformId = VER_PLATFORM_WIN32_NT then exit;
    result := false;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    if IsNt then
        ShowMessage('Running on NT')
    else
        ShowMessage('Not Running on NT');
end;

Источник: Дельфи. Вокруг да около.

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru