Share zu Laufwerksbuchstabe finden?

[Bernhard Geyer]

Mit welcher API-Funktion kann man das Share-Verzeichnis bekommen das verwendet wurde um einen Laufwerksbuchstaben zu verbinden?

Also für "X:" das Share "\\ServerName\Share" bekommen.

[raiguen]

API-Funktion(en): WNetOpenEnum, WNetEnumResource, WNEtCloseEnum... sh auch Win32 Developers Refernez für weitere Information(en).
Beispiel für die Verwendung findest Du hier

[gammatester]

Reicht nicht ein einfaches

ExpandUNCFileName('X:\')

[raiguen]

@gammatester: hm, im Prinzip ja...wenn ich denn weiss, wie der Laufwerkbuchstabe heisst...
Die WNet-API-Funktionen zeigen (je nach Parameter) die verwendeten(=aktiven) Netzverbindungen oder die 'gemerkten' und, und...

[Bernhard Geyer]

Zitat von raiguen:

API-Funktion(en): WNetOpenEnum, WNetEnumResource, WNEtCloseEnum... sh auch Win32 Developers Refernez für weitere Information(en).

Danke für die API-Namen

Zitat von raiguen:

Beispiel für die Verwendung findest Du hier

Irgendwie kracht es ab dem 2ten Mal das die Liste geholt wird. Die Variable cEntries ist beim zweiten durchlauf 0 und die for-schleife "verrennt" sich damit.
Aber wieso die Variable cEntries 0 ist, ist mir nicht klar.

Zitat von gammatester:

Reicht nicht ein einfaches

ExpandUNCFileName('X:\')

Danke, für meine zwecke reicht es, auch wenn es schön wäre den Fehler bei den Schweizern zu kennen (um eigene Helper-Methode für andere Zwecke zu schreiben).

[oki]

Zitat von raiguen:

API-Funktion(en): WNetOpenEnum, WNetEnumResource, WNEtCloseEnum... sh auch Win32 Developers Refernez für weitere Information(en).
Beispiel für die Verwendung findest Du hier

Hallo Leute,

das Code-Beispiel aus dem Swissdelphicenter auf das hier verwiesen wird hat einen Bug. Er führt zu einem Specherleck. Der Fehler steckt hier:

Delphi-Quellcode:

  repeat
    lpnrDrv  := PNETRESOURCE(GlobalAlloc(GPTR, cbBuffer));
    dwResult := WNetEnumResource(hEnum, cEntries, lpnrDrv, cbBuffer);
    if (dwResult = NO_ERROR) then 
    begin
      s := 'Network drives:'#13#10;
      for i := 0 to cEntries - 1 do 
      begin
        if lpnrDrv^.lpLocalName <> nil then
          s := s + lpnrDrv^.lpLocalName + #9 + lpnrDrv^.lpRemoteName;
        Inc(lpnrDrv);                                                  // hier wird die Adresse Incrementiert
      end;
    end
    else if dwResult <> ERROR_NO_MORE_ITEMS then 
    begin
      s := s + 'Cannot complete network drive enumeration';
      GlobalFree(HGLOBAL(lpnrDrv));
      break;
    end;
    GlobalFree(HGLOBAL(lpnrDrv));                                     // hier wird nicht die allociierte Speicheradresse sondern die incrementierte Adresse angegeben  
  until (dwResult = ERROR_NO_MORE_ITEMS);

Entweder man merkt sich die Startadresse für lpnrDrv oder man decrementiert die Adresse um genau die Anzahl, um die sie incrementiert wurde.

So führt das zu bösen Speicherlecks.

Gruß Oki

[paritycheck]

Hi,

habe vor kurzem hier ne Funktion dazu gepostet.

Gruß
Michael

[oki]

Hallo PartyCheck,

ja, das hier listet aber erst mal nur alle eingetragenen Netzwerkverbindungen auf, unabhängig davon, ob eine Verbindung etabliert ist oder nicht. Mein Kommentar bezog sich darauf, das die gepostete Funktion ein Speicherleck verursacht.

Gruß oki

[paritycheck]

Zitat von oki:

ja, das hier listet aber erst mal nur alle eingetragenen Netzwerkverbindungen auf, unabhängig davon, ob eine Verbindung etabliert ist oder nicht. Mein Kommentar bezog sich darauf, das die gepostete Funktion ein Speicherleck verursacht.

Ok hatte den Thread nur schnell überflogen Das hätte ich jetzt mit GetLogicalDrives und GetDriveType gelöst aber die Lösung der Schweizer zusammen mit deinem Fix ist wohl eleganter.

[oki]

Hi, nicht unbedingt eleganter, aber dieser Code listet auch alle Laufwerksbuchstaben auf die für Netzwerkverbindungen reserviert aber nicht aktiv sind. GetLogicalDrives tut dies nicht.

Gruß