- - - Menu - - -

 » Datum a Čas
 » Soubory a složky
 » Systém
 » Text
 » Grafika
 » Zvuk
 » Kontroly
 » Ochrany
 » Delphi

 » Odkazy



- - - Info - - -

GimiWeb
Top Wallpapers
Cars Wallpapers
Základy HTML
Delphi kódy
Gimi Fotogalerie
Gimi Software
Kozel zahradník
FotoSpace

Gimi © 2016


  

Zpět
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;