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]

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

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