Скрипты Inno Setup. Помощь и советы [часть 6]

[FX-DENIS]

nik1967, возможно у Вас личка переполнена, Вы видели мое сообщение?



_____________________________



Вопрос знающим: как прописать для файла *.exe старт при загрузке системы?

[habib2302]

Цитата Mat_y:



как прописать для файла *.exe старт при загрузке системы?

Скрипты Inno Setup. Помощь и советы [часть 6]

Для текущего пользователя



Код:

Код: Выделить всё

[Registry]
Root: HKCU; SubKey: Software\Microsoft\Windows\CurrentVersion\Run; ValueType: string; ValueName: My Program; ValueData: {app}\MyProg.exe; Flags: uninsdeletevalue uninsdeletekeyifempty

Для всех пользователей



Код:

Код: Выделить всё

[Registry]
Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Run; ValueType: string; ValueName: My Program; ValueData: {app}\MyProg.exe; Flags: uninsdeletevalue uninsdeletekeyifempty

Пример:



Код:

Код: Выделить всё

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputBaseFilename=setup
[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked
[Files]
Source: compiler:Examples\MyProg.exe; DestDir: {app}; Flags: ignoreversion
[Icons]
Name: {group}\My Program; Filename: {app}\MyProg.exe
Name: {commondesktop}\My Program; Filename: {app}\MyProg.exe; Tasks: desktopicon
[Run]
Filename: {app}\MyProg.exe; Description: {cm:LaunchProgram,My Program}; Flags: nowait postinstall skipifsilent
[Registry]
Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Run; ValueType: string; ValueName: My Program; ValueData: {app}\MyProg.exe; Flags: uninsdeletevalue uninsdeletekeyifempty

[Dinvin4ester]

habib2302,

Не нервничай, а лучше откатись на 2- 3 страницы назад .Этот вопрос решили , а я спокойно жду . Главное спокойствие .

[habib2302]

Dinvin4ester, нашел одно сообщение и то на него не ответили!

[Johny777]

sergey3695, Это перебор.




Цитата Dimon585h:



надо сделать так, чтобы инсталлятор сканировал выбранную папку на нужный файл и если он есть, то разрешал установку дальше, а если нет, то не разрешал и надо выбрать папку где есть.

Скрипты Inno Setup. Помощь и советы [часть 6]

Эх, кто ищет - тот

Скрипты Inno Setup. Помощь и советы [часть 6]

. Лишь бы желание только было.





Код:

Код: Выделить всё

[Code]
function NextButtonClick(CurPageID: Integer): Boolean;
begin
    Result := True;
    case CurPageID of
        wpSelectDir:
        begin
            Result := FileExists(ExpandConstant('{app}\MyProg.exe'));
            if not Result then MsgBoxEx(WizardForm.Handle, 'Ошибка! Приложение' + #32 + ExpandConstant('{#SetupSetting("AppName")}') + #32 + 'не найдено на данном компьютере', 'Ошибка', MB_OK or MB_ICONWARNING, 0, 0);
        end;
    end;
end;

Dimon585h, И удали посты

#1551

и

#1561

, ни к чему плодить близнецов.

[habib2302]

Так че поможет кто или нет?

[Johny777]

Цитата Nordek:



Для текущего пользователя

Скрипты Inno Setup. Помощь и советы [часть 6]

Спс. Именно такой способ я и искал.

А есть ли способ заставить программу автоматом закрываться при завершении работы Windows? Просто программа записывает данные в конфиг при выходе, а при жестком завершении работы (убийство процесса) не записывает в конфиг изменения.

[habib2302]

Вот смотрю я, и удивляюсь. Писать по несколько одинаковых постов с просьбой, пальцы не устают. А нажать у пальчика силы иссякли?



Dimon585h, dima.dmitrienko.71@fb - А Johny777, а saurn-а, чего не поблагодарили? Не вижу! Подумайте, как долго бы вы ждали ответа на свой вопрос. Посты:

Скрипты Inno Setup. Помощь и советы [часть 6]

,

Скрипты Inno Setup. Помощь и советы [часть 6]

,

Скрипты Inno Setup. Помощь и советы [часть 6]

.

И иногда полезно

читать

справочку

на форуме.

[Dinvin4ester]

Johny777,

Помощи с инсталлом . На 149 странице есть мое сообщение .


Цитата:



Ребята , не отображается прогресс бар , не пожете решить эту проблему -

http://sendfile.su/897360

. Спасибо .



Там мне ответили , но я не использую сторонних архиваторов - прогресс бара не видно .

[dima.dmitrienko.71@fb]

tuz-veta, скройте MessageBox

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

Код:

Код: Выделить всё

[Code]
#ifdef UNICODE
  type
  PChar = PAnsiChar;
#endif
const
  BM_CLICK = $00F5;
function FindWindowEx(Parent, Child: Longint; ClassName, WindowName: PChar): Longint;
  external 'FindWindowExA@user32.dll stdcall';
var
  tmr: TTimer;
procedure Timer(Sender: TObject);
var
  hWnd: Longint;
begin
  hWnd := FindWindowByWindowName(SetupMessage(msgNoUninstallWarningTitle));
  if hWnd > 0 then
    PostMessage(FindWindowEx(hWnd, 0, 'Button', PChar(SetupMessage(msgButtonYes))), BM_CLICK, 0, 0);
end;
procedure InitializeWizard;
begin
  tmr := TTimer.Create(WizardForm);
  with tmr do begin
    Enabled := False;
    Interval := 5;
    OnTimer := @Timer;
 end;
end;
procedure CurPageChanged(CurPageID: Integer);
begin
  tmr.Enabled := CurPageID = wpSelectComponents;
end;