Hallo zusammen,
ich habe eine kleine Applikation geschrieben, die Bilder auf eine Samba Share kopieren soll.
Im Moment mache ich es so, dass ich mich manuell mit Benutzername und Passwort auf der Samba Share anmelde und dann die Applikatin starte.
Das Kopieren der Bilder funktioniert dann einwandfrei.
Gibt es eine Möglichkeit, dass die Anmeldung automatisch aus dem Programm gemacht wird?
Ich habe das hier gefunden aber da wird ein Netzlaufwerk verbunden und das möchte ich nicht.
Code:
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;
Viele Grüße
Mirko