Volumennamen eines Mapped Network Drives herausfinden

[timog]

Vielleicht so: Lauf alle gemappten Laufwerke mit WNetGetConnection durch, und schau, ob es einen oder mehrere Treffer gibt:

Delphi-Quellcode:

var
  LDrive: Char;
  LPathRemote: array[0..MAX_PATH] of Char;
  LPathLength: DWord;
begin
  LPathLength:=MAX_PATH;
  for LDrive:='A' to 'Z' do begin
    if WNetGetConnection(PChar(''+LDrive+':'), LPathRemote, LPathLength) = NO_ERROR then ShowMessage(LPathRemote);
  end;

Anstelle des ShowMessage dann die Überprüfung auf = NAS_Laufwerk einbauen.