Скрипты Inno Setup. Помощь и советы [часть 7]

[legik2003]

Dodakaedr, тогда просто удали эту строчку. у тебя уже есть BorderStyle := bsDialog;, этого достаточно. и системного меню не будет, потому что его нет у диалоговых окон, как и кнопок свернуть и развернуть во весь экран.

[Dodakaedr]

Цитата Gnom_aka_Lexander:



тогда просто удали эту строчку.

Скрипты Inno Setup. Помощь и советы [часть 7]

Спс, сработало!

[kot-da-vinci]

В общем не так давно тут

Скрипты Inno Setup. Помощь и советы [часть 6]

почти работает, не работает в случае переименования пользователя что в доменных сетях не редкость, в таких случах в SID возвращается Username



вот рабочий код дельфи, работает и на переименованных пользователях



Код:

Код: Выделить всё

function LookupAccountName(lpSystemName, lpAccountName: PWideChar;
  Sid: PSID; var cbSid: DWORD; ReferencedDomainName: PWideChar;
  var cbReferencedDomainName: DWORD; var peUse: SID_NAME_USE): BOOL; stdcall; external advapi32 name 'LookupAccountNameA';
function ConvertSidToStringSid(Sid: PSID; out StringSid: PChar): BOOL; stdcall;  external 'ADVAPI32.DLL' name 'ConvertSidToStringSidA';
function GetUserSID(userName: string):string;
var
  Sid: PSID;
  cbSid: DWORD;
  cbReferencedDomainName : DWORD;
  ReferencedDomainName: string;
  peUse: SID_NAME_USE;
  Success: BOOL;
  lpSystemName : string;
  lpAccountName: string;
  StringSid : PChar;
begin
  Sid:=nil;
  cbSid := 0;
  cbReferencedDomainName := 0;
  LookupAccountName(nil, PChar(userName), nil, cbSid, nil, cbReferencedDomainName, peUse);
  if cbSid>0 then
  begin
    SetLength(ReferencedDomainName, cbReferencedDomainName);
    Sid := AllocMem(cbSid);
    Success := LookupAccountName(0, PChar(userName), Sid, cbSid, PChar(ReferencedDomainName), cbReferencedDomainName, peUse);
    if Success then
    begin
      ConvertSidToStringSid(Sid, StringSid);
      Result := string(StringSid);
    end;
    FreeMem(Sid);
  end;         
end;

тяму не хватило его интегрировать в инно

может Серега или ЭльСанчез справятся

[kot-da-vinci]

R.i.m.s.k.y., с этим можешь помочь

Скрипты Inno Setup. Помощь и советы [часть 7]

???

[Tixo]

ребят как сделать кликабельное лого в углу?

смотрел пару вариантов, прикручивал, но не шло) мб делал что-то не так, а мб есть другие варианты данного?

[Ivan_009]

R.i.m.s.k.y., спс. вечером попробую.

[legik2003]

Цитата Dodakaedr:



с этим можешь помочь

Скрипты Inno Setup. Помощь и советы [часть 7]

с год назад дела длл-ку, для определения SID пользователя, на плюсах, поскольку с паскалем так и не пошло - на Win7 и старще какоето исключение выскакивало, устал искать его, в итоге плюнул. В приложении пример и добавлена секция [Registry] специально для Dodakaedr.

[legik2003]

Цитата Gnom_aka_Lexander:



специально для Dodakaedr.

Скрипты Inno Setup. Помощь и советы [часть 7]

Спс и это попробую

[TryRooM]

legik2003,

checkbox

http://rghost.ru/53149351

[Dodakaedr]

TryRooM, как добавить chekbox на страничку SelectProgramGroupPage c функцией не создать папку с ярлыка?