Как не дать запуститься своей проге?

← →
maxim2 © (2003-01-11 13:04) [0]

Привет всем!
Такая проблемка возникла например если прога запускается на платформе NT как не дать ей запуститься?
Подскажите кто знает.

← →
Pasechnik (2003-01-11 13:08) [1]

if GetVersion >= $80000000 then //твой код для 95/98//
else
close;
элементарно.

← →
maxim2 © (2003-01-11 13:16) [2]

Я немножко не так определяю

if Win32Platform = VER_PLATFORM_WIN32_WINDOWS then
//мой код
else
close;

Как узнать платформу я знаю а куда вставить этот код?

← →
Anatoly Podgoretsky © (2003-01-11 13:23) [3]

В самое начало програмы

← →
maxim2 © (2003-01-11 13:29) [4]

> Anatoly Podgoretsky

Создаю проэкт File\New\Application

Куда там вставлять в unit project1 в событие форме oncreate не катит.

Все дошло, спасибо всем

Project/view source/

uses
Forms,
.....
sysutils;

begin
if Win32Platform = VER_PLATFORM_WIN32_WINDOWS then
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end;
end.

Как не дать запуститься своей проге? Найти похожие ветки