[Delphi]Partycje

[chudy1993]

Jak wyszukać wszystkie partycje w komputerze(np. C, D, E itd.)

 

[T$cr!pt3r]

Kiedyś też tego potrzebowałem i szukałem nie znalazłem gotowca, procedury/funkcji.
Zdenerwowałem się nieco i napisałem własną działającą funkcję.

function SzukajDyski:String;

const

 ALF = 'cdefghijklmnoprstuwyz';

var

 I:Integer;

begin

 Result:='';

 for I:=1 to Length(ALF) do

  begin

   if DirectoryExists(ALF[i]+':') then Result:=Result+ALF[i];

  end;

end;

 

[h4x]

http://msdn2.microsoft.com/en-us/library/aa364972.aspx
http://msdn2.microsoft.com/en-us/library/a...975(VS.85).aspx
http://msdn.microsoft.com/library/default....t_functions.asp

 

[0wn3r]

http://msdn2.microsoft.co...y/aa364972.aspx
http://msdn2.microsoft.co...975(VS.85).aspx
http://msdn.microsoft.com...t_functions.asp[/b]

Nie ma to jak msdn