Project1.pl - Jak uzyskać listę zmapowanych napędów w systemie?

Jak uzyskać listę zmapowanych napędów w systemie?

Napisał: Berl

czwartek, 30 marzec 2006

Możemy się posłużyć funkcją WNetGetConnection, przyjmującą za argumenty wskaźniki do lokalnej nazwy napędu ( czyli np A: ), sieciowej nazwy napędu ( czyli np. \\192.168.1.1\PLIKI ), oraz rozmiaru bufora, zawierającego nazwę sieciową. Na podstawie tej funkcji możemy napisać własną procedurę, wyszukującą napędy zmapowane :

 
procedure ZnajdzNapedyZmapowane(Lista : TStrings);
var
    a : Char;
    Sciezka : String;
    MaxDlugosc : DWord;
begin
    Lista.Clear;
    MaxDlugosc := MAX_PATH;
    SetLength(Sciezka, MAX_PATH);
    for a := 'A' to 'Z' do begin
        if WNetGetConnection(PChar(''+a+':'),PChar(Sciezka),MaxDlugosc) = NO_ERROR then begin
            Lista.Add(a+' : '+Sciezka);
        end;
    end;
end;

Użycie jest badzo łatwe. Na formę dodajemy ListBoxa ora Buttona. W zdarzeniu OnClick Buttona wpinamy procedurę :

Komentarze

Aby dodać komentarz zaloguj się. Jeśli nie masz konta, załóż je sobie.
Tylko zarejestrowani użytkownicy mogą pisać komentarze.

WRÓĆ