[Gnom_aka_Lexander]

LordSP, я уже давал ему эту ссылку. этот товарищ даже в примерах показывающих ровно то, что ему нужно не захотел разбираться

[LordSP]

Gnom_aka_Lexander, Ооо, тогда это конечно, уже другой вопрос.

[sov44]

По окончании установки Your Uninstaller с ключом

Код:

start /wait yusetup7p.exe /VERYSILENT /SUPPRESSMSGBOXES /NORESTART /SP-

происходит автозапуск этой программы. Подскажите ключ для полностью тихой установки программы без автозапуска её в конце установки.
инсталлятор - http://rghost.ru/43511242

[Johny777]

зашпилил новый способ (почти новый ) перетаскивания формы за любую область!
раньше на форму нужно было накладывать прозрачный лейбл и присваивать ему в OnMouseDown
эту процедуру:
[more]

Код:

function ReleaseCapture: Longint; external 'ReleaseCapture@user32.dll stdcall';

procedure MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  SendMessage(WizardForm.Handle,$0112,$F012,0);
end;

или всем остальным компонентам, за которые нужно было таскать
вот код. никаких OnMouseDown и лейблов. Он самодостаточный для всей клиентской области вне зависимости от того что на ней лежит

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

Код:

[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirname={pf}\MyApp

[code]
const
  WM_SYSCOMMAND = $0112;
  WM_MOUSEMOVE = $0200;
  VK_LBUTTON = 1;
  SC_DRAGMOVE = $F012;

type
  SHORT = Longint;

function GetKeyState(nVirtKey: Integer): SHORT; external 'GetKeyState@user32.dll stdcall';
function ReleaseCapture: BOOL; external 'ReleaseCapture@user32.dll stdcall';

procedure AppOnMSG(var Msg: TMsg; var Handled: Boolean);
begin
  if Msg.message = WM_MOUSEMOVE then if GetKeyState(VK_LBUTTON) > 0 then
  begin
    ReleaseCapture;
    SendMessage(WizardForm.Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0);
    Handled := False;
  end;
end;

procedure InitializeWizard();
begin
  Application.OnMessage := @AppOnMSG;
end;

Пользуйтесь кому надо!

вот ещё забавный пример! попробуйте

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

Код:

[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirname={pf}\MyApp

[  code]
const
  WM_SYSCOMMAND = $0112;
  WM_MOUSEMOVE = $0200;
  VK_LBUTTON = 1;
  SC_DRAGMOVE = $F012;

type
  SHORT = Longint;

function GetKeyState(nVirtKey: Integer): SHORT; external 'GetKeyState@user32.dll stdcall';
function ReleaseCapture: BOOL; external 'ReleaseCapture@user32.dll stdcall';
function SetCapture(hWnd: HWND): HWND; external 'SetCapture@user32.dll stdcall';

procedure AppOnMSG(var Msg: TMsg; var Handled: Boolean);
begin
  if Msg.message = WM_MOUSEMOVE then if GetKeyState(VK_LBUTTON) > 0 then
  begin
    ReleaseCapture
    SendMessage(Msg.hwnd, WM_SYSCOMMAND, SC_DRAGMOVE, 0);
    Handled := False;
  end;
end;

procedure InitializeWizard();
begin
  Application.OnMessage := @AppOnMSG;
end;

===================================================================================

Gnom_aka_Lexander, касательно моего вопроса с пред. страницы можешь помочь?

[Gnom_aka_Lexander]

инсталлятор »

скрипт нужен а не инсталлятор.
Навскидку, то что анпакером вытащил:

Код:

[Run]
Filename: "{app}\urmain.exe"; Parameters: "-buildcache"; StatusMsg: "Searching installed applications, this may take a few minutes..."; MinVersion: 0.0,5.0; 
Filename: "{app}\inimerge.exe"; Parameters: """{app}\uruninstaller.ini"" ""{userappdata}\URSoft\Your Uninstaller\uruninstaller.ini"""; MinVersion: 0.0,5.0; 
Filename: "{app}\autoupdater.exe"; Parameters: "/halfsilent 0"; Description: "Check for updates."; MinVersion: 0.0,5.0; 
Filename: "{app}\urmain.exe"; Description: "Run Your Uninstaller!"; MinVersion: 0.0,5.0;

Вся секция лишена каких-либо условий, поэтому будет отрабатывать всегда. Повесьте на нее ключ который и будет управлять запуском-незапуском.
к примеру - Check : not WizardSilent на каждую строчку - вполне то, что нужно.

[Gnom_aka_Lexander]

касательно моего вопроса с пред. страницы можешь помочь? »

это крайность. Думаю можно и без библиотек реализовать! »

Не нужно быть настолько категоричным. библиотека это всегда хорошо. Код исполняемый виндой будет работать значительно быстрее кода, который исполняет интерпретатор инно. В результате чего, для достижения быстродействия будет занимать гораздо меньше процессорного времени. (на самом деле это не совсем так, но как понятно объяснить разницу - я не знаю). Мораль - всякие каллбеки и вообще очень большие куски кода лучше все-таки делать внутри библиотек - пользователям не нравится, когда инсталлу требуется комп чуть-ли не мощнее, чем нужен для того, что он устанавливает.

Элементарный пример: простейший код, который связыет две формы между собой - при реализации из инно все мигает, пропадает и вообще всякие артефакты. Если сунуть его в длл-ку, то все работает настолько четко, что можно подумать, что это не две формы а вообще одна, по хитрому отрисованая.

[by_gangster]

Gnom_aka_Lexander, я сидел на этими скриптами часа 2, но так и не смог разобраться, ты бы ещё хоть сам скачал и посмотрел на примерах, я вообщще не понял в какую папку он скачал файлы

[insombia]

мне нужно чтобы файл распаковался по такому пути через isdone но можно и через секцию files http://i54.fastpic.ru/big/2013/0203/...9a93c14d49.jpg

[sov44]

Нужна программа для распаковки последней версии Your Uninstaller! Pro 7.4.2012.05 DC 03.02.2013
innounp_plus_0.36, innounp038 не справляются http://savepic.org/2731889.jpg

[Gnom_aka_Lexander]

by_gangster, Берем прямо первый пример из тех, что идут с библиотекой. открываем. и что мы там видим?

Код:

 itd_addfile('http://www.sherlocksoftware.org/petz/files/dogz5.zip',expandconstant('{tmp}\dogz5.zip'));

что тут непонятно?
первый параметр - адрес, второй - полный путь до сохраняемого файла. если ты не знаешь, куда ведет константа {tmp}, то посмотри в справке.

insombia, ExpandConstant('{userappdata}\Theta') вопрос поднимается периодически, хотел предложить вынести константы с описаниями в шапку, но смысл - если лень посмотреть в справку, то в шапку заглянуть не менее лениво будет, мне кажется.

sov44, запусти инстал и нажми меню о программе. там видно, что скомпилено на расширенной версии инно, а для расширенной версии так никто никогда и не сделал еще анпакера.