Как определить букву СD-ROMa? GetDriveType?

← →
Master (2003-10-23 04:53) [0]

Как определить букву СD-ROMa? GetDriveType?
Ну просто очень нужно..........

← →
Anatoly Podgoretsky © (2003-10-23 04:55) [1]

Да оно

← →
app © (2003-10-23 07:35) [2]

Если будешь ив дальнейгем для каждого ответа создавать новую ветку, то сможешь только читать.

← →
Soi © (2003-10-23 08:19) [3]

function GetCD_Rom : PChar;
var
Drive : PChar;
DriveArray : array[1..27] of PChar;
i : integer;
begin
DriveArray[1] := "A:\";
DriveArray[2] := "B:\";
DriveArray[3] := "C:\";
DriveArray[4] := "D:\";
DriveArray[5] := "E:\";
DriveArray[6] := "F:\";
DriveArray[7] := "G:\";
DriveArray[8] := "G:\";
DriveArray[9] := "H:\";
DriveArray[10] := "I:\";
DriveArray[11] := "J:\";
DriveArray[12] := "K:\";
DriveArray[13] := "L:\";
DriveArray[14] := "M:\";
DriveArray[15] := "N:\";
DriveArray[16] := "O:\";
DriveArray[17] := "P:\";
DriveArray[18] := "R:\";
DriveArray[19] := "Q:\";
DriveArray[20] := "S:\";
DriveArray[21] := "T:\";
DriveArray[22] := "U:\";
DriveArray[23] := "V:\";
DriveArray[24] := "W:\";
DriveArray[25] := "X:\";
DriveArray[26] := "Y:\";
DriveArray[27] := "Z:\";
for i := 1 to 27 do
begin
Drive := A[i];
if GetDriveType(Drive) = DRIVE_CDROM then
Result := A[i];
end;
end;

А "G: два раза зачем?

Как определить букву СD-ROMa? GetDriveType? Найти похожие ветки