Создание авто- загрузочной проги.

← →
Gaist © (2007-06-12 23:44) [0]

Есть проблемма с созданием. Все работает почти супер но с талкнулся с такой проблемой у меня 3 chekbox и если выделить их все то он устанавливает сразу 3 программы на которые стоят ссылки а нужно чтобы поочереди.
Что можете посоветовать?

← →
Gaist © (2007-06-13 00:15) [1]

Как можно проверить что программа завершила установку.

← →
Strate © (2007-06-13 01:01) [2]

Ещё бы понять что именно надо...

← →
Gaist © (2007-06-13 01:05) [3]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons;

type
TForm1 = class(TForm)
Image1: TImage;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
Button1: TButton;
Button2: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Label2Click(Sender: TObject);
procedure Label1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

if checkBox2.Checked = true then WinExec("Programms\dotnetfx.exe", 1);

if checkBox1.Checked = true then WinExec("Programms\setup_analizICTAD.exe", 1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Label2Click(Sender: TObject);
begin
CheckBox2.Checked := not CheckBox2.Checked;
end;

procedure TForm1.Label1Click(Sender: TObject);
begin
CheckBox1.Checked := not CheckBox1.Checked;
end;

end.

Это исходник нужно чтобы фаил Setup_analizICTAD.exe запускался после того как пройдет установка запущенная с фаила dotnetfx.exe.

← →
sniknik © (2007-06-13 01:16) [4]

вместо WinExec используй CreateProcess, после него есть возможность подождать (WaitForSingleObject) завершения процесса.

p.a. а лучше взять готовый создатель инсталляторов. например "Inno Setup".

← →
Gaist © (2007-06-13 01:19) [5]

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

← →
Германн © (2007-06-13 01:19) [6]

> sniknik © (13.06.07 01:16) [4]

А что означает
> p.a.
?
:)

← →
Gaist © (2007-06-13 01:29) [7]

CreateProcess КАК ВООБЩЕ С НИМ РАБОТАТЬ Я ЗАПУТАЛСЯ(((

← →
sniknik © (2007-06-13 01:30) [8]

> А что означает
палец с s соскользнул.

← →
Германн © (2007-06-13 01:33) [9]

> Gaist © (13.06.07 01:29) [7]
>
> CreateProcess КАК ВООБЩЕ С НИМ РАБОТАТЬ Я ЗАПУТАЛСЯ(((
>

Справку прочитал? Что не понял?

← →
Gaist © (2007-06-13 01:34) [10]

const "RUN " , Args: string; const RemoteHost: string = ""

← →
Германн © (2007-06-13 01:34) [11]

> sniknik © (13.06.07 01:30) [8]
>
> > А что означает
> палец с s соскользнул.
>

Имеется тенденция к "хождению налево"?
:)

Первое имя фаила второе процес запуска run а вот в остальных что писать?

Можеш написать строчку работы с этим процесом как пример?

> Gaist © (13.06.07 01:53) [13]
>
> Можеш написать строчку работы с этим процесом как пример?
>
>

А поиск на форуме тебе лень использовать?
http://delphimaster.ru/cgi-bin/faq.pl?look=1&id=988621841&n=15

Герман спс все проблемы сразу ушли, огромное тебе спс

> Gaist © (13.06.07 02:17) [15]
>
> Герман спс все проблемы сразу ушли, огромное тебе спс
>

Да не надо мне спс :)
Добавь у себя в Избранное - http://www.delphimaster.ru/search.html
Вот тогда и будет "пжста" :)

Создание авто- загрузочной проги. Найти похожие ветки