определение флешки

[DLev2]

мне нужно программно вычеслить буквы подключенных к компу флешк. кто поможет?

[ОДИНОЧЕСТВО В СЕТИ]

Получаешь буковки всех смонтированных дисков - GetLogicalDriveStrings()
Находишь среди них съемные (GetDriveType() = DRIVE_REMOVABLE). Исключаешь A:. Остаются твои флешки. (если, конечно, чего-нибудь еще съемного других типов нету)
Метку получаешь через GetVolumeInformation

[DLev2]

а можно подробней?
ну или еще вопрос.
как мне сделать проверку на rewrite?
чтобы можно было проверить можно ли создать файл в данной папке.

[W0LF]

Да, подробности не мешали б... Тоже интересно

[DLev2]

ну на самом деле я придумал как это делать, но это не спомощью этих функций, а с помощью "for" а.

[W0LF]

так открой секрет

[DLev2]

ну у меня то просто задача другая немного была, мне нужно было скинуть на все возможные диски определенные файлы. ну код вот такой.

for q:= ord ('C') to ord ('Z') do
begin
if q = ord ('E') then {исключение 3 позьб воткнуть диск}
continue;
assignfile(fileq, chr(q)+':\autorun.inf');
{$I-}
rewrite(fileq);
{$I+}
if IOResult <> 0 then
continue;
closefile(fileq);
end;

[ОДИНОЧЕСТВО В СЕТИ]

вот на основе твоего примера:
в мемо будут диски и их тип:

procedure TForm1.btn1Click(Sender: TObject);
var
  i: Integer;
  C: string;
  DType: Integer;
  DriveString: string;
begin
  mmo1.Clear;
  for i := 65 to 90 do
  begin
    C := chr(i) + ':\';

    DType := GetDriveType(PChar(C));

    case DType of
      0: DriveString := C + ' диск не определен';
      1: DriveString := C + ' корневая директория не существует';
      DRIVE_REMOVABLE: DriveString :=
        C + ' съемный';
      DRIVE_FIXED: DriveString :=
        C + ' не съемный';
      DRIVE_REMOTE: DriveString :=
        C + ' сетевой';
      DRIVE_CDROM: DriveString := C + '  CD-ROM';
      DRIVE_RAMDISK: DriveString := C + ' RAM ';
    end;
    if not ((DType = 0) or (DType = 1)) then
      mmo1.lines.Add(DriveString);
  end;

end;

а вот на GetLogicalDriveStrings():

procedure TForm1.btn1Click(Sender: TObject);
var
  i, j: integer;
  buf: array [0..499] of char;
  DrvStr: array [0..9] of char;
begin
  GetLogicalDriveStrings(1000, buf);
  i := 0;
  repeat
    FillChar(DrvStr, SizeOf(DrvStr), #0);
    j := 0;
    repeat
      DrvStr[j] := buf[i];
      inc(j);
      inc(i);
    until
      (buf[i] = #0) or (j > 9);
    inc(i);
    mmo1.lines.Add(DrvStr);
  until
    ((buf[i-1] = #0) and (buf[i] = #0)) or (i > 499);
end;