Entwickler-Ecke :: Thema anzeigen

DeltaEx - Fr 06.12.02 15:03
Titel: Ordner Freigeben

Wie kann ich den ausgewählten ordner Freigeben für Netzwerk in Delphi??

DeltaEx - Fr 06.12.02 21:41

weiss es keiner oder ist es nicht möglich?

Delete - Fr 06.12.02 21:53

Doch, ... lass einen doch erst mal suchen. :)
Man hat doch nicht alles im Kopf.

Also, such mal im MSDN [http://msdn.microsoft.com] nach NetShareAdd und Co. Das müsste es IMO sein.

Ghost - Mo 16.12.02 15:44

Verbinden per Dialog:

Quelltext

1:	WNetConnectionDialog(handle, RESOURCETYPE_DISK);

Trennen per Dialog:

Quelltext

1:	WNetDisconnectDialog(handle, RESOURCETYPE_DISK);

Ohne Dialog Verbinden:

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

function NetzlaufwerkVerbinden( Laufwerk: string; 
  Pfad: string; Username: string; Password: string;
  RestoreAtLogon: boolean ): DWORD;
var
  NetResource: TNetResource;
  dwFlags:     DWORD;
begin
  with NetResource do begin
    dwType := RESOURCETYPE_DISK;
    lpLocalName := PChar(Laufwerk);
    lpRemoteName := PChar(Pfad);
    lpProvider := nil;
  end;

  if (RestoreAtLogon) then
    dwFlags := CONNECT_UPDATE_PROFILE
  else
    dwFlags := 0;

  Result := WNetAddConnection2(NetResource,PChar(Password),
    PChar(Username),dwFlags);
end;

Aufrufen:

Quelltext

1:
2:
3:
4:
5:

NetzlaufwerkVerbinden('X:',
                            '\\SERVER\SHARED',
                            'Testfreigabe',
                            '',
                            false)=0

Nützt dir das was?

Delete - Mo 16.12.02 20:24
Titel: Re: Ordner Freigeben

Hallo Ghost. Wie heißt es so schön: Vor der Ernte kommt die Saat. DeltaEx ist sicher daran interessiert, sich mit einem freigegebenen Ordner zu verbinden ... aber erst will er ihn freigeben!

Klappt das mit deiner Funktion?

Al Borland hat folgendes geschrieben:

Das glaube ich nicht, Tim!

:mrgreen:

Delete - Mo 16.12.02 20:41

Mit mehr Power geht es eventuell. "Hurhurhur"