| Код |
type
tDriveType = (dFloppy, dHdd, dCDROM, dNetwork);
const
DriveType: array [tDriveType] of Cardinal = (
{dFloppy } 2,
{dHdd } 3,
{dCDROM } 5,
{dNetwork} 4
);
function GetAllDrives(dType: tDriveType): String;
// Получение списка дисков, имеющихся в системе
// dType - Тип диска
var
Drive: char; // Буква диска
const
pref = ':\';
begin
Result:='None';
with TStringList.Create do try
for Drive:= 'A' to 'Z' do
if GetDriveType(PChar(Drive + pref)) = DriveType[dType] then
Add(Drive + pref);
SetString(Result, PChar(CommaText), length(CommaText));
finally
Free;
end;
end;
// -----------------------------------------------------------------
function GetAllFloppyDrives: string;
// Получение списка гибких дисков, имеющихся в системе
begin
Result:= GetAllDrives(dFloppy);
end;
// -----------------------------------------------------------------
function GetAllHddDrives: string;
// Получение списка жестких дисков, имеющихся в системе
begin
Result:= GetAllDrives(dHdd);
end;
// -----------------------------------------------------------------
function GetAllCDDrives: String;
// Получение списка CD дисков, имеющихся в системе
begin
Result:= GetAllDrives(dCDROM);
end;
// -----------------------------------------------------------------
function GetAllNetworkDrives: string;
// Получение списка сетевых дисков, имеющихся в системе
begin
Result:= GetAllDrives(dNetwork);
end;
// -----------------------------------------------------------------
|
|