[SeDmY]

Друзья, посмотрите скрипт: http://rghost.ru/1959537

У меня во время распаковки freearc ошибку выдает(((

[Habetdin]

CrOsP, вот, пробуй

Код:

[code]
//вешаем ссылку на подпись
var
  MouseLabel,SiteLabel: TLabel;

procedure SiteLabelOnClick(Sender: TObject);
var
  ErrorCode: Integer;
begin
  ShellExec('open', 'http://game.dnet.com.ua', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode)
end;

procedure SiteLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  SiteLabel.Font.Color:=$0000C8FF
end;

procedure SiteLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  SiteLabel.Font.Color:=$000080FF
end;

procedure SiteLabelMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  SiteLabel.Font.Color:=$0000A0FF
end;

procedure SiteLabelMouseMove2(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  SiteLabel.Font.Color:=$000080FF
end;

// Importing LoadSkin API from ISSkin.DLL
procedure LoadSkin(lpszPath: String; lpszIniFileName: String);
external 'LoadSkin@files:isskin.dll stdcall';

// Importing UnloadSkin API from ISSkin.DLL
procedure UnloadSkin();
external 'UnloadSkin@files:isskin.dll stdcall';

// Importing ShowWindow Windows API from User32.DLL
function ShowWindow(hWnd: Integer; uType: Integer): Integer;
external 'ShowWindow@user32.dll stdcall';

function InitializeSetup(): Boolean;
begin
  ExtractTemporaryFile('Office2007.cjstyles');
  LoadSkin(ExpandConstant('{tmp}\Office2007.cjstyles'), '');
  Result := True;
end;

procedure InitializeWizard();
begin
 WizardForm.Position:= poScreenCenter; //отключение о программе

 //вешаем ссылку
  MouseLabel:=TLabel.Create(WizardForm)
  MouseLabel.Width:=WizardForm.Width
  MouseLabel.Height:=WizardForm.Height
  MouseLabel.Autosize:=False
  MouseLabel.Transparent:=True
  MouseLabel.OnMouseMove:=@SiteLabelMouseMove2
  MouseLabel.Parent:=WizardForm

  SiteLabel:=TLabel.Create(WizardForm)
  SiteLabel.Left:=10
  SiteLabel.Top:=330
  SiteLabel.Cursor:=crHand
  SiteLabel.Font.Color:=$000080FF
  SiteLabel.Caption:='Наш сайт game.dnet.com.ua'
  SiteLabel.OnClick:=@SiteLabelOnClick
  SiteLabel.OnMouseDown:=@SiteLabelMouseDown
  SiteLabel.OnMouseUp:=@SiteLabelMouseUp
  SiteLabel.OnMouseMove:=@SiteLabelMouseMove
  SiteLabel.Parent:=WizardForm
end;


procedure DeinitializeSetup();
begin
  // Hide Window before unloading skin so user does not get
  // a glimpse of an unskinned window before it is closed.
  ShowWindow(StrToInt(ExpandConstant('{wizardhwnd}')), 0);
  UnloadSkin();
end;

[CrOsP]

Habetdin, Спасибо вам , вы как всегда помогли . Спасибо огромное

[Schemer]

Здравствуйте. Inno Setup очень хорошо обращается с ini файлами, жалко с xml так нельзя.
Мне нужно в конце установки найти в XML файле строчку

Код:

<Setting name="Language Code" type="string">en</Setting>

и заменить ее на

Код:

<Setting name="Language Code" type="string">ru</Setting>

Возможно ли это сделать силами самой inno?

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

Возможно ли это сделать силами самой inno »

Вот процедура замены текста в файле. Кажется давно ее мне подогнал Serega

Код:

procedure RePlaceTextinFile(FilePath:string; find:string; replace:string);
var
  S: TArrayOfString;
  //str : string;
  i : Integer;
begin
  if not FileExists(FilePath) then begin MsgBox('Файл не найден', mbError, mb_Ok); Exit;end; // если файла нет, выходим
  LoadStringsFromFile(FilePath, S); // загружаем файл
  for i:= 0 to GetArrayLength(S)-1 do begin
    if (Pos(AnsiUpperCase(find), AnsiUpperCase(S[i])) > 0) then begin
      StringChangeEx(S[i], find, replace, True);
    end;
  end;
  SaveStringsToFile(FilePath, S, False); // сохраняем файл
end;

[Schemer]

Спасибо. А как этим пользоваться? Я вставил все после [code] затем после var дописал

Код:

 FilePath : 'C:\file.xml'; 
 find : 'en'; 
 replace : 'ru';

выдает ошибку. Что я сделал не так?

[aub2000]

Пользуюсь Inno Setup первый раз.
Задаю параметры

DefaultGroupName=Программа расчета
DisableProgramGroupPage=no

Цель - создание в меню Пуск раздела с документацией и деинсталятором.
Не могу добиться чтобы в меню Пуск была создана соответствующая папка, страница с запросом на создание/изменение тоже не показывается.
Инсталирую DLL (COM-сервер) и документацию к нему.
Указал все файлы в разделе [Files], может этого не достаточно?

[Schemer]

Что бы показывалась страница на создание/изменение папки в меню пуск, точно не помню, по моему нужно поставить yes в

Код:

DisableProgramGroupPage=yes

А вот что бы ярлыки создавались, их надо прописать в секции [Icons]:

Код:

[Icons]
 ;Создаст группу программы в меню Пуск
Name: "{group}\Proga";Filename: "{app}\Proga.exe"

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

выдает ошибку. Что я сделал не так »

Не написали какую ошибку.
Вот мой код использования этой процедуры

Код:

RePlaceTextinFile(ExpandConstant('{app}\x264\Megui\allprofiles\AviSynth\AviSynth_dp_ FFT3DGPU.xml'), 'import("', 'import("'+plugindir2_5+'\');

Подменяет в профилях настройки MEGUI путь к плагинам.
plugindir2_5 вычисляется чуть выше (берется из реестра)
В вашем случае

Код:

[_Code]
...
RePlaceTextinFile(ExpandConstant('C:\file.xml'), 'en', 'ru');
...

[aub2000]

Schemer, спасибо за подсказку!
У меня в голове Icons ни как не ассоциировалось со списком файлов в меню Пуск.
Подсказка помогла.
Наверное более уместным было бы название секции Items.