Einzelnen Beitrag anzeigen

n0b0dy

Registriert seit: 12. Sep 2005
Ort: Hessen
268 Beiträge
 
#4

Re: Alle Ordner und Dateien aus Freigabe auflisten

  Alt 3. Okt 2006, 11:11
hi,

ja Rechte habe ich. Also das Programm läuft schon unter dem AdminAccount.

aber zum Authentifizieren habe ich auch schon diese FUnktion von Luckie genommen. Damit greift man auf eine Freigabe zu mit Admin User und passwd und "erklär" dem, dass man die nötigen Rechte hat

Delphi-Quellcode:
function ConnectToNetworkDrive(LocalName: string; RemoteName: string; Username: string; Password: string;
  RestoreAtLogon: boolean): DWORD;
var
  NetResource : TNetResource;
  dwFlags : DWORD;
begin
  dwFlags := 0;
  ZeroMemory(@NetResource, sizeof(TNetResource));
  with NetResource do begin
    dwType := RESOURCETYPE_ANY;
    lpLocalName := PChar(LocalName);
    lpRemoteName := PChar(RemoteName);
    lpProvider := nil;
  end;

  if (RestoreAtLogon) then
    dwFlags := dwFlags or CONNECT_UPDATE_PROFILE;

  Result := WNetAddConnection2(NetResource, PChar(Password), PChar(Username), dwFlags);
end;
Ich weiß halt nicht wie ich nach dem Connecten weiter machen soll und die Dateien und Ordner auflisten kann. Ich möchte KEIN Netzlaufwerk auf meinem PC erstellen, sondern nur auf eine Netzwerkfreigabe (halt auch Standardfreigabe) zugreifen (Ordner, Dateien auflisten und ggf. Dateien kopieren)


Gruß
  Mit Zitat antworten Zitat