Delphi XE code snippets needed (WinAPI stuff)

Hi, I need some Delphi XE code snippets (I've tried to name the functions so you have a better idea what it is about :-) function GetLocalUserList: Your function should enumerate over all existing local useraccounts and should return at least list of username,fullName,hasAdminRights,LastLogon function NTFSTakeOwnerShip(filename:string;username:string) Your function resets ownership of filename to the given username function NTFSSetDeny(filename:string;username:string;enabled:boolean) If enabled is true your function sets NTFS flag "Deny" to true for the given username and filename. If enabled is false your function deletes/removes the NTFS flag "Deny". function NTFSSetFullAccess(filename:string;username:string) This function sets NTFS FullAcess for the given username and filename Your code must run on Delphi XE5 and should directly address the coresponding WinAPIs. Please provide also a very simple GUI for testing the functions above. Please do not use hidden commandline ([login to view URL]) workarounds :-) If you want to use existing components and they are less than 250 U$ let me know. However, I prefer the direct WinAPI approach. If the four functions above are done, we can discuss also about a bonus for: BONUS: function IsThisPCPartOfADomain: your function should check if the logged in account is currently connected to a domain BONUS: function GetDomainUsers: Your function should enumerate over all existing domain useraccounts and should return at least: username,fullName,hasAdminRights,LastLogon