[Gnom_aka_Lexander]

Raf-9600, В каком смысле? Если менять язык инсталлятора на ходу, то это страшное дело - абсолютно все надписи нужно перерисовывать заново - это долгий процесс, и на слабых компах вызовет дикие тормоза.
по предложенным тобой примерам:
Проверка кириллицы в пути - слегка правленый вариант товарища VoLT:

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

Код:

[Setup]
AppName = MyApp
AppVername = MyApp
DefaultDirName = {pf}\MyApp

[*Code]

function IsAnsi(S: string): boolean;
begin
  if CompareStr(AnsiLowercase(S), Uppercase(S)) = 0 then
    if CompareStr(Lowercase(S), AnsiLowercase(S)) = 0 then
  Result := True;
end;

function NextButtonClick(CurPageID: Integer): Boolean;
begin
  Result := True;
  if CurPageID = wpSelectDir then
    if not (IsAnsi(WizardForm.DirEdit.Text)) then
    begin
      MsgBox('В пути установки присуствуют русские символы'+#13#10+'Пожалуйста, повторите ввод.', mbError, mb_Ok);
      Result := False;
    end;
end;

Скрипт для вывода данных о винтах - слегка правленный вариант от YURSHAT(требует get_hw_caps.dll):

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

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Files]
Source: compiler:Dll Pack\get_hw_caps.dll; Flags: dontcopy

[*Code]

var
  DirList: TNewListBox;
  Text: TNewStaticText;

function GetHardDriveFreeSpace(hdd: integer): Integer;
  external 'hwc_GetHardDriveFreeSpace@files:get_hw_caps.dll stdcall';
function GetHardDriveName(hdd: integer): PAnsiChar;
  external 'hwc_GetHardDriveName@files:get_hw_caps.dll stdcall';
function GetHardDriveTotalSpace(hdd: integer): Integer;
  external 'hwc_GetHardDriveTotalSpace@files:get_hw_caps.dll stdcall';
function GetHardDrivesCount(): Integer; external 'hwc_GetHardDrivesCount@files:get_hw_caps.dll stdcall';

function NumToStr(Float: Extended): string;
begin
  Result:=Format('%.2n', [Float]);
  StringChange(Result, ',', '.');
  while ((Result[Length(Result)]='0')
    or (Result[Length(Result)]='.'))
      and (Pos('.',Result)>0) do
  SetLength(Result,Length(Result)-1);
end;

function TBorGBorMB(Float: Extended): string;
// функция определения ТБ, ГБ или МБ
begin
  if Float<1024 then Result:=NumToStr(Float)+' MB'
  else if (Float/1024)<1024 then Result:=NumToStr(Float/1024)+' GB'
  else if (Float/(1024*1024))<1024 then Result:=NumToStr(Float/(1024*1024))+' TB'
end;

procedure ListBoxOnClick(Sender: TObject);
var
  NewLetter, OldString: string;
begin
  with TNewListBox(Sender) do
  begin
    NewLetter := Copy(Items[ItemIndex], 0, 1);
    OldString := Copy(WizardForm.DirEdit.Text, 2, Length(WizardForm.DirEdit.Text));
    WizardForm.DirEdit.Text := NewLetter + OldString;
  end;
end;

procedure InitializeWizard();
var
  i : Integer;
begin
  { DirList }
  DirList := TNewListBox.Create(WizardForm);
  with DirList do
  begin
    Parent := WizardForm.SelectDirPage;
    SetBounds(ScaleX(0),ScaleY(112),ScaleX(417),ScaleY(97));
    ItemHeight := 13;
    ItemIndex := 0;
    for i:= 0 to GetHardDrivesCount() - 1 do
      Items.Add(GetHardDriveName(i)+ '      ' + 'Свободно: ' + IntToStr((GetHardDriveFreeSpace(i)*100) div GetHardDriveTotalSpace(i)) + '%  '+'('+ TBorGBorMB(GetHardDriveFreeSpace(i))+')'+'    '+'из'+'    '+TBorGBorMB(GetHardDriveTotalSpace(i)));
    OnClick := @ListBoxOnClick;
  end;
