Netzwerkverbindung XP

[AppleFan]

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.

[Jens Schumann]

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

[alcaeus]

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

[Luckie]

Zitat von AppleFan:

Klappt aber nicht auf meiner XP-Kiste.

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

[AppleFan]

So hatte ich es mir gedacht:

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]

[Luckie]

Zitat von AppleFan:

So hatte ich es mir gedacht:

Und?

[AppleFan]

Was ist denn nun falsch ?

[alcaeus]

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

[AppleFan]

Hat sich erledigt ! Fehler gefunden !

[alcaeus]

Zitat von AppleFan:

Hat sich erledigt ! Fehler gefunden !

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

Greetz
alcaeus