Mega Code Archive

 

Categories / Delphi / Hardware

 

Sürücü listesi [kısa kod]

//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;