end;

На описания тоже гдето есть скрипт более оптимальный и в плане производительности и в плане косячности работы, за авторством Shegorat, но лень искать (эти два под рукой просто были).

[Johny777]

Проверка кириллицы в пути - слегка правленый вариант товарища VoLT: »

а в чём разница?
(у себя использую тот, что страницей назад и если оно того стоит поменяю на твой)

[Gnom_aka_Lexander]

Johny777, Все у тебя правильно, и опора идет по позиции прогрессбара, как раз. просто у тебя обновление по окончании копирования предидущего файла. делай эту процедуру в таймере, чтоб обновлялась позиция с минимальными интервалами.

а в чём разница? »

В скорости работы. И это не мой, это VolT-а. нет у меня привычки чужие наработки присваивать.

[Johny777]

Лександер,
извиняюсь за неточный оборот речи
под словом "твой" имелось в виду не авторство, а твой пример (или готовый "пример из твоего сообщения"). Коточе в таком смысле
Да и бред говорить что он твой(авторство) после того как ты сам сказал, что "правленый вариант товарища VoLT"

нет у меня привычки чужие наработки присваивать »

и в мыслях не было!
Скажу честно.
У меня 90% функций скрипта - чужие примеры и я благодарен их авторам (хотя многих даже не знаю, тк взял из коллекции скриптов).
А то что твои скрипты кое кто воровал я в курсе. Тк перечитывал предыдущие ветки в поисках знаний и примеров. И можешь не поверить, но у меня нет ни одного того скрипта с сам знаешь какого сайта, тк они там "грязные"

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

У меня 90% функций скрипта »

у всех так...
...мы все учились понемногу чему-нибудь и как-нибудь...

[JHeavy]

Здравствуйте у меня небольшой вопрос по копированию файла из секции [Components]. Как сделать так чтобы если выбирая компоненты a и b, компонент b копируется одну папку, а если b и с, то компонент b копируется в другую папку. И все три файла разные.

[Raf-9600]

Johny777, R.i.m.s.k.y., благодарю, ваши примеры мне пригодились.
Лександер, опубликованный вами скрипт проверяющий "некорректные" символы в пути установки, выглядит более универсальным, но по непонятным мне причинам, он жалуется на некорректные символы, даже если в пути установки только буквы латиницы.
А скрипт для вывода сведений о винчестерах мне больше по душе тот, к которому я привык, к тому же для него не нужны дополнительные библиотеки.

Собсно с используемым мной скриптом для вывода сведений о винчестерах возникла трудность. Я бы хотел добавить в него мультиязычность по средствам CustomMessages, но я не ориентируюсь в "правописании". Может ли кто-нибудь показать пример решения этой проблемы?

На всякий случай копирую скрипт о котором речь:

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

Код:

var
  NeedSize:Integer;
  FreeMB, TotalMB: Cardinal;
  NeedSpaceLabel: TLabel;
  n: Integer;
  VolumeName, FileSystemName: String;
  VolumeSerialNo, MaxComponentLength, FileSystemFlags: Longint;
  ListBox: TListBox;
  StartMenuTreeView: TStartMenuFolderTreeView;

procedure GetFreeSpaceCaption(Sender: TObject);
var
  Path: String;
begin
  Path := ExtractFileDrive(WizardForm.DirEdit.Text);
  GetSpaceOnDisk(Path, True, FreeMB, TotalMB);
  if FreeMB < NeedSize then
  WizardForm.NextButton.Enabled := False else
  WizardForm.NextButton.Enabled := True; end;

procedure GetNeedSpaceCaption;
begin
  if NeedSize > 1024 then
  NeedSpaceLabel.Caption := 'Требуется как минимум '+ FloatToStr(round(NeedSize/1024*100)/100) + ' Гб свободного дискового пространства.' else
  NeedSpaceLabel.Caption := 'Требуется как минимум '+ IntToStr(NeedSize)+ ' Мб свободного дискового пространства.';end;

