>>dragonx
Не подходит, так как есть каталоги заказчиков и подкаталоги договоров, в которых есть конечные служебные файлы, так вот заканчиваются имена файлов на определенные символы через которые их можно выделить по маске.
Таких масок несколько групп.
Например: *test.doc, *pro.dat
Каталогов и подкаталогов много, файлов несколько тысяч, пользователей так же несколько.
Сразу оговорюсь, что это для друга хочу написать программку, а не для себя.

>>Calm
Выше описал задачу подробней, теперь понятно, что разница между "Мой компьютер" и программой запрашивающей "маску" и "юзера" будет ощутимой.

>>pkarklin
Спасибо, похоже это та функция которая нужна, нужно разбираться.
Вот если бы еще кто примерчик кинул или кусок кода на делфи было бы вообще идеально, а то разбираться с Си-шными структурами тяжеловасто :)

>>Alex Alexeev
Триальную версию скачал(но ведь это только 30 дней), почти 100$ выложить за компонент который нужен для одной программки и то бесплатной(так как другу) жалко.
Если у кого есть фул-версия с исходниками для D5, то если не жалко киньте на cdi@mosk.ru

А есть на этом форуме люди которые знают и Делфи и Си одновременно и могут перевести сишный текст в делфийский ?

Может кто поможет все же перевести вот такой текст:
--------------------------
// Copyright (C) 1996 by Sergey Zabaryansky
#include
TCHAR *szFileName="e:\\sites.txt";
void main()
{
DWORD dwResult;
PACL pACLNew,pACL;
PSID pSID;
DWORD cbSID = 1024;
LPSTR lpszAccount = "UserA";
DWORD cchDomainName = 128;
TCHAR szDomain[128];
void *pACE;
PSECURITY_DESCRIPTOR pSD,sd;
PSID_NAME_USE psnuType;
pSD = (PSECURITY_DESCRIPTOR)new BYTE[4096];
pACLNew = (PACL)new BYTE[4096];
pSID = (PSID)new BYTE[cbSID];
psnuType = (PSID_NAME_USE)new BYTE[1024];
InitializeSecurityDescriptor(pSD,SECURITY_DESCRIPTOR_REVISION);
InitializeAcl(pACLNew,4096,ACL_REVISION2);
LookupAccountName(NULL,lpszAccount,pSID,&cbSID,szDomain,&cchDomainName,psnuType);

// concat the previous access
sd=(SECURITY_DESCRIPTOR *)new BYTE[0x400];
GetFileSecurity(szFileName,DACL_SECURITY_INFORMATION,sd,0x400,&dwResult);
GetSecurityDescriptorDacl(sd,(int *)&dwResult,&pACL,(int *)&dwResult);
for(int i=0;i < pACL->AceCount;i++)
{
GetAce(pACL,i,&pACE);
AddAce(pACLNew,ACL_REVISION,MAXDWORD,pACE,((PACE_HEADER)pACE)->AceSize);
}

// add new ACE
AddAccessAllowedAce(pACLNew,ACL_REVISION2,0xFFFFFFFF,pSID);
SetSecurityDescriptorDacl(pSD,TRUE,pACLNew,FALSE);
SetFileSecurity(szFileName,DACL_SECURITY_INFORMATION,pSD);
delete pSID;
delete pSD;
delete pACLNew;
delete psnuType;
--------------------------
Или просто на основе этого кода сделать упрощенный работающий пример на делфи ?