home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 5
/
ctrom5b.zip
/
ctrom5b
/
PROGRAM
/
PASCAL
/
NWTP06
/
TSTTRUST.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1995-03-01
|
2KB
|
59 lines
program tsttrust;
{ Testprogram for the NwFile unit / NwTP 0.6, (c) 1993,1995 R.Spronk }
uses nwMisc,nwBindry,nwFile;
Var DirHandle:Byte;
DirPath:String;
SequenceNumber:Byte;
TrusteeInfo: TtrusteeInformation;
t:Byte;
ObjName:string;
ObjType:word;
ObjId:Longint;
DH,EffRights:byte;
begin
DirHandle:=0;
DirPath:='SYS:SYSTEM';
IF NOT AllocTemporaryDirHandle(31,0,DirPath,DH,EffRights)
then writeln('allocTempDH returned err: ',nwfile.result);
{ Before scanning the trustees, you might add or delete a
trustee for testing purposes.
ObjId:=$06000006;
IF NOT DeleteTrustee(0,DirPath,ObjId)
then writeln('DeleteTrustee returned error: ',nwFile.result);
ObjId:=$06000006;
IF NOT SetTrustee(0,DirPath,ObjId,TA_READ or TA_SEARCH)
then writeln('SetTrustee returned error: ',nwFile.result); }
SequenceNumber:=0;
While ScanEntryForTrustees(DirHandle,DirPath,
SequenceNumber,TrusteeInfo)
do begin
with TrusteeInfo
do begin
for t:=1 to TrusteeInfo.NumberOfTrustees
do begin
write(HexStr(TrusteeID[t],8));
GetBinderyObjectName(TrusteeId[t],ObjName,oBjType);
writeln(' ',HexStr(TrusteeRights[t],4),' ',ObjName);
end;
end;
end;
if nwFile.result<>$9C { no more trustees }
then writeln('ScanEntryForTrustees returned error :',nwfile.result);
DeallocateDirHandle(DH);
readln;
end.