const oneMB= 1024*1024;
function GetLogicalDrives: DWord; external 'GetLogicalDrives@kernel32.dll stdcall';
function GetDriveType(nDrive: String): Longint; external 'GetDriveTypeA@kernel32.dll stdcall';
function GetVolumeInformation(PathName,VolumeName: PChar; VolumeNameSize,VolumeSerialNumber,MaxComponentLength,FileSystemFlags: Longint; FileSystemName: PChar; FileSystemNameSize: Longint): Longint; external 'GetVolumeInformationA@kernel32.dll stdcall';
function MessageBox(hWnd: Integer; lpText, lpCaption: String; uType: Cardinal): Integer; external 'MessageBoxA@user32.dll stdcall';

Function ByteOrTB(Bytes: Extended; noMB: Boolean): String; { Перевод числа в значение бт/Кб/Мб/Гб/Тб (до 3х знаков после запятой)}
Begin
if not noMB then Result:= FloatToStr(Int(Bytes)) +' Мб' else
if Bytes < 1024 then Result:= FloatToStr(Int(Bytes)) +' Бт' else
if Bytes/1024 < 1024 then Result:= FloatToStr(round((Bytes/1024)*10)/10) +' Кб' else
If Bytes/oneMB < 1024 then Result:= FloatToStr(round(Bytes/oneMB*100)/100) +' Мб' else
If Bytes/oneMB/1000 < 1024 then Result:= FloatToStr(round(Bytes/oneMB/1024*1000)/1000) +' Гб' else
Result:= FloatToStr(round(Bytes/oneMB/oneMB*1000)/1000) +' Тб'
StringChange(Result, ',', '.')
End;

Function DelSP(String: String): String; { Удаление начальных, конечных и повторных пробелов }
Begin while (Pos(' ', String) > 0) do Delete(String, Pos(' ', String), 1); Result:= Trim(String); End;

Function CutString(String: String; MaxLength: Longint): String; { Обрезать строку до заданного кол-ва символов}
Begin
if Length(String) > MaxLength then Result:= Copy(String, 1, 6) +'...'+ Copy(String, Length(String) - MaxLength +9, MaxLength)
else Result:= String;
End;

Procedure GetDiskInfo(Disk: String);
Begin
FileSystemName:= StringOfChar(' ', 32); VolumeName:= StringOfChar(' ', 256);
GetVolumeInformation(Disk, VolumeName, 255, VolumeSerialNo, MaxComponentLength, FileSystemFlags, FileSystemName, 31);
FileSystemName:= DelSp(FileSystemName); VolumeName:= DelSp(VolumeName); if VolumeName='' then VolumeName:='без метки';
End;

