Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Verbindung zu ... Dialog mit WNetAddConnection3 (https://www.delphipraxis.net/124508-verbindung-zu-dialog-mit-wnetaddconnection3.html)

fnhofm 20. Nov 2008 09:09


Verbindung zu ... Dialog mit WNetAddConnection3
 
Liste der Anhänge anzeigen (Anzahl: 2)
Hallo,

ich versuche mit der Funktion WNetAddConnection3 (aus der Unit Windows) den Dialog "Verbindung zu ..." anzuzeigen um mit dem benötigten Server zu verbinden.

Delphi-Quellcode:

  if not DirectoryExists(ExtractFileDir(Edit1.Text)) then
  begin

    with NetResource do
    begin
      dwType := RESOURCETYPE_DISK;
      lpLocalName := nil;
      lpRemoteName := '\\uxservsmb\homes';
      lpProvider := nil;
    end;

    Return := WNetAddConnection3(Form1.Handle, NetResource, nil, 'fnhofm',
      CONNECT_INTERACTIVE or CONNECT_PROMPT);
Das klappt soweit auch.

Nun mein Problem:
Dieser Code erzeugt den Dialog aus Anhang "Mit WNetConnection3.jpg".
Rot unterstrichen kann man sehen das der Dialog versucht mich "nur" zum Server zu verbinden.
Freigegeben ist für mich aber das Verzeichnis homes, d.h. ich muss als Benutzername homes\fnhofm eingeben damit die Verbindung funktioniert.

Im Anhang "Im Explorer.jpg" sieht man den Dialog den der Explorer anzeigt wenn ich auf das gemappte Laufwert für dieses Verzeichnis klicke.

Wie kann ich ebenfalls den Dialog anzeigen der versucht mich auf \\server\verzeichnis zu verbinden und nicht nur auf den server?

Vielen Dank im Voraus.

Gruß

fnhofm 25. Nov 2008 09:13

Re: Verbindung zu ... Dialog mit WNetAddConnection3
 
Hallo,

ich nochmal.

Gibt es denn eine Möglichkeit irgendwie herauszufinden wie genau der Api-Aufruf des Explorers aussieht?

Oder Messages abfangen und daraus Informationen ziehen?


Vielen Dank.


Alle Zeitangaben in WEZ +1. Es ist jetzt 09:16 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz