ایجاد گروه و کاربر در دلفی

[delphi5]

با سلام
1- چطور میشه در دلفی USER و Group ایجاد کرد و یا یک User رو MEMBER یک Group کرد .
2- چطور میشه در دلفی به یک فایل یا فولدر Permission داد ویا Permission را یک فایل یا فولدر را تغییر داد .
خیلی سرچ کردم اما فقط فهمیدم که باید از توابع API ویندوز استفاده کنم . اما هیچ منبعی رو پیدا نکردم . میشه لطفا اساتید راهنمائی بفرمایند ؟
:ناراحت::ناراحت:
با تشکر

[lord_viper]

تغییر permission یک پوشه



function SetDirectoryRights: Dword;
var
pDACL: PACL;
pEA: PEXPLICIT_ACCESS_A;
R: DWORD;
lFolder: array[0..1024] of Char;
lPath: String;
lPIDL: PItemIDList;
begin
if SHGetSpecialFolderLocation(0, CSIDL_COMMON_APPDATA,lPIDL) = NOERROR
then
begin
SHGetPathFromIDList(lPIDL, lFolder);
GlobalFreePtr(lPIDL);
lPath := lFolder + '\Trust Builders\Data';

pEA := AllocMem(SizeOf(EXPLICIT_ACCESS));
BuildExplicitAccessWithName(pEA, 'EVERYONE', GENERIC_WRITE or
GENERIC_READ, GRANT_ACCESS, SUB_OBJECTS_ONLY_INHERIT);
R := SetEntriesInAcl(1, pEA, nil, pDACL);
if R = ERROR_SUCCESS then
begin
if SetNamedSecurityInfo(PChar(lPath), SE_FILE_OBJECT,
DACL_SECURITY_INFORMATION, nil, nil, pDACL, nil) <> ERROR_SUCCESS then
result := 2
else
result := 0;
LocalFree(Cardinal(pDACL));
end
else
result := 1;
end
else
result := 3;
end;