Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Ветеран


Сообщения: 1133
Благодарности: 581

Профиль | Отправить PM | Цитировать


Цитата МИШАНЧИК:
Можно ли как-то сделать чтоб они плюсовались? »
Честно говоря, ни разу не задавался таким вопросом, пробежавшись по справке, нашёл 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;

-------
Книги нужны, чтобы напоминать человеку, что его оригинальные мысли не так уж новы... Авраам Линкольн.

Это сообщение посчитали полезным следующие участники:

Отправлено: 19:11, 12-03-2010 | #1521