🚀 go-pugleaf

  Easy enough:  This will find the first CD-ROM in the format 'x:\'  (where
x is the *FIRST* CD-ROM)...  --  use it:  MyVar := FindCDROM;

function FindCDROM: shortstring;
var
  AList                         : TStringList;
  Counter                       : integer;
begin
  Result := 'no CDROM present';
  AList := TStringList.Create;
  ListDrives(AList);
  for Counter := 0 to AList.Count-1 do
    if GetDriveType(PChar(Alist.Strings[Counter])) = DRIVE_CDROM then
      Result := Alist.Strings[Counter]
end;

procedure ListDrives(Strings: TStringList);
const BufSize = 256;
var
  Buffer, P: PChar;
begin
  GetMem(Buffer, BufSize);
  try
    Strings.BeginUpdate;
    try
      Strings.Clear;
      if GetLogicalDriveStrings(BufSize, Buffer) <> 0 then begin
        P := Buffer;
        while P^ <> #0 do begin
          Strings.Add(P);
          Inc(P, StrLen(P) + 1);
        end;
      end;
    finally
      Strings.EndUpdate;
    end;
  finally
    FreeMem(Buffer, BufSize);
  end;
end;

--
Jason Wallace
SL Software
DarkElf@SLSoftware.reno.nv.us
--
"We are Microsoft.  Resistance is Futile.  You will be assimilated.
--


Jan Hecker & Rikke Skaanes <rikkejan@get2net.dk> wrote in message
news:3722E2CD.5347E78@get2net.dk...
> Hi,
> I'm making a little program, and needs the program to find/detect the
> drive letter of the cd-rom drive! How's that dine??? I'm usinfg Delphi
> 3.
>
> Jan
>