SID пользователя (Delphi)

@Dinkin · Регистрация: 31.05.2013

Author24 — интернет-сервис помощи студентам

Доброго!
Есть код делфи, для получения SID текущего пользователя:

Delphi

function ConvertSidToStringSid(Sid: PSID; var StringSid: PChar): Boolean; stdcall; external 'advapi32.dll' name 'ConvertSidToStringSidA';
procedure TfrmMain.Button1Click(Sender: TObject);
var
  UserName : PChar;
  UserSid : PSID;
  UserDomain : PChar;
  SidStr : PChar;
  NameSize, SidSize, DomainSize : cardinal;
  SidUse : SID_NAME_USE;
begin
  NameSize := 1024;
  SidSize := 1024;
  DomainSize := 1024;
  GetMem(UserName, NameSize);
  GetMem(UserSid, SidSize);
  GetMem(UserDomain, DomainSize);
  GetUserName(UserName, NameSize);
  LookupAccountName(nil, UserName, UserSid,  SidSize, UserDomain, DomainSize, SidUse);
  ConvertSidToStringSid (UserSid, SidStr);
  Caption := UserName + ' ' + UserDomain + ' ' + SidStr;
  LocalFree(Cardinal(SidStr));
  FreeMem(UserDomain);
  FreeMem(UserSid);
  FreeMem(UserName);
end;

что за функции GetMem и ConvertSidToStringSid? пров торое пишут что она вобще WinIp, у меня почему нет? и как это дело перевести?

@volvo · 15.03.2017, 14:38

Сообщение от Dinkin

GetMem

- выделение заданного объема памяти: System.GetMem

Сообщение от Dinkin

ConvertSidToStringSid

Это-таки WinAPI, но для ее использования надо подключить Sddl.h (в MSDN же все написано)

@Dinkin · 15.03.2017, 17:39 **[ТС]**

ConvertSidToStringSidW а ка кв него правильно параметры то передавать?

C++

1
2
3

    wchar_t u[256];
    PSID lpUserSid
    ConvertSidToStringSidW(lpUserSid,&u) ;

Так не катит.

Добавлено через 4 минуты
А понял, типа так

C++

1 2	PChar u; ConvertSidToStringSidW(lpUserSid,&u) ;

Просто меня тут идея возникла на сколько реально можно вытянуть SID пользователя от дескриптора рабочего экрана.

Добавлено через 20 минут
Делаю так, но видимо это делается ни так

C++

 PChar u;
 HDESK Desktop = OpenInputDesktop(0, FALSE, MAXIMUM_ALLOWED);
 DWORD dwSidLength = 0;
 GetUserObjectInformation(Desktop, UOI_USER_SID, NULL, 0, &dwSidLength);
 PSID UserSid = (PSID)HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, dwSidLength);
 GetUserObjectInformation(Desktop, UOI_USER_SID, UserSid, dwSidLength, &dwSidLength);
 
 ConvertSidToStringSidW(UserSid,&u) ;
 Memo1->Lines->Add(u) ;

Добавлено через 2 часа 23 минуты
Вопрос был решен В этой теме

@volvo Супер-модератор 32830 / 21168 / 8147 Регистрация: 22.10.2011 Сообщений: 36,429 Записей в блоге: 8
	15.03.2017, 14:38	2
	Сообщение было отмечено Dinkin как решение Решение Сообщение от Dinkin GetMem - выделение заданного объема памяти: System.GetMem Сообщение от Dinkin ConvertSidToStringSid Это-таки WinAPI, но для ее использования надо подключить Sddl.h (в MSDN же все написано) 1

	15.03.2017, 17:39

SID пользователя (Delphi)

Решение