Форум: "Основная";
Текущий архив: 2003.11.03;
Скачать: [xml.tar.bz2];
Вниз
Как определить букву С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;
← →
Anatoly Podgoretsky (2003-10-23 08:48) [4]А "G: два раза зачем?
← →
Думкин (2003-10-23 09:50) [5]
> [3] Soi © (23.10.03 08:19)
А где смайлик?
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.11.03;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.12 c
