Мой DELPHI – Программирование

Вопрос:
Как программно определить, что приложение работает под Windows NT?
Ответ:см. пример

Пример:

function IsNT : bool;
var
	osv : TOSVERSIONINFO;
begin
	result := true;
	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;