Hallo,
ich habe zwar schon das ganze Forum durchgeblättert finde aber keinen Hinweis für mein Problem !
Möchte ganz simpel vom Programm aus eine Netzwerkverbindung (ohne Dialog) herstellen.
So wie an anderer Stelle beschrieben mit dem Befehl WNetAddConnection.
Klappt aber nicht auf meiner XP-Kiste. Wenn ich die Verbindung manuell herstelle ist
das Netzlaufwerk da. Trennen von Delphi aus geht.

Hallo,
das Stichwort lautet WNetAddConnection
Entschuldigung, ich habe nur die ersten beiden Zeilen gelesen.

Zitat von AppleFan:

So wie an anderer Stelle beschrieben mit dem Befehl WNetAddConnection.
Klappt aber nicht auf meiner XP-Kiste.

Dreh deine Kiste auf den Kopf, dann gehts
Im Ernst, ein paar Infos mehr waeren nicht schlecht. Am Ende ruft Windows ja auch nur eine entsprechende API-Funktion auf, und ich bin mir ziemlich sicher, dass die Funktion eben WNetAddConnection ist.

Greetz
alcaeus

Zitat von AppleFan:

Klappt aber nicht auf meiner XP-Kiste.

Sorry, Glaskugel in Reparatur. Keine Hilfe möglich.

So hatte ich es mir gedacht:

zusammenfalten · markieren

Delphi-Quellcode:

procedure NetzlaufwerkVerbinden;
var
   NetResource: TNetResource;
   dwFlags: DWORD;
   Laufwerk, Pfad, Username, Password : String;
   Verbunden : Boolean;

begin
     NetResource.dwType := RESOURCETYPE_DISK;
     NetResource.lpLocalName := PChar(Laufwerk);
     NetResource.lpRemoteName := PChar(Pfad);
     NetResource.lpProvider := nil;
     dwFlags := 0;

     Laufwerk := 'x:';
     Pfad := '\\Rechnername\FreigabeOrdner;
Username := '';
Password := '';

Verbunden := WNetAddConnection2(NetResource, PChar(Password),
PChar(Username),dwFlags) = NO_ERROR;

end;

[edit=Luckie]Delphi-Tags ergänzt. Beim nächsten Mal bitte selber machen. Mfg, Luckie[/edit]

Zitat von AppleFan:

So hatte ich es mir gedacht:

Und?

Was ist denn nun falsch ?

Zitat von AppleFan:

Was ist denn nun falsch ?

Vielleicht solltest du uns mal sagen, was denn passiert (AV, Fehlermeldung, Exception, der Baum im Garten fällt um, ...). Einfach drauflos raten wird wohl keiner

Greetz
alcaeus

Hat sich erledigt ! Fehler gefunden !

Zitat von AppleFan:

Hat sich erledigt ! Fehler gefunden !

Dann sag uns bitte noch was das Problem war? (Programmierfehler, Fehler in XP, ...)

Greetz
alcaeus