VPF::Можно ли включить в проект exe? - Форум программистов

Leklerk

Дата 19.7.2012, 13:34 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 200
Регистрация: 31.7.2009
Где: Санкт-Петербург

Репутация: нет
Всего: нет

Добрый день! Подскажите пожалуйста, можно ли включить в проект exe, чтобы потом запускать его из основного юнита? Я добавлял через Project -> Add to project, но exe из юнита не запускается.

Alexeis

Дата 19.7.2012, 14:05 (ссылка)

(голосов:1)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Поместить экзешник в ресурсы, перед запуском сохранить на диск, затем запустить оттуда куда записали.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Frees

Дата 19.7.2012, 14:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 9
Всего: 54

Цитата(Leklerk @ 19.7.2012, 16:34

)

А код покажи как ты его запускаешь?

--------------------

Кольцов Виктор Владимирович

Leklerk

Дата 19.7.2012, 14:38 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 200
Регистрация: 31.7.2009
Где: Санкт-Петербург

Репутация: нет
Всего: нет

Цитата(Frees @ 19.7.2012, 16:13

)

А код покажи как ты его запускаешь?

Код


procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);
var
  Str: AnsiString;
  iWinExec: Integer;
begin
  { Если пинг прошел успешно, то отсылаем сообщение }
  if AReplyStatus.MsRoundTripTime<1000 then
  begin
    Str:= 'S:\SoftGO\Soft\RUN\nhns.exe ' + CurrNameOfComp 
      + ' "О Т Г Р У З К А: ' + #13#10 + #13#10;
    ADODataSet1.First;
    I:= 0;
    while (ADODataSet1.Eof<>True) do
    begin
      Str:= Str + IntToStr(I+1) + '). ';
      Str:= Str + Trim(ADODataSet1.FieldByName('Покупатель').AsString);
      Str:= Str + '.' + #13#10;
      ADODataSet1.Next;
      I:= I + 1;
    end;          
    Str:= Str + ' "';  
    WinExec(PAnsiChar(Str), SW_HIDE);  
  end

CynicRus

Дата 19.7.2012, 21:42 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 248
Регистрация: 31.5.2012

Репутация: нет
Всего: 5

С таким именем файла, имхо - и не должен запуститься. Ты посмотри, что у тебя в str перед winexec..

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »