Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
0 / 0 / 0
Регистрация: 25.10.2014
Сообщений: 23
1

Как сделать, чтобы программа не запускалась на Windows 7?

30.12.2015, 02:24. Просмотров 1343. Ответов 1
Метки нет (Все метки)

как сделать чтобы программа не запускалась на Windows Xp, vista, 7,а запускалась только на Windows 8, 8.1,10?
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.12.2015, 02:24
Ответы с готовыми решениями:

Как сделать чтобы программа сама запускалась при запуске компа
Как сделать чтобы программа сама запускалась при запуске компа

Как сделать чтобы написанная мной программа запускалась от имени администратора?
Моя программа, написанная на Delphi XE7 не может работать, если пользователь установил её в С:\, a...

Как сделать, чтобы программа запускалась под x64
Вопрос вот в чем, делаю программу, часть уже написал, но контора, для которой программа резко...

Как сделать, чтобы с флешки при её подключении запускалась программа?
Нужно сделать чтобы после того как я вставлю флешку, запускалась на ней определенная программа, как...

1
834 / 729 / 342
Регистрация: 22.09.2012
Сообщений: 5,034
30.12.2015, 05:18 2
Лучший ответ Сообщение было отмечено Rusikq как решение

Решение

Rusikq,
Определи программно версию OSVERSIONINFO да и запускай на какой нужно.
https://msdn.microsoft.com/ru-... .85).aspx#

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var
  Os: OSVERSIONINFO;
begin
  Os.dwOSVersionInfoSize := sizeof(Os);
  GetVersionEx(Os);
 
  if ((Os.dwMinorVersion = 1) and (Os.dwMajorVersion = 5)) then
  begin
    MessageBoxA(0, 'Windows XP', 'Title', 0);
  end
  else if ((Os.dwMinorVersion = 0) and (Os.dwMajorVersion = 6)) then
  begin
    MessageBoxA(0, 'Windows Vista', 'Title', 0);
  end
  else if ((Os.dwMinorVersion = 1) and (Os.dwMajorVersion = 6)) then
  begin
    MessageBoxA(0, 'Windows 7', 'Title', 0);
  end
  else
  begin
    MessageBoxA(0, 'Unknown version', 'Title', 0);
  end;
end;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.12.2015, 05:18

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Как сделать так чтобы простейшая программа запускалась сначало
Предположим есть самая простая программа: #include <iostream> using namespace std; #include...

Как сделать так, чтобы программа не требовала пароль администратора и запускалась сразу?
В Windows 7 две УЗ (Админ и пользователь). Когда захожу в УЗ пользователя при запуске программы,...

Как сделать так, чтобы служба Windows запускалась при старте компьютера
Как сделать так, чтобы служба Windows, которую я написал, запускалась при старте компьютера? ...

Как сделать, чтобы программа на дельфи запускалась автоматически при старте винды и сворачивалась в трей?
Как сделать, чтобы программа на дельфи запускалась автоматически при старте винды и сворачивалась в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.