Дисковод

[Pelengator]

Как в программе определить букву дисковода???

[vitalik007]

procedure ScanAllCDRoms;
var
i,disk:integer;
buffer:array[0..1023]of char;
s:string;
begin
i:=0;
s:='';
disk:=GetLogicalDriveStrings(sizeof(buffer),buffer);
while i<disk do
begin
  if buffer[i]<>#0 then
  begin
    s:=s+buffer[i];
    inc(i);
  end else
  begin
  inc(i);
  if GetDriveType(PChar(S))=DRIVE_CDROM then listbox1.items.add(s);
  s:='';
  end;
end;
end;