Kod: Tümünü seç
function GetDriveList():String;
var
FSBUffer, VNBuffer, Buffer: PChar;
i, BufLen: Integer;
DriveLetter:string;
mc, fl:dword;
begin
result:='';
GetMem(buffer,255);
BufLen:=GetLogicalDriveStrings(255,Buffer);
for i:=0 to (BufLen-1) div 4 do
begin
DriveLetter:=Buffer[i*4]+Buffer[i*4+1]+Buffer[i*4+2];
if i>0 then
begin
GetMem(VNBuffer,255);
GetMem(FSBuffer,255);
if GetVolumeInformation(PChar(DriveLetter),VNBuffer,255,nil,mc,fl,FSBuffer,255) then DriveLetter:=DriveLetter+'['+VNBuffer+']'+'['+FSBuffer+']';
FreeMem(FSBuffer);
FreeMem(VNBuffer);
end;
result:=result+DriveLetter+'|';
end;
FreeMem(buffer);
end;