Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.14;
Скачать: CL | DM;

Вниз

Principal = Everyone   Найти похожие ветки 

 
Марат   (2001-11-13 20:26) [0]

В русских NT "Все", в английских "Everyone". Можно ли узнать Principal для everyone у самих Windows. Или мне нужно смотреть какие NT стоят и в зависимости от этого использовать либо "Все", либо "Everyone".


 
Марат   (2001-11-13 22:28) [1]

const
SECURITY_WORLD_SID_AUTHORITY: TSIDIdentifierAuthority =
(Value: (0, 0, 0, 0, 0, 1));
SECURITY_WORLD_RID = $00000000;

// use FreeSid
function GetEveryoneSid: PSID;
begin
Result := nil;
if not AllocateAndInitializeSid(SECURITY_WORLD_SID_AUTHORITY, 1,
SECURITY_WORLD_RID,
0, 0, 0, 0, 0, 0, 0,
Result) then RaiseLastWin32Error;
if not IsValidSid(Result) then RaiseLastWin32Error;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
userName: array [0.. 255] of char;
domainName: array[0.. 255] of char;
nameLength: DWORD;
snu: SID_NAME_USE;
sid: PSID;
begin
sid := GetEveryoneSid;
try
if sid <> nil then
begin
nameLength := SizeOf(userName);
if not LookupAccountSid(nil, sid, userName, nameLength,
domainName, nameLength, snu) then RaiseLastWin32Error;
with Application do
MessageBox(PChar(@userName), PChar(Title), mb_IconInformation or mb_Ok);
end;
finally
if sid <> nil then FreeSid(sid);
end;
end;




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

Текущий архив: 2002.01.14;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.008 c
3-42390
Bizon
2001-12-13 16:26
2002.01.14
Что происходит с ролями?


14-42543
skiph
2001-11-12 08:31
2002.01.14
HTML help


4-42632
AlexKniga
2001-11-15 13:42
2002.01.14
Тип PChar и пустая строка


14-42556
AlexKniga
2001-11-19 15:17
2002.01.14
Сброс пароля на BIOS


3-42367
Nest
2001-11-29 12:32
2002.01.14
Можно ли работать с временной таблицей (напр. #tmp_tab_name ) через Ttable?