Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.01.20;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.018 c
14-62779
Vovkin
2002-12-27 22:56
2003.01.20
,,,, delphi.mastak говоришь???


1-62553
Керик
2002-12-31 07:59
2003.01.20
Сохранение и загрузка файлов


1-62538
Pat
2003-01-10 11:05
2003.01.20
Microsoft Equation


1-62454
dumb
2003-01-09 07:38
2003.01.20
Component -> Import ActiveX Control


1-62476
GRish
2003-01-10 08:41
2003.01.20
Заковырка про TFrame