Определить букву CDROMа

[Pavel]

Подскажите кто нить, как в Lazarus определить букву CDROMа

[Alexander]

http://www.sources.ru/delphi/files/cdrom_letter.shtml

[Alexander]

И вообще http://www.sources.ru/delphi/delphi_files.shtml

И вообще http://www.sources.ru/

[Alexander]

А сидиром может быть и не один.

[alexs]

посмотрите исходники FPC - всё же изобрели
fpcsrc\packages\extra\cdrom\cdrom.pp
Function GetCDRomDevices(Var Devices : Array of string) : Integer;

[Pavel]

посмотрите исходники FPC - всё же изобрели
fpcsrc\packages\extra\cdrom\cdrom.pp
Function GetCDRomDevices(Var Devices : Array of string) : Integer;

alexs а какие эта функция возвращает данные, чёт я не нашел.

[alexs]

попробуй - это лучше всего. Вот кусок моей рабочей программы:

Код: Выделить всё

procedure TflScanDeviceForm.FormCreate(Sender: TObject);
var
  CD:array [0..256] of string;
  cnt, i:integer;
begin
  cnt:=GetCDRomDevices(CD);
  for i:=0 to Cnt-1 do
    ComboBox1.Items.Add(Cd[i]);
  if ComboBox1.Items.Count>0 then
    ComboBox1.ItemIndex:=0;
end;