Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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;




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




Наверх





Память: 0.71 MB
Время: 0.033 c
1-42449           Mitrofan              2001-12-24 19:28  2002.01.14  
Быстрое преобразование Фурье


3-42340           Galina                2001-12-10 19:26  2002.01.14  
Глючит QReport при работе с принтером HP DESCJET 930C


1-42423           vinni2000             2001-12-26 14:18  2002.01.14  
У меня есть проблема.


1-42492           DJ X                  2001-12-25 18:24  2002.01.14  
Текст в Label е


14-42557          VEG                   2001-11-19 16:23  2002.01.14  
Ут, блин, ФОРМАТЫ WAV:-(