[Gnom_aka_Lexander]

кат. назначения: DestDir: {tmp}. »

DestDir: {tmp}работает при установке. причем, независимо от того, распаковал ты эти файлы уже или нет, посему, раз распаковываешь раньше, то стоит заменить на Flags : dontcopy;
прогрессбар - создаешь прогрессбар, на котором покажешь распаковку, задаешь свойству max - количество файлов, которые будешь распаковывать, и после распаковки каждого пишешь - твой прогрессбар.Position := твой прогрессбар.Position + 1 ;
Вуаля.

[Tco 03]

Здравствуйте. Подскажите, пожалуйста, как в файл (например .ini) записать только значение (без секции "[]" и равно "=").

[Gnom_aka_Lexander]

никак, секция неизбежно указывается. можно записать текстом, с помощью стринглиста:

Код:

procedure InitializeWizard();
var
  sr : TStringList;
begin
  sr := TStringList.Create; //создаем TStringList
  with sr do
  begin
    LoadFromFile('твой файл')   // грузим из файла, если файл пустой, то можно этого не делать
    Add('равно "="');  // строку, которую нужно записать
    SaveToFile('твой файл');    // сохраняем в файл(файл будет очищен
    Free;              // удаляем TStringList за ненадобностью
  end;
end;

[woland0789]

Доброго времени суток, подскажите, где найти скрипт, который проверяет при удалении не запущена ли программа, и если да, то убивает этот процесс.

[Gnom_aka_Lexander]

woland0789, Inno Setup начиная с версии 5.5.0 уже делает это сама.

[R.i.m.s.k.y.]

Gnom_aka_Lexander, какой командой? просто у меня древний инно 5,3 какой-то

[Gnom_aka_Lexander]

какой командой? »

никакой, это поведение по умолчанию. единственное - в версии 5.5.1 на ХР не работало, может в 5.5.2 исправили? нет ХР под рукой, чтоб проверить.
если правильно понял, то при обнаружении процессов, работающих из папки установки/удаления, она выводит список процессов, которые мешают и предлагает их закрыть в необязательном порядке. В необязательном - можно выбрать не закрывать процессы и продолжить установку-удаление

[Johny777]

ради интереса портировал отсюда http://delphiguru.xm6.ru/lessons/18-...na-delphi.html создание круглой формы. Кому надо забирайте!

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

Код:

[Setup]
AppName=My Program
AppVerName=My Program v.1.2
DefaultDirName={pf}\My Program

[code]
type
  HRGN = LongWord;
  HGDIOBJ = LongWord;
  
function GetWindowRgn(hWnd: HWND; hRgn: HRGN): Integer; external 'GetWindowRgn@user32.dll stdcall';
function DeleteObject(p1: HGDIOBJ): BOOL; external 'DeleteObject@gdi32.dll stdcall';
function CreateRoundRectRgn(X1, Y1, X2, Y2, X3, Y3: Integer): HRgn; external 'CreateRoundRectRgn@gdi32.dll stdcall';
function SetWindowRgn(hWnd: HWND; hRgn: HRGN; bRedraw: BOOL): Integer; external 'SetWindowRgn@user32.dll stdcall';

procedure InitializeWizard;
var
  FormRgn: hRgn;
begin
  WizardForm.Brush.Style := bsSolid; //bsclear;
  GetWindowRgn(WizardForm.Handle, FormRgn);
  DeleteObject(FormRgn);
  WizardForm.Height := 500;
  WizardForm.Width := WizardForm.Height;
  FormRgn := CreateRoundRectRgn(1, 1, WizardForm.Width - 1,WizardForm.height - 1, WizardForm.width, WizardForm.height);
  SetWindowRgn(WizardForm.Handle, FormRgn, TRUE);
end;

[nik1967]

Johny777, на юникоде выдаёт ошибку ран тайм.
На анси компилится.

[Gnom_aka_Lexander]

nik1967, с GDI всегда так, то на анси не хочет работать, то на юникоде...