|
|
|
Seznam logických jednotek
|
04.12.2009
|
Úvod
Funkce vypíše použitá písmena jednotek jako jsou pevné disky, optické mechaniky, flashky, síťové disky apod.
Prvky
Button1
ListBox1
Kód
procedure TForm1.Button1Click(Sender: TObject);
var Drives: set of 0..25;
D: Char;
begin
DWord(Drives):=GetLogicalDrives;
for D:='A' to 'Z' do
if (Ord(D) - Ord('A')) in Drives then
ListBox1.Items.Add(D);
end;
|
|
|
