CD

Hvilket navn ??

Det er vel den cd\'s label som sidder i cd-rom drevet !?

Snowball

yep

Function  GetDiskSerial(cDrive : Char) : LongWord;
var
  pacRootName    : PChar;
  pacDiskName    : PChar;
  dwDiskNum      : DWord;
  dwMaxKomponent : DWord;
  dwFlag        : DWord;
  pacDiskSystem : PChar;
begin
  Result := 0;
  if IsDriveReady(cDrive) then begin
    GetMem(pacDiskName,255);
    GetMem(pacDiskSystem,255);
    try
      pacRootName := PChar(cDrive+\':\\\');
      if GetVolumeInformation(pacRootName, pacDiskName, 255,
                              @dwDiskNum, dwMaxKomponent, dwFlag,
                              pacDiskSystem, 255) Then Result := dwDiskNum;
    finally
      FreeMem(pacDiskName);
      FreeMem(pacDiskSystem);
    end;
  end;
end;

Øhhhh du skal også lige have denne her:

Function  IsDriveReady(cDrive : Char) : Boolean;
var
  uiDrvNum : byte;
  wEMode  : Word;
begin
  Result := False;
  uiDrvNum := ord(cDrive);
  if uiDrvNum >= ord(\'a\') then dec(uiDrvNum,$20);
  wEMode := SetErrorMode(SEM_FAILCRITICALERRORS);
  try
    if DiskSize(uiDrvNum-$40) <> -1 then Result := True
                                    else messagebeep(0);
  finally
    SetErrorMode(wEMode);
  end;
end;

pacRootName    : PChar;
  pacDiskName    : PChar;
  dwDiskNum      : DWord;
  dwMaxKomponent : DWord;
  dwFlag        : DWord;
  pacDiskSystem : PChar;

Hvad betegner hvad???

Hvad vil du vide ?

pacXXXX er en Point til et Array of Char (altså en PCHar).
dwXXXX er et Double Word.

Hvilken en af dem er CD-label-navnet???

cautoo >> du kan også bruge den her unit den kan fortælle dig en masse om din disk :

unit DiscInfo;

interface
uses
  Windows, SysUtils, JBUtils;

{$IFDEF VER120}
{$DEFINE Delphi4or5}
{$ENDIF}

{$IFDEF VER130}
{$DEFINE Delphi4or5}
{$ENDIF}


type
  TDriveString = array[0..2] of char;
{$IFDEF Delphi4or5}
  TLargeInteger = _LARGE_INTEGER;
{$ENDIF}

  TDiscInfo = class(TObject)
  private
    FDrive: TDriveString;
    FFreeSpaceAvailable, FTotalSpace: Int64;
    FTotalFree: TLargeInteger;
    FSerialId: string;
  protected
    function GetDriveType: string;
    function GerDriveSize: string;
  public
    constructor Create(const drive: char);
    property Drive: TDriveString read FDrive;
    property DriveType: string read GetDriveType;
    property FreeSpaceAvailable: Int64 read FFreeSpaceAvailable;
    property TotalSpace: Int64 read FTotalSpace;
    property DiskVolSerialID: string read FSerialId;
  end;


implementation

{ TDiscInfo }

constructor TDiscInfo.Create(const drive: char);
var
  Tmp: DWORD;
begin
  FDrive[0] := drive;
  FDrive[1] := #58;
  FDrive[2] := #92;

  FFreeSpaceAvailable := 0;
  FTotalSpace := 0;

  if GetVolumeInformation(FDrive, nil, 0, nil, Tmp, Tmp, nil, 0) then
    GetDiskFreeSpaceEx(FDrive, FFreeSpaceAvailable, FTotalSpace, @FTotalFree);

  FSerialId := GetDiskVolSerialID(drive);
end;

function TDiscInfo.GerDriveSize: string;
begin
  Result := IntToStr(DiskSize(0));
end;

function TDiscInfo.GetDriveType: string;
begin
  case Windows.GetDriveType(FDrive) of
    DRIVE_UNKNOWN: Result := \'Drive type cannot be determined.\';
    DRIVE_NO_ROOT_DIR: Result := \'Root directory does not exist\';
    DRIVE_REMOVABLE: Result := \'Floppy drive.\';
    DRIVE_FIXED: Result := \'Hard disk drive\';
    DRIVE_REMOTE: Result := \'Network drive\';
    DRIVE_CDROM: Result := \'CD-ROM drive\';
    DRIVE_RAMDISK: Result := \'RAM drive\';
  end;
end;

end.


Jens B

husk at fjerne JBUtils fra uses.

Jens B

tak for hjælpen!!

Hvaee Borrisholt vil du ikke have \"del i kagen\" det var sikkert dit svar der blev brugt ?

pellelil>> Tak for tilbudet ... men jeg tror jeg hopper over. tag du blot hele rovet selv.

Jens B

Its your choice - with or without horse :-)