Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.216.42.81] |
|
Сообщ.
#1
,
|
|
|
Как определить, на каком диске Cd-Rom?
|
Сообщ.
#2
,
|
|
|
//формируем список дисков имеющий тип 'CDROM procedure GetCDROMDriveList(const List: TStrings); var Size, Pos: Cardinal; Buffer: array[0..127] of AnsiChar; P: PChar; begin List.BeginUpdate; try List.Clear; Size:=GetLogicalDriveStrings(SizeOf(Buffer), Buffer); Pos:=0; while Pos<Size do begin P:=@Buffer[Pos]; if GetDriveType(P) = DRIVE_CDROM then List.Add(P);//Const DRIVE_CDROM = 5; из Windows.pas while Buffer[Pos]<>#0 do Inc(Pos); Inc(Pos); end; finally List.EndUpdate; end; end; CopyRight by Dimka Maslov :-) |
Сообщ.
#3
,
|
|
|
Good!
|