dank GetVolumeInformation \\server\test anzeigen

[battlemonster]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
  Dummy2          : DWORD;
  Dummy3         : DWORD;
  FileSystem     : array[0..MAX_PATH] of char;
  VolumeName     : array[0..MAX_PATH] of char;
begin
  listbox1.Items.Clear;
  for I := 0 to 25 do
  begin
   if DriveExists(i, DRIVE_REMOTE) then
   begin
     GetVolumeInformation(PChar(Chr(i + 65) + ':\'), VolumeName, SizeOf(VolumeName), nil, Dummy2, Dummy3, FileSystem, SizeOf(FileSystem));
     ListBox1.Items.Add(Chr(i + 65) + ':\' + VolumeName);
   end;
  end;
end;

ich möchte in ner listbox nur netzwerklaufwerke angezeigt bekommen, mit [vieleicht auch laufwererksbuchstabe z:\] \\server\test