Developpez.com - Delphi
X

Choisissez d'abord la catégorieensuite la rubrique :

Nono40.developpez.com
Le petit coin du web de Nono40
SOURCES TESTS DELPHI WIN32 AUTOMATISMES DELPHI .NET QUICK-REPORT
Retour à l'accueil
55 - NOM DE VOLUME ET NUMÉRO DE SÉRIE D'UN DISQUE

PRÉSENTATION : Afficher le nom de volume, le numéro de série et le système de fichiers d'un disque.
ZIP : Téléchargez le zip APERÇUS :

NOTES :

CODE :
Unit Unit1;
//
// Sujet : Information sur un disque
//
// Par Nono40 : http://nono40.developpez.com   http://nono40.fr.st
//              mailTo:nono40@fr.st
//
// Le 30/04/2003
//

Interface

Uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, FileCtrl;

Type
  TForm1 = Class(TForm)
    DriveComboBox1: TDriveComboBox;
    Label1: TLabel;
    Label2: TLabel;
    lVolume: TLabel;
    lSerie: TLabel;
    Label3: TLabel;
    lSysteme: TLabel;
    Procedure DriveComboBox1Change(Sender: TObject);
  Private
    { Déclarations privées }
  Public
    { Déclarations publiques }
  End;

Var
  Form1: TForm1;

Implementation

{$R *.dfm}

Procedure TForm1.DriveComboBox1Change(Sender: TObject);
Var BuffNom : Array[0..255]Of Char;
    BuffSys : Array[0..255]Of Char;
    Serie   : DWord;
    Long    : DWord;
    Flags   : DWord;
Begin
  // Obtention des informations sur le lecteur
  If GetVolumeInformation(PChar(DriveComboBox1.Drive+':\')
               ,@BuffNom,SizeOf(BuffNom)         // BuffNom contiendra le nom
               ,@Serie                           // Serie le numéro de série
               ,Long
               ,Flags
               ,@BuffSys,SizeOf(BuffSys)) Then   // BuffSys le type de fichiers
  Begin
    lVolume  .Caption := BuffNom;
    lSysteme .Caption := BuffSys;
    lSerie   .Caption := IntToStr(Serie);
  End
  Else RaiseLastOSError;
End;

end.

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2003 Bruno Guérangé. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents, images, etc. sans l'autorisation expresse de l'auteur. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.

Responsables bénévoles de la rubrique Delphi : Gilles Vasseur - Alcatîz -