Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];

Вниз

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 вся ветка

Форум: "WinAPI";
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.54 MB
Время: 0.016 c
6-42525
ateam
2001-10-18 20:20
2002.01.14
Help !!! Подскажите плиз как программным путём узнать маску подсети


1-42409
Елена
2001-12-24 00:40
2002.01.14
Help!


14-42553
paul_shmakov
2001-11-19 15:10
2002.01.14
Рихтер


3-42390
Bizon
2001-12-13 16:26
2002.01.14
Что происходит с ролями?


1-42420
Sour
2001-12-23 20:32
2002.01.14
TStream





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский