Форум: "Основная";
Текущий архив: 2003.01.20;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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 не катит.

---

← →
maxim2   (2003-01-11 13:37) [5]

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

---

← →
Verg   (2003-01-11 13:38) [6]

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.

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.01.20;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.01 c