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

честно говоря, не думал, что это понадобится, чуть позже допилю. »

рабочий код выше
можешь брать и вставлять в длл

[Gnom_aka_Lexander]

R.i.m.s.k.y., в нем как раз и была у меня проблема, при чем код отрабатывал, но при закрытии инсталла выскакивала ошибка, так и не нашел, где косяк у меня там, поэтому и сделал по другому.

Прицепил, должно показывать залогиненого пользователя.

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

Gnom_aka_Lexander, Спасибо, проверю
Но кмк оно должно на вход принимать имя пользователя, а выхлопом выдавать его sid
Независимо от состояния логина

[Stealthmax]

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

Со скином и без работает:

Код:

//Убираем кнопку "Свернуть/Развернуть/Масштабирование" в окне установщика, только "Закрыть" //
const
  GWL_STYLE = -16;

  WS_MINIMIZEBOX = $20000;
  WS_MAXIMIZEBOX = $10000;

function SetWindowLong(Wnd: HWnd; Index: Integer; NewLong: Longint): Longint; external 'SetWindowLongA@user32.dll stdcall';
function GetWindowLong(hWnd: HWND; nIndex: Integer): Longint; external 'GetWindowLongA@user32.dll stdcall';

procedure InitializeWizard();
begin
  SetWindowLong(WizardForm.handle, GWL_STYLE, GetWindowLong(WizardForm.handle, GWL_STYLE)and(not WS_MINIMIZEBOX)and(not WS_MAXIMIZEBOX));
end;

Работает 100%!!!

[Stealthmax]

Подскажите, как использовать пользовательские ключи командной строки, кроме /COMPONENTS и /TASKS, для своих функций, типа Check: бла-бла-бла? Или это не реализовано в Inno ?

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

Stealthmax, самому реализовывать

Код:

Function InitializeSetup: Boolean;
var i : integer;
Begin
  for i:=2 to ParamCount do begin
  if ( Pos(LowerCase('/silent'), Lowercase(ParamStr(i))) > 0 ) then isSilent := true;
  if ( Pos(LowerCase('/verysilent'), Lowercase(ParamStr(i))) > 0 ) then isSilent := true;
  end;
  if isSilent then begin
    MsgBox('Тихая установка не поддерживается', mbInformation, MB_OK);
    Result := False;
    exit;
  end;
end;

[Stealthmax]

самому реализовывать читать дальше » Код: Function InitializeSetup: Boolean; Begin if ( Pos(LowerCase('/silent'), Lowercase(ParamStr(i))) > 0 ) then isSilent := true; if ( Pos(LowerCase('/verysilent'), Lowercase(ParamStr(i))) > 0 ) then isSilent := true; if isSilent then begin MsgBox('Тихая установка не поддерживается', mbInformation, MB_OK); Result := False; exit; end; end; »

Понял и не понял одновременно. Изображу кусок скрипта.

Код:

[Files]
Source: "{port}\*"; DestDir: "{code:GetPath}"; Flags: ignoreversion createallsubdirs recursesubdirs; Check: Portable

[_Code]
function Portable: Boolean;
begin
  Result := PortableRadioButton.Checked;
end;

Каким образом создать ключ "/p" для выполнения данного условия в командной строке, то бишь скрытно?
А также: возможно ли переназначить ключ "/VERYSILENT", например, в ключ "S" без привязки к регистру?
Поиск по форуму вывел на несколько постов: 1, 2, 3. Но я реально дубовый))) Не могу склеить воедино суть сюжета. Если не затруднит, то можно наглядно в рабочем состоянии изобразить это действо?!

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

Код:

[Files]
Source: "{port}\*"; DestDir: "{code:GetPath}"; Flags: ignoreversion createallsubdirs recursesubdirs; Check: Portable

[Code]

var isportable : boolean;

function Portable: Boolean;
begin
  Result := PortableRadioButton.Checked or isportable;
end;

Function InitializeSetup: Boolean;
var i : integer;
Begin
  for i:=2 to ParamCount do begin
  if ( Pos(LowerCase('/p'), Lowercase(ParamStr(i))) > 0 ) then isportable := true else isportable := false;
end;//for
end;

[Nordek]

Stealthmax, Смотри от #517 сообщения. Так же сообщение #1780

[Dinvin4ester]

Ребята,почему долго идет процесс установки?Сжимал игру на 980 мб,а ставится как батла 4..
Вот скрипт - http://multi-up.com/964088.