Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

maxim2 © (2003-01-11 13:04:00)
Привет всем!
Такая проблемка возникла например если прога запускается на платформе NT как не дать ей запуститься?
Подскажите кто знает.

Verg (2003-01-11 13:38:00) [1]
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.

maxim2 (2003-01-11 13:37:00) [2]
Все дошло, спасибо всем

maxim2 (2003-01-11 13:29:00) [3]
> Anatoly Podgoretsky

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

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

Anatoly Podgoretsky (2003-01-11 13:23:00) [4]
В самое начало програмы

maxim2 (2003-01-11 13:16:00) [5]
Я немножко не так определяю

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

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

Pasechnik (2003-01-11 13:08:00) [6]
if GetVersion >= $80000000 then //твой код для 95/98//
else
close;
элементарно.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »