Checke alle drev - igen

1) Du kan bruge nedenstående funktion til at finde ud af hvilke drev du har på din PC:

procedure GetDrives;
const
  DRIVE_UNKNOWN = 0;
  DRIVE_NO_ROOT_DIR = 1;
  DRIVE_REMOVABLE = 2;
  DRIVE_FIXED = 3;
  DRIVE_REMOTE = 4;
  DRIVE_CDROM = 5;
  DRIVE_RAMDISK = 6;
var
  r: LongWord;
  Drives: array[0..128] of char;
  pDrive: PChar;
begin
  r := GetLogicalDriveStrings(SizeOf(Drives), Drives);
  if r = 0 then Exit;
  if r > SizeOf(Drives) then
    raise Exception.Create(SysErrorMessage(ERROR_OUTOFMEMORY));
  pDrive := Drives;
  while pDrive^ <> #0 do
  begin
    if (GetDriveType(pDrive) = DRIVE_FIXED) OR (GetDriveType(pDrive) = DRIVE_REMOVABLE) OR (GetDriveType(pDrive) = DRIVE_REMOTE) OR
      (GetDriveType(pDrive) = DRIVE_CDROM) then
        Form1.ListBox1.Items.Add(pDrive);

    Inc(pDrive, 4);
  end;
end;

Så bruger du så bare de drev der står i listen når du skal bruge den funktion du fik i det andet spørgsmål.

2) Nej, det kan du ikke. Du skal jo ud og læse på drevet for at finde ud af om det sidder en diskette i, og det kan du jo kun finde ud af ved at tilgå drevet.

Snowball