//drony@mynet.com
//icq:266148308
procedure TForm1.Button1Click(Sender: TObject);
var
ld : DWORD;
i : integer;
begin
memo1.clear;
ld := GetLogicalDrives;
for i := 0 to 25 do begin
if (ld and (1 shl i)) <> 0 then Memo1.Lines.Add(Char(Ord('A') + i) + ':\');
end;
end;