und das geht ganz gemütlich mit der
Unit die du
hier findest
Darin hast du auch eine nette Procedure, die alle SpecialFolders ausliest und in eine StringList packt.
procedure GetDirList( const DirList : TStringList; const WithRights : Boolean = False );
Damit kannst du dir auch eine MiniProg bauen, und die Ergebnisse in einem Memo anzeigen lassen (oder per Mail schicken lassen, whatever).
Die einzelnen Rechte kann man sich damit auch gleich auslesen und hat somit eine schnelle Information, was auf dem Kundenrechner geht und was nicht
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9
dc 90 9d f0 e9 de 13 da 60)