begin process at 2010 03 20 17:55:44
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Sécurité

 > BLOQUER L'ACCÈS À UN VOLUME (LECTEUR: DISQUE DUR, DISQUETTE, CD-ROM, PARTITION ETC...)

BLOQUER L'ACCÈS À UN VOLUME (LECTEUR: DISQUE DUR, DISQUETTE, CD-ROM, PARTITION ETC...)


 Information sur la source

Note :
6 / 10 - par 1 personne
6,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Sécurité Classé sous :interdire, bloquer, accès, volume, disque Niveau :Initié Date de création :04/07/2005 Vu / téléchargé :24 144 / 1 515

Auteur : taye78

Ecrire un message privé
Ce membre participe au partage de revenus publicitaires
Commentaire sur cette source (7)
Ajouter un commentaire et/ou une note


 Description

Un code assez simple démontrant l'utilisation de l'api DeviceIoControl, avec comme code de controle FSCTL_LOCK_VOLUME pour le blocage du volume. Ceci est un code en réponse a une question posée sur le forum (http://www.delphifr.com/forum.v2.aspx?ID=501631#2 ).

Le volume bloquée est débloqué a la fermeture du programme (vu que l'handle utilisé pour le pointage vers celui-ci est libéré) sinon vous utilisez un simple CloseHandle comme montré dans le code ou un FSCTL_UNLOCK_VOLUME  dans DeviceIoControl.

On obtien un handle sur le volume via CreateFile.

Source

  • var
  • bByteReturn: Cardinal;
  • FSCTL_LOCK_VOLUME: integer;
  • begin
  • try
  • //FSCTL_LOCK_VOLUME CTL_CODE(FILE_DEVICE_FILE_SYSTEM,6,METHOD_BUFFERED,FILE_ANY_ACCESS)
  • FSCTL_LOCK_VOLUME := CTL(FILE_DEVICE_FILE_SYSTEM, METHOD_BUFFERED, 6, FILE_ANY_ACCESS); //dwIoControlCode Code de controle de l'action a effectuer
  • hFile := CreateFile(PChar('\\.\' + copy(dcbLecteur.Text, 1, pos(':', dcbLecteur.Text))), GENERIC_WRITE or GENERIC_READ, FILE_SHARE_READ + FILE_SHARE_WRITE,
  • nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); //on récupère un handle sur le volume désiré
  • //FILE_SHARE_READ ou FILE_SHARE_WRITE est obligatoire (au moins l'un des deux) pour dwShareMode
  • if hFile = INVALID_HANDLE_VALUE then //si l'handle est invalide alors on arrête
  • begin
  • ShowMessage(SysErrorMessage(GetLastError)); //message explicatif du code erreur renvoyé
  • //par GetLastError
  • Exit;
  • end;
  • if NOT DeviceIoControl(hFile, FSCTL_LOCK_VOLUME, nil, 0, nil, 0, bByteReturn, nil) then
  • ShowMessage(SysErrorMessage(GetLastError)) //message explicatif du code erreur renvoyé
  • else //par GetLastError
  • Caption := dcbLecteur.Text + ' > Locked (' + IntToStr(hFile) + ')';
  • //******************************************************************************
  • //Si vous avez un accès refusé c'est possible que vous n'y avez pas accès car
  • //il y a un fichier d'ouvert sur ce volume ! Il vous faut laccès exclusif dessus
  • //******************************************************************************
  • ShowMessage('Si tout s''est bien passé, n''oubliez pas de UNLOCK le meme driver que vous avez' +
  • ^M + 'LOCK! sinon en fermant le programme les volumes seront reliberés a la fermeture des handles');
  • except
  • ShowMessage(SysErrorMessage(GetLastError))
  • end;
var
  bByteReturn: Cardinal;
  FSCTL_LOCK_VOLUME: integer;
begin
try
//FSCTL_LOCK_VOLUME  CTL_CODE(FILE_DEVICE_FILE_SYSTEM,6,METHOD_BUFFERED,FILE_ANY_ACCESS)
FSCTL_LOCK_VOLUME := CTL(FILE_DEVICE_FILE_SYSTEM, METHOD_BUFFERED, 6, FILE_ANY_ACCESS); //dwIoControlCode Code de controle de l'action a effectuer

  hFile := CreateFile(PChar('\\.\' + copy(dcbLecteur.Text, 1, pos(':', dcbLecteur.Text))), GENERIC_WRITE or GENERIC_READ, FILE_SHARE_READ + FILE_SHARE_WRITE,
                      nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); //on récupère un handle sur le volume désiré
                                                                     //FILE_SHARE_READ ou FILE_SHARE_WRITE est obligatoire (au moins l'un des deux) pour dwShareMode

  if hFile = INVALID_HANDLE_VALUE then   //si l'handle est invalide alors on arrête
  begin
    ShowMessage(SysErrorMessage(GetLastError));   //message explicatif du code erreur renvoyé
                                                 //par GetLastError
    Exit;                  
  end;

  if NOT DeviceIoControl(hFile, FSCTL_LOCK_VOLUME, nil, 0, nil, 0, bByteReturn, nil) then
    ShowMessage(SysErrorMessage(GetLastError))   //message explicatif du code erreur renvoyé
  else                                           //par GetLastError
    Caption := dcbLecteur.Text + ' > Locked (' + IntToStr(hFile) + ')';
    //******************************************************************************
    //Si vous avez un accès refusé c'est possible que vous n'y avez pas accès car
    //il y a un fichier d'ouvert sur ce volume ! Il vous faut laccès exclusif dessus
    //****************************************************************************** 

  ShowMessage('Si tout s''est bien passé, n''oubliez pas de UNLOCK le meme driver que vous avez' +
              ^M + 'LOCK! sinon en fermant le programme les volumes seront reliberés a la fermeture des handles');
except
    ShowMessage(SysErrorMessage(GetLastError))
end;

 Conclusion

Compo standar + API





- wG -

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip ASTUCE: COMMENT CHANGER LA TAILLE DE NOS LIGNES DANS UN TLIS...
Source avec Zip CRÉATION D'UN POINT DE RESTAURATION (ME/XP)
Source avec Zip SURVEILLER LES ACTIVITÉS D'UN DOSSIER ET DE SES SOUS-DOSSIER...
Source avec Zip LISTEUR DES PROCESSUS ET DE SES CHILDS. KILL N'IMPORTE QUEL ...
METTRE (OU RETIRER) LE MONITEUR EN (DE LA) VEILLE

 Sources de la même categorie

Source avec Zip Source avec une capture SCANNER DE MALWARES ( ßE SCANNER ) par MrClock
Source avec Zip Source avec une capture GOLDEN PASSWORDS - STOCKEZ VOS MOTS DE PASSE ! par Bacterius
Source avec Zip Source avec une capture LEA EN MODE CHIFFREMENT (SEA) par Bacterius
Source avec Zip Source avec une capture DELPHI : SHA-1 EN MODE CHIFFREMENT (SHACAL) par FENETRES
Source avec Zip SECUSB ; LOGICIEL D'EFFACEMENT SÉCURISÉ POUR CLEF USB par ludodelphi

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture COMPOSANT TDBPTRACKBARVOLUME - JOUEZ AVEC LE SON ! par JulioDelphi
Source avec Zip Source avec une capture VOLUMESYSTRAY: OUVRIR SNDVOL32.EXE PLUS RAPIDEMENT QUE WINDO... par ekinoxjp
Source avec Zip Source avec une capture MODIFIER LES DATES DE CRÉATION, DE MODIFICATION ET DE DERNIE... par ni69
Source avec Zip Source avec une capture INTERDIRE L'ACCÈS À CERTAIN SITES INTERNET par HAFTARIFOUAD
Source avec Zip Source avec une capture INFORMATIONS DISQUE ET SYSTEME par HAFTARIFOUAD

Commentaires et avis

Commentaire de Alain Proviste le 05/07/2005 00:30:26 administrateur CS

complètement à l'ouest au brésil.
!gay wG


ca marche avec les clés !usb ?

Commentaire de taye78 le 05/07/2005 00:42:25

!usb Proviste
ouai ça marche s'il n'y a aucun handle d'ouvert pointant sur un fichier sur la clef que tu veux bloquer

Commentaire de DelphiCool le 06/07/2005 07:02:39 administrateur CS

Cool ;)

ça ne marche pas sur un répertoire n'ext ce pas?

Commentaire de taye78 le 06/07/2005 21:57:11

Salut, effectivement ça ne marche pas avec les répertoires. Il faudrait utiliser un autre systeme

Commentaire de petermadio le 13/05/2006 01:15:34

Salut,
Je cherchais depuis un mois comment créer un volume, le monter ,le demonter et le supprimer .
Il y a de cela trois jour, je suis tombé sur DeviceIoControl.Je voudrais savoir si c'est possible de m'aider.Quelles sont les commandes à utiliser, je veux dire les paramètres à utiliser pour chaque cas.Ou si tu as une autre proposition à me donner alors je suis partant.Je programme normalement en C# mais sur le forum je n'ai pas une réponse à ça.C'est pour mon projet de fin d'étude.Aidez moi s'il vous plaît !Même si je trouve une dll contenant c'est fonction alors je suis partant en connaissant bien sûr les paramètres des fonctions inclurent .
Merci !
Amicalement .

Commentaire de jackalunion le 26/06/2008 12:22:19

j'ai tester sans succes

Commentaire de onix51100 le 22/06/2009 11:55:35

comment l'installer

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Interdire l'accès à un PC [ par cccm62 ] Bonjour,Mes questions: Je cherche des idées pour bloquer totalement l'accès à un PC sous XP. => des idées en + que le simple MDP au démarra Accès à la MFT (Master File Table) [ par ni69 ] Bonjour,Quelqu'un saurait-il comment accéder à la MFT (Master File Table) d'un disque NTFS via Delphi ?Je suis en train de développer un utilitaire de Charger un executable sans passez par le disque dur [ par niakfu ] Bonjours,Depuis quelque temps je cherche, mais mon résultat n'arrive pas à aboutir.Je cherche une source ou un tutoriel serais encore mieux, en França Bloquer URL [ par hurrycane ] salut Je voudrais savoir comment intercepter les requetes d'URL sortantes, DE NAVIGATEUR ---> INTERNET et repondre est ce possible de répondre a Etat de fragmentation d'un disque dur [ par PHIL63 ] Bonsoir à tous,Est-il possible sous delphi 6 de connaitre l'état de fragmentation d'un disque dur.Exemple : 6% de fichiers sont fragmentés. (pas besoi Accès aux Bases de Données impossible [ par ymazingerz ] Allô. J'ai téléchargé la version architecte de Delphi 2009 qui devait techniquement est pleinement fonctionnelle. Or, il m'est totalement impossible d Bloquer accés et debloquer tous les minuits [ par elt93 ] Bonjour,Voici mon probleme, mes petits freres jouant trop à l'ordinateur, mes parents m'ont demandé de créer un petit programme qui éteindrait l'ordin


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,530 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales