информация о дисках

[Titan123]

скажите, как можно узнать буквы всех дисков в данный момент имеющиеся на компьютере?

[Terran]

Можете сделать так:

Function DriveType(StrDisk: String): String;
Begin
Case
GetDriveType(PChar(StrDisk)) Of
DRIVE_REMOVABLE: DriveType:='Сменный'+'|';
DRIVE_FIXED: DriveType:='Жёсткий диск'+'|';
DRIVE_REMOTE: DriveType:='Remote'+'|';
DRIVE_CDROM: DriveType:='CD-ROM'+'|';
DRIVE_RAMDISK: DriveType:='Ram Диск'+'|';
Else
DriveType:='Неизвестный'+'|';
End;
End;
Function GetDrives: String;
Var
P: Integer;
This,All,C,F,CDrives: String;
Begin
C:=Chr(13);
F:=Chr(0);
SetLength(CDrives,300);
GetLogicalDriveStrings(300,PChar(CDrives));
P:=Pos(F, CDrives);
While P > 0 Do
Begin
This:=Copy(CDrives, 1, P - 1);
If Length(This) <> 3 Then
Break;
This:=UpperCase(This) + ' - ' + DriveType(This);
CDrives:=Copy(CDrives, P + 1,Length(CDrives));
P:=Pos(F, CDrives);
All:=All+This;
End;
GetDrives:=Copy(All,1,Length(All) - 1);
End;

Procedure TForm1.Button1Click(Sender: TObject);
Begin
Memo1.Lines.Add(GetDrives);
Memo1.Text:=StringReplace(Memo1.Text,'|',#13#10,[RfReplaceAll]);
End;

Кстати, этот вопрос уже обсуждался. Пользуйтесь поиском по форуму.

[KORT]

Кинуть на форму компонент TDriveComboBox с вкладки WIN 3.1