Форум: "Начинающим";
Текущий архив: 2007.07.08;
Скачать: [xml.tar.bz2];
ВнизСоздание авто- загрузочной проги. Найти похожие ветки
← →
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 соскользнул.
>
Имеется тенденция к "хождению налево"?
:)
← →
Gaist © (2007-06-13 01:43) [12]Первое имя фаила второе процес запуска run а вот в остальных что писать?
← →
Gaist © (2007-06-13 01:53) [13]Можеш написать строчку работы с этим процесом как пример?
← →
Германн © (2007-06-13 02:01) [14]
> Gaist © (13.06.07 01:53) [13]
>
> Можеш написать строчку работы с этим процесом как пример?
>
>
А поиск на форуме тебе лень использовать?
http://delphimaster.ru/cgi-bin/faq.pl?look=1&id=988621841&n=15
← →
Gaist © (2007-06-13 02:17) [15]Герман спс все проблемы сразу ушли, огромное тебе спс
← →
Германн © (2007-06-13 02:30) [16]
> Gaist © (13.06.07 02:17) [15]
>
> Герман спс все проблемы сразу ушли, огромное тебе спс
>
Да не надо мне спс :)
Добавь у себя в Избранное - http://www.delphimaster.ru/search.html
Вот тогда и будет "пжста" :)
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.07.08;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.037 c