[AlekseyPopovv]

Как сделать что бы если файл q.xml присутствует в папке {userappdata}\x\z - то другой файл q.xml с папки {tmp} не копировался, а если файла q.xml нет в папке {userappdata}\x\z - то файл q.xml с папки {tmp} копировался?

читать дальше »

procedure CurStepChanged(CurStep: TSetupStep);
begin
if Installer.Checked then
CreateDir(ExpandConstant('{userappdata}\x'));
if Installer.Checked then
CreateDir(ExpandConstant('{userappdata}\x\z'));
if Installer.Checked then
if FileExists(ExpandConstant('{userappdata}\x\z\q.xml')) then
if not FileCopy(ExpandConstant('{tmp}\q.xml'), ExpandConstant('{userappdata}\z\z\q.xml'), False) then
end;

[Dodakaedr]

Как сделать что бы если файл q.xml присутствует в папке »

А чем вам секция [Files] не угодила?

Код:

[Files]
Source: "q.xml"; DestDir: "{userappdata}\x\z"; Check: "InstallerCheck"; Flags: onlyifdoesntexist

или как-то так:

Код:

procedure CurStepChanged(CurStep: TSetupStep);
var
 PathName: String;
begin
if Installer.Checked then
begin
PathName:= ExpandConstant('{userappdata}\x\z');
ForceDirectories(PathName);
if not FileExists(ExpandConstant('{userappdata}\x\z\q.xml')) then
FileCopy(ExpandConstant('{tmp}\q.xml'), ExpandConstant('{userappdata}\x\z\q.xml'), False);
end;
end;

[AlekseyPopovv]

Я и через секцию [Files] не знаю Хотелось бы узнать и так и так.

Dodakaedr
Спасибо. В моей справке описание этого флага на английском, а из перевода шибко не понял что этот флаг делает.

[Dodakaedr]

Спасибо. »

Для этого есть "Полезное сообщение"

[saurn]

AlekseyPopovv, Dodakaedr, в Check можно использовать встроенные булевые функции.

Код:

[Files]
Source: q.xml; DestDir: {userappdata}\x\z; Check: not FileExists(ExpandConstant('{userappdata}\x\z\q.xml'));

[AlekseyPopovv]

Как добавить значок программы в панель управления?

[Dodakaedr]

Как добавить значок программы в панель управления? »

Надо создать файл .cpl (такой тип dll-ки) Ссылка. Или Через реестр

[Tco 03]

и гадай что там не работает тогда. »

Есть ли какой-нибудь другой код, кроме этого: SendMessage(WizardForm.Handle, WM_SYSCOMMAND, 61472, 0); чтобы свернуть инсталлятор?

[Shift85]

Подскажите, пожалуйста, есть ли какая-нибудь другая альтернатива? »

Tco 03, Конечно со скином в паре...

читать дальше »

http://rghost.ru/58292609

[sergey3695]

Shift85, там вообще-то SendMessage(WizardForm.Handle, WM_SYSCOMMAND, 61472, 0);
Tco 03, зачем тебе сворачивать его? кроме этого нету. ну по крайней менее я не знаю.