Virtuális meghajtók elérési útvonalai

A program helyes működésének érdekében a futtatás előtt hozzunk létre ily módon csatlakoztatott meghajtókat, különben nem lesz látható eredmény.

A megvalósításhoz egy ciklust futtatunk, mely végigmegy az összes lehetséges betűjelen és itt egyesével ellenőrizni fogjuk, hogy az a meghajtó aktuálisan hozzá van-e rendelve egy hálózati meghajtóhoz vagy sem.

Ezt az ellenőrzést a WNetGetConnection függvény végzi el. Itt első paraméterként az adott betűjelet adjuk meg, majd egy buffer területet és végül ennek méretét. Ha adott a meghajtó, akkor annak valós elérési útja ennek a buffernek a területére másolódik. Ebben az esetben a függvény a NO_ERROR konstans értékét adja vissza. Ha ettől eltér a visszatérési érték, akkor a meghajtó betűjeléhez nincs hozzárendelve hálózati erőforrás.

procedure TForm1.Button1Click(Sender: TObject);
begin
  for i:='A' to 'Z' do begin
    if WNetGetConnection(PChar(''+i+':'), path, d)=NO_ERROR then begin
      ListBox1.Items.Add(i+': '+path);
    end;
  end;
end;