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

Вниз

Setup в приложении   Найти похожие ветки 

 
Amirka   (2004-03-30 09:58) [0]

Здравствуйте!
Такая проблема:
У меня есть приложение, которое запускается только с диска. При этом требуется до начала работы приложения установить кодеки, проигрыватели и т.д. Склепал в InnoSetup программу, которая устанавливает все что надо, и записывает в одну из системных папок файл presence.dat.
При следующем запуске диска моя маленькая программка проверяет, есть ли файл, если есть, запускает мою основную программу, если нет, то setup.
Пока программа проверки была отдельной, все работало, когда вставил в основную программу - появились проблемы.

Проверка стоит у меня в dpr до  Application.CreateForm(...), тем не менее главная форма создается (появляется окно), потом запускается setup, а потом срабатывает Application.terminate, а надо, чтобы в случае необхоимости запуска setup работа основной программы никак не проявлялась
Какие будут предложения?


 
Digitman ©   (2004-03-30 10:05) [1]

приводи полный код dpr


 
Amirka   (2004-03-30 10:13) [2]

procedure CheckSetup;
var
 windowsdirectory:string;
 SearchRec: TSearchRec;
 result:integer;
 windir:string;
 p:Pchar;
begin
   p:=stralloc(MAX_PATH+1);
   windows.getwindowsdirectory(p,max_path+1);
   windowsdirectory:=p;
   strdispose(p);
result:=FindFirst(windowsdirectory+"\"+"presence.dat", faAnyFile, SearchRec);
if result=0 then
//ShellExecute(0, "open", "data\viewer.exe", nil, nil, SW_SHOWNORMAL)
 Exit
 else begin

 ShellExecute(0, "open", "setup.exe", nil, nil, SW_SHOWNORMAL);    Application.terminate;
 end;
 end;

begin
CheckSetup;
 Application.Initialize;
 ComServer.UIInteractive := False;
 Application.Title := "Учебник "Защита компьютерной информации"";
 Application.CreateForm(TForm1, Form1);
 Application.CreateForm(TFormPDF, FormPDF);
 Application.CreateForm(TForm2, Form2);
 Application.Run;
end.


 
Романов Р.В. ©   (2004-03-30 10:25) [3]

function CheckSetup: Boolean;
begin
...
end;

begin
if CheckSetup then
begin
Application.Initialize;
ComServer.UIInteractive := False;
Application.Title := "Учебник "Защита компьютерной информации"";
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TFormPDF, FormPDF);
Application.CreateForm(TForm2, Form2);
Application.Run;
end;
end.


 
Amirka   (2004-03-30 10:33) [4]

Спасибо, помогло. Дурак я, мог бы сам догадаться, но видать, чего-то замкнуло :)).



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

Текущий архив: 2004.04.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.027 c
14-1079977864
$tranger
2004-03-22 20:51
2004.04.18
С чем едят АССЕМБЛЕР?


1-1080420173
oleg_SYS
2004-03-27 23:42
2004.04.18
Перетаскивание файлов


1-1080804059
Dmitrij_K
2004-04-01 11:20
2004.04.18
Как можно распаковать все html файлы из *.chm файла


1-1080459979
Neep
2004-03-28 11:46
2004.04.18
Помогите разобраться с CallBack


14-1080131354
dr Tr0jan
2004-03-24 15:29
2004.04.18
Опять про хостинг, но уже с MySQL