Verbindung mit Samba Share mit Benutzername und Passwort

[oakley]

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