[Dodakaedr]

Куда мне добавить ваш код ? »

Вот вам функция, добавляйте куда хотите

Код:

[setup]
appname=app
appvername=1.0
DefaultDirName={code:USERPROFILE}\uTorrent

[code]
const
CSIDL_PROFILE = $28;

function UserProfile(s:string): string;
begin
s := GetShellFolderByCSIDL(CSIDL_PROFILE, false);
  Result := s;
end;

[Painkiller]

Вот вам функция, добавляйте куда хотите »

всё равно путь C:\Users\Mazahaka_lab\AppData\Roaming\uTorrent =((

[Dodakaedr]

всё равно путь »

Исключено. Вы хоть примеры компилируете у себя?

Скрытый текст

[Painkiller]

Исключено. Вы хоть примеры компилируете у себя? »

ваш пример работает , а вот мой увы нет =( Ладно , как всегда разберусь сам

[Dodakaedr]

ваш пример работает , а вот мой увы нет »

Интересно, что там может не работать?!

[Batistas]

Всем привет. Решил установить ISWin7 в свой скрипт, но не тут-то было:



Как видно, в прозрачную область не попали: ссылка на сайт, кастомная кнопка и BeveledLabel. Может кто подсказать, как это исправить? Код ниже. Заранее спасибо!

Код:

#define MyAppURL "http://yandex.ru/"

[Setup]
AppName=My Program
AppVerName=My Program version 1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
UninstallDisplayIcon={app}\MyProg.exe
Compression=lzma
SolidCompression=yes
OutputDir=.

[Messages]
BeveledLabel=2015 © тест 

[CustomMessages]
russian.InfoButton=Автор...
russian.InfoButtonText=© 2015. тест
russian.Community=Посетить наш сайт

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

[Files]
Source: iswin7.dll; Flags: dontcopy

[_Code_]
var
	InfoButton: TNewButton;
  PublisherLink: TNewStaticText;

/////////////////////////////////////////////
procedure InfoButtonClick(Sender: TObject);
begin
  MsgBox(ExpandConstant('{cm:InfoButtonText}'), mbInformation, MB_OK);
end;

/////////////////////////////////////////////
procedure PublisherLinkClick(Sender: TObject);
var
  ErrorCode: Integer;
begin
  ShellExec('open', ExpandConstant('{#MyAppURL}'), '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;

/////////////////////////////////////////////
procedure iswin7_add_glass(Handle:HWND; Left, Top, Right, Bottom : Integer; GDIPLoadMode: boolean);
external 'iswin7_add_glass@files:iswin7.dll stdcall';

procedure iswin7_add_button(Handle:HWND);
external 'iswin7_add_button@files:iswin7.dll stdcall';

procedure iswin7_free;
external 'iswin7_free@files:iswin7.dll stdcall';

/////////////////////////////////////////////
procedure RedesignWizardForm;
begin
  InfoButton := TNewButton.Create(WizardForm);
  with InfoButton do
  begin
    Parent := WizardForm;
    Caption := ExpandConstant('{cm:InfoButton}');
    SetBounds(ScaleX(10), ScaleY(327), ScaleX(75), ScaleY(23));
    OnClick := @InfoButtonClick;
  end;
  PublisherLink := TNewStaticText.Create(WizardForm);
  with PublisherLink do
  begin
    Parent := WizardForm;
    SetBounds(ScaleX(95), ScaleY(333), ScaleX(75), ScaleY(23));
    Caption := ExpandConstant('{#MyAppURL}');
    Cursor := crHand;
    Font.Color := clBlue;
    ShowHint := True;
    Hint := ExpandConstant('{cm:Community}');
    OnClick := @PublisherLinkClick;
  end;
end;

/////////////////////////////////////////////
procedure InitializeWizard();
begin
  RedesignWizardForm;
 
  // Необходимо добавлять каждую кнопку расположенную на стекле 
  // до инициализации стекла для того что бы не было дыр ))
  iswin7_add_button(WizardForm.BackButton.Handle);
  iswin7_add_button(WizardForm.NextButton.Handle);
  iswin7_add_button(WizardForm.CancelButton.Handle);
  // Параметр True не трогать он для htuos ))
  iswin7_add_glass(WizardForm.Handle, 0, 0, 0, 47, True);
end;

procedure DeinitializeSetup();
begin
  iswin7_free;
end;

[kotyarko@fb]

Как видно, в прозрачную область не попали: ссылка на сайт »

Вместо TNewStaticText создайте TLabel, у него есть свойство Transparent, используйте его.

Как видно, в прозрачную область не попали: кастомная кнопка »

Код:

iswin7_add_button(InfoButton.Handle);

Как видно, в прозрачную область не попали: BeveledLabel »

Здесь то же, что и со ссылкой на сайт. BeveledLabel - это TNewStaticText, создайте на его месте TLabel, а дальше всё то же самое, что я описал выше.

[Batistas]

Цитата Batistas: Как видно, в прозрачную область не попали: ссылка на сайт » Вместо TNewStaticText создайте TLabel, у него есть свойство Transparent, используйте его. »

Если не сложно, скиньте код. У меня при добавлении PublisherLink: TLabel; ссылка становится невидимой.

[kotyarko@fb]

У меня при добавлении PublisherLink: TLabel; ссылка становится невидимой. »

Да, есть такое. Видимо, библиотека просто не рассчитана.

[habib2302]

Как определить на какой диск была установлена программа и внести в реестр?



P.S. все нашел код.