Имя пользователя:
Пароль:
 

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

Ветеран


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

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


Цитата lexikon:
как сделать чтобы к примеру при установке когда выбираешь каталог там в строке была фраза "Выберите каталог для установки" »
Пример
Код: Выделить весь код
[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]
const
  WM_SETTEXT = $000C;
  
var
  SetText: Boolean;

function DirEditSetText(Text: string): Boolean;
var
  TextL: Longint;
begin
  TextL:= CastStringToInteger(Text);
  Result:= SendMessage(WizardForm.DirEdit.Handle, WM_SETTEXT, Length(Text), TextL) > 0;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  if (CurPageID = wpSelectDir) and not SetText then
    SetText:= DirEditSetText('Выберите каталог для установки');
end;

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

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

Отправлено: 19:01, 01-02-2010 | #1158