VPF::Список СД-РОМов? - Форум программистов

_8989

Дата 19.11.2003, 15:12 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Как получить список CD-ROM'ов без двоеточия и косой черты (C:\). Нужно получить только букву.

<Spawn>

Дата 19.11.2003, 16:35 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Например так:

Код

procedure TForm1.Button1Click(Sender: TObject);
var
  Buffer:PAnsiChar;
  BufLen, i, CurrentInc: integer;
begin
  BufLen:= GetLogicalDriveStrings(0, Buffer);
  try
    GetMem(Buffer, BufLen);
    GetLogicalDriveStrings(BufLen, Buffer);
    CurrentInc:= 0;
    while BufLen > CurrentInc do
    begin
      if GetDriveType(Buffer) = DRIVE_CDROM then
        ListBox1.Items.Add(Copy(Buffer,1,1));
      Inc(Buffer, 4);
      Inc(CurrentInc, 4);
    end;
  finally
    Dec(Buffer, CurrentInc);
    FreeMem(Buffer);
  end;
end;

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

<Spawn>

Дата 19.11.2003, 16:38 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

А можно так:

Код

procedure TForm1.Button1Click(Sender: TObject);
var
  Buffer:PAnsiChar;
  BufLen, i, CurrentInc: integer;
begin
  BufLen:= GetLogicalDriveStrings(0, Buffer);
  try
    GetMem(Buffer, BufLen);
    GetLogicalDriveStrings(BufLen, Buffer);
    CurrentInc:= 0;
    while BufLen > CurrentInc do
    begin
      if GetDriveType(PAnsiChar(DWORD(Buffer) + CurrentInc)) = DRIVE_CDROM then
        ListBox1.Items.Add(Copy(PAnsiChar(DWORD(Buffer) + CurrentInc),1,1));
      Inc(CurrentInc, 4);
    end;
  finally
    FreeMem(Buffer);
  end;
end;

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »