Скачать: CL | DM;

SID хозяина приложения   Найти похожие ветки 

← →
.Дима   (2004-02-11 22:55) [0]

Не подскажите как получить SID хозяина приложения. Если можно приведите примерчик.

---

← →
.Дима   (2004-02-11 22:56) [1]

Наверно неправильно выразился. Под хозяином я имел в виду владельца приложения.

---

← →
Игорь Шевченко ©   (2004-02-12 10:39) [2]

var
 AccessToken : THandle;

begin
 Win32Check(OpenProcessToken (GetCurrentProcess(), TOKEN_QUERY, AccessToken));
 Win32Check(GetTokenInformation(.........))

---

← →
.Дима   (2004-02-12 16:45) [3]

А можно немного подробнее?

---

← →
Игорь Шевченко ©   (2004-02-12 17:30) [4]

.Дима   (12.02.04 16:45)


> А можно немного подробнее?


Это как ? Код вместо тебя написать ? ;)

---

← →
Игорь Шевченко ©   (2004-02-12 17:41) [5]


type
 ZString = array[0..1024] of char;

function SIDToName (const SID: PSID): string;
var
 Use : SID_NAME_USE;
 DomainName : ZString;
 DomainNameLength : DWORD;
 Name : ZString;
 NameLength : DWORD;
begin
 if not LookupAccountSid(nil, SID, Name, NameLength, DomainName,
    DomainNameLength, Use) then
   RaiseLastWin32Error;
 Result := Name;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 AccessToken : THandle;
 Info : PSIDANDATTRIBUTES;
 ReturnLength : DWORD;
begin
 Win32Check(OpenProcessToken(GetCurrentProcess(), TOKEN_QUERY, AccessToken));
 GetMem (Info, 1024);
 try
   Win32Check(GetTokenInformation(AccessToken, TokenUser, Info, 1024,
     ReturnLength));
   ShowMessage(SidToName(Info^.Sid));
 finally
   FreeMem(Info);
 end;
end;



1024 взято с потолка.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.03 c