Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 02.11.2010, 18:21   #1
PaHaNjkee
Delphi 10 Seattle
Пользователь
 
Аватар для PaHaNjkee
 
Регистрация: 01.11.2010
Сообщений: 90
Радость Куда писать programm?

Здраствуйте, я новичек и не знаю куда писать слово programm подскажите, во весь код:
Код:
program Setup; 

uses 
Windows, 
SysUtils; 

const 
ReRunParameter = '/install_from_temp_directory'; 

var 
TempPath: array [0..MAX_PATH] of Char; 
SrcPath: String ; 

begin 
if ParamStr(1) = ReRunParameter then 
SrcPath := ParamStr(2) 
else 
if GetDriveType(PChar(ParamStr(0)[1] + ':\')) = DRIVE_REMOVABLE then 
begin 
// Если программа была запущена без ключа и с дискеты, то 
// копируем её во временный каталог и перезапускам 
// Текущее приложение завершаем. 
GetTempPath(MAX_PATH, TempPath); 
// Добавлям к пути временного каталога символ '\', если его там нет 
if (StrLen(TempPath) > 0) and (TempPath[StrLen(TempPath)] <> '\') then 
StrCat(TempPath, '\'); 
// Копируем файл через вызов функции CopyFile из WinAPI 
CopyFile(PChar(ParamStr(0)), PChar(String(TempPath) + ExtractFileName(ParamStr(0))), False ); 
// Запускаем файл с двумя параметрами 
WinExec(PChar(String(TempPath) + ExtractFileName(ParamStr(0)) + ' ' + 
ReRunParameter + ' ' + ExtractFilePath(ParamStr(0))), CmdShow); 
Exit; 
end 
else 
SrcPath := ExtractFilePath(ParamStr(0)); 
// Здесь начинается программа инсталляции 
// Переменная SrcPath показывает нам, откуда надо копировать файлы 
end.
PaHaNjkee вне форума
Старый 02.11.2010, 19:11   #2
_-Re@l-_
C++, Java
Старожил
 
Аватар для _-Re@l-_
 
Регистрация: 10.04.2010
Сообщений: 2,665
По умолчанию

Код:
 program Setup;
А это что, по-вашему?
_-Re@l-_ вне форума
Старый 02.11.2010, 19:16   #3
BOBAH13
Android Developer
Старожил Подтвердите свой е-майл
 
Аватар для BOBAH13
 
Регистрация: 19.02.2007
Сообщений: 3,708
По умолчанию

Цитата:
Сообщение от _-Re@l-_ Посмотреть сообщение
Код:
 program Setup;
А это что, по-вашему?
Не верно, спросили про
Цитата:
programm
я например тоже не знаю куда его писать.

p.s. да простит меня автор.
BOBAH13 вне форума
Старый 02.11.2010, 19:20   #4
_-Re@l-_
C++, Java
Старожил
 
Аватар для _-Re@l-_
 
Регистрация: 10.04.2010
Сообщений: 2,665
По умолчанию

Цитата:
Сообщение от BOBAH13 Посмотреть сообщение
Не верно, спросили про я например тоже не знаю куда его писать.

p.s. да простит меня автор.
Ах, точно...Ваша правда, BOBAH13
_-Re@l-_ вне форума
Старый 02.11.2010, 19:29   #5
PaHaNjkee
Delphi 10 Seattle
Пользователь
 
Аватар для PaHaNjkee
 
Регистрация: 01.11.2010
Сообщений: 90
По умолчанию

чтото читал я про это только не помню куда вставлять...
PaHaNjkee вне форума
Старый 02.11.2010, 19:32   #6
_-Re@l-_
C++, Java
Старожил
 
Аватар для _-Re@l-_
 
Регистрация: 10.04.2010
Сообщений: 2,665
По умолчанию

А почему тогда компилятор не знает о существовании данной директивы?
_-Re@l-_ вне форума
Старый 02.11.2010, 19:58   #7
PaHaNjkee
Delphi 10 Seattle
Пользователь
 
Аватар для PaHaNjkee
 
Регистрация: 01.11.2010
Сообщений: 90
По умолчанию

незнаю) но мне очень надо
PaHaNjkee вне форума
Старый 02.11.2010, 20:18   #8
_-Re@l-_
C++, Java
Старожил
 
Аватар для _-Re@l-_
 
Регистрация: 10.04.2010
Сообщений: 2,665
По умолчанию

Цитата:
незнаю)

Да поймите же, что такой директивы у комплиятора просто нет! И не будет.
_-Re@l-_ вне форума
Старый 02.11.2010, 20:28   #9
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Цитата:
Сообщение от PaHaNjkee Посмотреть сообщение
чтото читал я про это только не помню куда вставлять...
Поручик Ржевский:
- Молчать, господа офицеры !
Тему закрываю, а потом удалю.
mihali4 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
не знаю куда писать поэтому пишу сюда просьба тему не закрывать а переместить в нужный раздел если такой DarkAngelOfLight Свободное общение 16 16.10.2010 02:59
куда вписывать сам текст программы на С++?и вообще,где начинать писать саму программу? Ledy Общие вопросы C/C++ 8 07.05.2010 01:14
Куда отследить куда утекает память? TwiX Общие вопросы Delphi 6 02.03.2010 03:10