1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

function IsDiskInDrive(const ADrive: Char) : Boolean;
var ErrorMode: word;
begin
 ErrorMode := SetErrorMode(SEM_FailCriticalErrors);
 try
   Result := (DiskSize(Ord(UpperCase(ADrive)[1]) - 64) > -1);
 finally
   SetErrorMode(ErrorMode);
 end;
end;

function GetDiskName(const ADrive: Char): String;
var
  unused: Cardinal; //oder Integer (Delphi 3)
  buffer: array[0..19] of Char;
begin
  Result:='';
  if (GetDriveType(PChar(Format('%S:\',[ADrive]) ) ) >1) and
     (GetVolumeInformation(PChar(ADrive+':\'),
     @buffer[0], SizeOf(buffer), nil, unused, unused, nil, 0)) then
    Result := buffer
  else
    RaiseLastOSError;// Bis D5 RaiseLastWin32Error;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if IsDiskInDrive('D')= true then   // DVD/CDROM anpassen
  Label1.caption:= GetDiskName('D');
end;