Delphi 7 Буква и название флешки.

[ThundeRLorD]

Напишите пожалуйста 2 скрипта.
1)Скрипт должен в переменную выводить БУКВУ флешки и выдавать ее через showmessage(s); Пример: (ShowMessage('F');
2)Скрипт должен в переменную выводить НАЗВАНИЕ флешки и выдавать ее через showmessage(a); Пример: (ShowMessage('Kingstone');
Срочно нужно! Пожалуйста!

[Stilet]

1) http://www.programmersforum.ru/showthread.php?t=64205

[ThundeRLorD]

Ну вот есть у меня:

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;

а как туда "GetDriveType() = DRIVE_REMOVABLE" присобачить?

[Stilet]

if GetDriveType(PChar(DrvStr)) = DRIVE_REMOVABLE then Диск DrvStr сьемный.