OBTENIR LE PROPRIÉTAIRE D'UN FICHIER (WIN32;NTFS)
Bacterius
Messages postés
3792
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
3 juin 2016
-
11 sept. 2009 à 10:07
phephelavi Messages postés 40 Date d'inscription mardi 16 mai 2006 Statut Membre Dernière intervention 27 octobre 2009 - 1 oct. 2009 à 14:51
phephelavi Messages postés 40 Date d'inscription mardi 16 mai 2006 Statut Membre Dernière intervention 27 octobre 2009 - 1 oct. 2009 à 14:51
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/50551-obtenir-le-proprietaire-d-un-fichier-win32-ntfs
https://codes-sources.commentcamarche.net/source/50551-obtenir-le-proprietaire-d-un-fichier-win32-ntfs
1 oct. 2009 à 14:51
Désolé de ne pas avoir répondu plutôt, mes occupations était ailleurs !
Voici le code que j'ai écrit dans mon programme :
-------------------------------------------------
var
NomCompte, NomDomaine : string;
NomFichier : string;
begin
NomFichier := 'C:\Test.bmp';
if FileExists(NomFichier)
then begin
FileSecurityInfos('C:\Test.bmp', NomCompte, NomDomaine);
ShowMessage(Format('Fichier : [%s]', [NomFichier]));
ShowMessage(Format('Compte : [%s]', [NomCompte]));
ShowMessage(Format('Domaine : [%s]', [NomDomaine]));
end
else ShowMessage(Format('Fichier [%s] inexistant.', [NomFichier]));
Voici le résultat obtenu pas à pas dans le déboggeur pour chaque procédure ou fonction :
----------------------------------------------------------------------------------------
Ligne prodédure ou fonction ce qu'elle m'a renvoyée
__________________________________________________________________ ________________________
- GetFileSecurity(fic, OWNER_SECURITY_INFORMATION, nil, 0, ssd) SSD vaut 1
- psd := Pointer(GlobalAlloc(GMEM_FIXED, ssd)) PSD vaut $2BD868
- GetFileSecurity(fic, OWNER_SECURITY_INFORMATION, psd, ssd, ssd) SSD vaut 36
- GetSecurityDescriptorOwner(psd, sid, pFlag); SSD vaut $2BD87C
PFLAG vaut false
- LookupAccountSid(nil, sid, account, saccount, domain, sdomain, snu); SACCOUNT vaut 4294966367
SDOMAIN vaut 4294967085
- account := Pointer(GlobalAlloc(GMEM_FIXED, saccount)); renvoie nil
- domain := Pointer(GlobalAlloc(GMEM_FIXED, sdomain)); renvoie nil
- LookupAccountSid(nil, sid, account, saccount, domain, sdomain, snu); SNU vaut 1244220
- AccountName := account; renvoie nil
- DomainName := domain; renvoie nil
Je n'ai pas d'erreur mais les champs sont vides !
Suite à la remarque de DELPHIPROG, j'ai normalement les droits d'administration puisque c'est mon ordninateur perso.
Comment puis-je vérifier que j'ai les droits d'administration ? Il est vrai que parfois, depuis un programme Delphi que je code, j'ai un refus
de mon ordinateur pour créer un fichier ! Avez-vous une explication ? Merci et bonne journée
23 sept. 2009 à 21:22
Est-ce que tu peux vérifier que la fonction GetFileSecurity retourne bien True. Sinon, récupèrer l'erreur avec GetLastError.
Dis moi ce qu'il en est.
23 sept. 2009 à 20:52
Cordialement
22 sept. 2009 à 06:47
Cordialement, Bacterius !
21 sept. 2009 à 19:21
Je pense que oui, c'est mon ordinateur perso, je développe des programmes. Je epus supprimer des fichiers donc normalement je suis l'administrateur. Comment je peux vois les privilèges pour être sûr , Le fait que la procédure renvoie rien viendrai de là ?
21 sept. 2009 à 17:49
@phphelavi :
1- as-tu les droits nécessaires pour lire ces informations ?
2- As-tu lancé l'exécution de ton programme en tant qu'administrateur ? ("Exécuter en tant que...")
21 sept. 2009 à 14:32
Mais de toute façon je suis en veille tant que j'ai pas Windows 7 !
Cordialement, Bacterius !
21 sept. 2009 à 14:24
21 sept. 2009 à 12:16
21 sept. 2009 à 12:01
J'ai aucun retour sur n'importe quel fichier !
Merci pour ton aide !
21 sept. 2009 à 10:27
21 sept. 2009 à 09:38
J'ai testé et incorporé votre code dans une de mes application mais je n'obtiens aucune information concernant le compte et domaine !!!!
Voici mon code :
ar
NomCompte, NomDomaine : string;
begin
ShowMessage(NodeFichier);
if FileExists(NodeFichier)
then begin
FileSecurityInfos(NodeFichier, NomCompte, NomDomaine);
if (NomCompte <> '') and (NomDomaine <> '')
then ShowMessage(NomCompte + ' - ' + NomDomaine);
end;
end;
J'ai vérifié sur plusieurs fichiers, avez-vous une explication ? Je n'ai jamais d'erreurs mais les variables sont vides ?
Merci pour votre réponse
15 sept. 2009 à 14:25
14 sept. 2009 à 22:51
Néanmoins, que se passe-t-il si on n'est pas en présence d'une partition NTFS ?
Dans cette partie du code :
if ParamCount > 0 then
fic := PChar(ParamStr(1));
Ne serait-il pas souhaitable de tester si le fichier fic existe avant de continuer ?
D'autre part Delphi '2009) renvoie une première erreur sur la ligne d'affectation à la variable fic :
[DCC Erreur] Project4.dpr(24): E2010 Types incompatibles : 'Char' et 'AnsiChar'
Il faudra donc remplacer tous les LPSTR par des PChar.
12 sept. 2009 à 11:40
jamais les locales..
12 sept. 2009 à 09:59
12 sept. 2009 à 09:53
Cordialement, Bacterius !
12 sept. 2009 à 09:43
>lorsque tu déclares des variables, il est inutile de les initialiser à zéro ou nil, c'est fait automatiquement.
C'est vrai uniquement pour les champs de classe - qui eux sont initialisés à zéro par le "pré-constructeur" NewInstance. Les variables normales (globales ou locales) ne sont pas initialisées implicitement, du moins pas dans les anciennes versions de Delphi (mais peut-être en .net?).
11 sept. 2009 à 11:36
Si qq1 veut utiliser ceci dans un programme (ou même toi plus tard) tu devras changer qqch ds le code ...
Et un snippet serait plus approprié je pense ;)
11 sept. 2009 à 10:07
Quelques conseils :
- lorsque tu déclares des variables, il est inutile de les initialiser à zéro ou nil, c'est fait automatiquement.
- si tu veux un retour à la ligne automatique, utilise WriteLn plutôt que Write.
Sinon, bon exemple d'utilisation de ces APIs.
Cordialement, Bacterius !