[Gnom_aka_Lexander]

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

[Dodakaedr]

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

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

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

В общем не так давно тут мне давали код для получения SID пользователя
почти работает, не работает в случае переименования пользователя что в доменных сетях не редкость, в таких случах в 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;

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

[Dodakaedr]

R.i.m.s.k.y., с этим можешь помочь http://forum.oszone.net/post-2331745-192.html???

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

Dodakaedr,
как-то так

Код:

[Registry]
Root: HKU; SubKey: {code:getOriginalSID}\Software; ValueType: string; ValueName: Path; ValueData: {app}\; Flags: uninsdeletekeyifempty uninsdeletevalue noerror

[code]
function getOriginalSID: string;
begin
result := GetUserSID('Администратор')
утвж

[Dodakaedr]

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

[Gnom_aka_Lexander]

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

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

[Dodakaedr]

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

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

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

Gnom_aka_Lexander, проверил
система запущена от user (originaluser)
установщик - от admin (currentuser)
получил сид админа (currentuser) что неинтересно
как передавать параметром имя пользователя от которого запущена система (а не установщик) чтобы получить sid originaluser?

[Gnom_aka_Lexander]

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