Procedure ListBoxRefresh; var FreeB, TotalB: Cardinal; Path, String: string; Begin
ListBox.Items.Clear
for n:= 1 to 31 do // диск 'А' пропустить
if (GetLogicalDrives and (1 shl n)) > 0 then
if (GetDriveType(Chr(ord('A') + n) +':\') = 2) or (GetDriveType(Chr(ord('A') + n) +':\') = 3) then
if GetSpaceOnDisk(Chr(ord('A') + n) +':\', True, FreeMB, TotalMB) then ListBox.Items.Add(Chr(ord('A') + n) +':');
for n:= 0 to ListBox.Items.Count -1 do begin
Path:= Copy(ListBox.Items[n],1,2) +'\' { если в накопителе нет диска, пропустить обновление }
if GetSpaceOnDisk(Path, False, FreeB, TotalB) and GetSpaceOnDisk(Path, True, FreeMB, TotalMB) then begin GetDiskInfo(Path);
if FreeB >= $7FFFFFFF then String:= PadL(ByteOrTB(FreeMB*oneMB, true),10) else String:= PadL(ByteOrTB(FreeB, true),10);
if TotalB >= $7FFFFFFF then begin TotalB:= TotalMB; FreeB:= FreeMB; String:= PadL(ByteOrTB(TotalMB*oneMB, true),11) +' всего -'+ String end else String:= PadL(ByteOrTB(TotalB, true),11) +' всего| '+ String;
ListBox.Items[n]:= Copy(Path,1,2) + String + PadL(FloatToStr(round(FreeB/TotalB*100)),3)+ '% своб|'+ PadL(FileSystemName,5)+ '| '+ CutString(VolumeName,9); end; end;
End;

Procedure ObjectOnClick(Sender: TObject); Begin
Case TObject(Sender) of
ListBox: for n:= 0 to ListBox.Items.Count-1 do if ListBox.Selected[n] then WizardForm.DirEdit.Text:= Copy(ListBox.Items[n],1,1) +Copy(WizardForm.DirEdit.Text, 2, Length(WizardForm.DirEdit.Text))
StartMenuTreeView: if StartMenuTreeView.Directory <> '' then WizardForm.GroupEdit.Text:= StartMenuTreeView.Directory else WizardForm.GroupEdit.Text:= '{#SetupSetting("DefaultGroupName")}'
WizardForm.NoIconsCheck: begin WizardForm.GroupEdit.Enabled:= not(WizardForm.GroupEdit.Enabled); StartMenuTreeView.Enabled:= WizardForm.GroupEdit.Enabled; WizardForm.GroupBrowseButton.Enabled:= WizardForm.GroupEdit.Enabled end;
end; End;

procedure InitializeWizard();
begin
  NeedSize := 6100;                  //Здесь указывается место для приложения
  WizardForm.DiskSpaceLabel.Hide;
  NeedSpaceLabel := TLabel.Create(WizardForm);
  with NeedSpaceLabel do
  begin
  Parent := WizardForm.SelectDirPage;
  Left := ScaleX(0);
  Top := ScaleY(220);
  Width := ScaleX(209);
  Height := ScaleY(13);
  end;
  ListBox:= TListBox.Create(WizardForm)
  ListBox.SetBounds(WizardForm.DirEdit.Left, WizardForm.DirEdit.Top + WizardForm.DirEdit.Height + 8, WizardForm.DirBrowseButton.Left + WizardForm.DirBrowseButton.Width - WizardForm.DirEdit.Left, WizardForm.DiskSpaceLabel.Top - (WizardForm.DirEdit.Top + WizardForm.DirEdit.Height + 12))
  ListBox.Font.Size:= 9
  ListBox.Font.Style:= []
  ListBox.Font.Name:= 'Courier New';
  ListBox.OnClick:= @ObjectOnClick;
  ListBox.Parent:= WizardForm.SelectDirPage;
  WizardForm.DirEdit.OnChange := @GetFreeSpaceCaption;
  WizardForm.DirEdit.Text := WizardForm.DirEdit.Text + #0;
  end;

procedure CurPageChanged(CurPageID: Integer);
  begin
  if CurPageID=wpSelectDir then
  begin
  GetNeedSpaceCaption;
  if FreeMB < NeedSize then
  WizardForm.NextButton.Enabled:=False
  ListBoxRefresh
  end;
  end;

[Gnom_aka_Lexander]

он жалуется на некорректные символы »

{pf}\MyApp »

Скорей всего в этой строчке пробел - проверь. При копировании с форумов такое бывает

[Johny777]

Raf-9600,
пример использования самописных констант в коде

[CustomMessages]
Russian.upd_hl2=обновить Half-Life 2
English.upd_hl2=Update Half-Life2

[Languages]
Name: Russian; MessagesFile: compiler:Languages\Russian.isl;
Name: English; MessagesFile: compiler:Languages\English.isl;

[ code]
Caption := ExpandConstant('{cm:upd_hl2}');
+++++++++++++++++++++++++++++++++++++++
другой пример для запрета кириллицы в пути
Russian.rus_symbol_1=В пути установки присутствуют русские буквы, что недопустимо
English.rus_symbol_1=The installation path contains Russian letters, which is unacceptable

Russian.rus_symbol_2=Пожалуйста, повторите ввод.
English.rus_symbol_2=Please try again.

[ code]
MsgBox(ExpandConstant('{cm:rus_symbol_1}' #13#13 '{cm:rus_symbol_2}'), mbError, mb_Ok);

[Raf-9600]

Скорей всего в этой строчке пробел - проверь. При копировании с форумов такое бывает »

Удалил все пробелы, проблема осталась =\

Johny777, благодарю, вроде разобрался.