volume serial number

با سلام
دوستان می دانید که هر cd یک شماره سریال دارد حالا من می خواهم به وسیله delphi به صورت نرم افزاری آن شماره را به دست آورم تا در برنامه از آن استفاده کنم.اگر می شود من را راهنمای کنید

با سلام
دیدم کسی جواب نداده گفتم خودم جواب بدهم

{This simple component encapsulates two API functions:

 GetVolumeInformation and GetDriveType

 It allows to check:



 Drive Volume Label

 Drive Serial Number

 Drive file system type

 Length of directory component (unfortunatelly this function returns

                                255 chars almost always :( even in case of

                                MSDOS 8+3)

 and Drive System Flags (which you have to test by you self - in this version)



 you can also change Drive Volume Label

 ChangeDiskLabel(NewLabel:string);

 and...

 If you enable CheckSNChange property - every time Serial Number of removable

 media changes OnSNChange fires. It is similar to Autorun function in system.



 Brief description of properities:



    property DiskLabel: Volume Label of disk pointed by Drive property.

    property DiskSerial: Serial Number of disk. (In Hexadecimal format)

    property ComponentLen: Length of directory component length.

    property FileSystem: File System of drive NTFS, HPFS...

    property DriveType:  0	The drive type cannot be determined.

                         1	The root directory does not exist.

                         2	The drive can be removed from the drive.

                         3	The disk cannot be removed from the drive.

                         4	The drive is a remote (network) drive.

                         5	The drive is a CD-ROM drive.

                         6	The drive is a RAM disk.

    property Drive:      Drive letter

    property CheckSNChange: Enables checking Drive Serial Number state

                            of selected drive.



    property OnDriveChanged: This event is fired every time you change Drive letter

                             allowing update of connected components

    property OnSNChanged:    This event is fired every time Serial Number changes

                             It happen also when CD ROM is ejected (serial no. becomes 0)



    procedure ExamineDrive: This procedure updates state of component.



    Important: Changing Drive property disables CheckSNChange.



    This component is freeware.

    I guarantee you nothing concering this code, but you can use it as you wish.



    Happy coding



    Radoslaw Przybyl

    PRO-media CD

    Poland



    promedia@lodz.pdi.net

    Any comments will be welcome.

    }



unit DiskCaps;



interface



uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;



type

  TDiskCaps = class(TComponent)

  private



    FDiskLabel:string;

    FDiskSerial:string;

    FLastSerial:string;

    FComponentLen:integer;

    FFileSystem:string;

    FDriveType: integer;

    FDrive:Char;

    FDriveFlags: DWord;

    FOnDriveChanged : TNotifyEvent;

    FOnSNChanged : TNotifyEvent;

    FCheckPeriod:integer;

    Timer:TTimer;

    FCheckSNChange:boolean;

    procedure SetCheckSNChange(value: boolean);

    procedure SetDrive(Value: char);



    procedure DriveStateChecker(Sender: TObject);

    procedure SetCheckPeriod(value: integer);

  protected

    { Protected declarations }

  public

    constructor Create(AOwner: TComponent); override;

    destructor Destroy; override;

    procedure ExamineDrive;

    procedure ChangeDiskLabel(NewLabel:string);

  published

    property DiskLabel: string read FDiskLabel write FDiskLabel;

    property DiskSerial: string read FDiskSerial write FDiskSerial;

    property ComponentLen: integer read FComponentLen write FComponentLen;

    property FileSystem: string read FFilesystem write FFilesystem;

    property DriveType:integer read FDriveType write FDriveType;

    property Drive: Char read FDrive write SetDrive default 'C';

    property DriveFlags: DWord read FDriveFlags write FDriveFlags;

    property OnDriveChanged: TNotifyEvent read FOnDriveChanged

                            write FOnDriveChanged;

    property OnSNChanged: TNotifyEvent read FOnSNChanged

                            write FOnSNChanged;



    property CheckSNChange: boolean read FCheckSNChange write SetCheckSNChange default false;

    property CheckPeriod: integer read FCheckPeriod write SetCheckPeriod default 2000;

  end;



procedure Register;



implementation



procedure Register;

begin

  RegisterComponents('Samples', [TDiskCaps]);

end;



constructor TDiskCaps.Create(AOwner: TComponent);

begin

  inherited Create(AOwner);

  FDrive:='C';

  ExamineDrive;

  FCheckSNChange:=false;

  FCheckPeriod:=2000;

end;



destructor TDiskCaps.Destroy;

begin

  Timer.Free;

  inherited Destroy;

end;



procedure TDiskCaps.SetDrive(Value:char);

begin

  if FDrive<>Value then

  begin

    FDrive:=Value;

    ExamineDrive;

    SetCheckSNChange(false);

    if Assigned(FOnDriveChanged) then FOnDriveChanged(Self);

  end;

end;



procedure TDiskCaps.ExamineDrive;

var

  Serial:DWord;

  DirLen: DWord;

  SystemFlags: DWord;

  FileSys:array[0..12] of Char;

  DLabel:array[0..12] of Char;

begin

  GetVolumeInformation(PChar(Drive+':\'&  #41;,@DLabel,12,@Serial,

                       DirLen,SystemFlags,@FileSys,12);

  FDiskLabel:=DLabel;

  FDiskSerial:=IntToHex(Serial,8);

  FComponentLen:=DirLen;

  FFileSystem:=FileSys;

  FDriveType:=GetDriveType(PChar(Drive+'  :\'));

  FDriveFlags:=SystemFlags;

end;



procedure TDiskCaps.ChangeDiskLabel(NewLabel:string&  #41;;

begin

  if FDiskLabel<>NewLabel then

  begin

    SetVolumeLabel(PChar(Drive+':\'),P  Char(NewLabel));

    ExamineDrive;

  end;

end;



procedure TDiskCaps.SetCheckSNChange(Value:boolean&#  41;;

begin

  if FCheckSNChange<>value then

  begin

    FCheckSNChange:= Value;

    ExamineDrive;

    if not Value then

    begin

      Timer.Free;

      Timer := Nil;

    end

    else if (FCheckPeriod > 0) and

            ((FDriveType=DRIVE_REMOVABLE) or (FDriveType=DRIVE_CDROM))then

    begin

      FLastSerial:=FDiskSerial;

      Timer := TTimer.Create(Self);

      Timer.Interval := FCheckPeriod;

      Timer.OnTimer := DriveStateChecker;

    end

    else

      FCheckSNChange:= false;

  end;

end;



procedure TDiskCaps.DriveStateChecker(Sender: TObject);

begin

  ExamineDrive;

  if FLastSerial<>FDiskSerial then

  begin

    FLastSerial:=FDiskSerial;

    if Assigned(FOnSNChanged) then FOnSNChanged(Self);

  end;

end;



procedure TDiskCaps.SetCheckPeriod(value: integer);

begin

if Value <> FCheckPeriod then

  begin

  Timer.Free;

  Timer := Nil;

  if FCheckSNChange and (Value > 0) then

    begin

    Timer := TTimer.Create(Self);

    Timer.Interval := Value;

    Timer.OnTimer := DriveStateChecker;

    end;

من هر کار کردم نشد درست نشون بده اگر می شود (و می خواهید)به من بگین تا یک فکری بکنم

من پست شما رو اصلاح کردم.

برای درج صحیح کد بین متن کافی است بلوک حاوی کد را با استفاده از کلید Shift (مانند همه editor های دیگر) انتخاب کرده و سپس از دکمه های فوق روی دکمه Code کلیک کنید.