Цитата МИШАНЧИК:
Можно ли как-то сделать чтоб они плюсовались? »
|
Честно говоря, ни разу не задавался таким вопросом, пробежавшись по справке, нашёл
UninstallDisplaySize, но она работает только для Win7 и выше, а на XP апплет "Установка и удаление программ", ищет место расположение папки установленной программы в реестре, а затем подсчитывает её размер (определил экспериментальным путём), отсюда вывод - извлекайте архивы в папку своего приложения.
Цитата NigthWarrior:
чтобы в TEdit можно было вводить только латинские символы »
|
Пример
Код:
[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes
[Languages]
Name: rus; MessagesFile: compiler:Languages\Russian.isl
[Code]
procedure EditKeyPress(Sender: TObject; var Key: Char);
begin
if ((Key < #65) or (Key > #90)) and ((Key < #97) or (Key > #122)) then Key:= #0;
end;
procedure InitializeWizard();
begin
with TNewEdit.Create(WizardForm) do
begin
Parent:= WizardForm;
SetBounds(ScaleX(16), ScaleY(327), ScaleX(209), ScaleY(21));
OnKeyPress:= @EditKeyPress;
end;
end;