Inno Setup registry finder

LexBell

Борода
Супер модератор
You mean the GetSid.iss ??? it's all in russian, not english
code_language.pascal:
[Files]
Source: "IsGetSid.dll"; Flags: dontcopy solidbreak

[Code]
function GetSid() : PAnsiChar;
  external 'GetSid@files:IsGetSid.dll stdcall delayload';
Этого достаточно, если {code:GetSID} встречается 1-2 раза.
Если таких записей много, то лучше сделать так:
code_language.pascal:
[Code]
var
  uSID : PAnsiChar; 

function GetSid() : PAnsiChar;
  external 'GetSid@files:IsGetSid.dll stdcall delayload';

function InitializeSetup(): Boolean;
begin
  Result := True;
  try
    uSID := GetSID; 
  except
    MsgBox('Невозможно получить SID текущего пользователя.', mbError, MB_OK);
    Result := False; // если ошибка
  end;
end;

function UsSID(const s: string) : AnsiString; 
begin
  Result := uSID;
end;
и {code:GetSID} заменить на {code:UsSID}, чтобы убрать необходимость много раз обращаться к IsGetSid.dll
 

bundyal

Новичок
Thank you very much LexBell for your support.

Do you know why I cannot download without restrictions ?
Can you help me with that LexBell ? i hope.
Maybe you can upgrade my account please.

Best regards
 

LexBell

Борода
Супер модератор
Do you know why I cannot download without restrictions ?
 

ccoreogoa

Мимокрокодил
Спустя долгое время мне удалось заставить его работать. Спасибо большое теперь буду использовать в своих проектах.
 
Сверху