Registriert seit: 4. Jun 2003
Ort: Schleiz
65 Beiträge
Delphi 4 Client/Server
|
Re: Fehlende Dateirechte für Netzordner bei Programm als Ser
15. Dez 2003, 10:24
Hallo,
Befehle in der Art "net use ...." wirken sich nur auf den
momentan angemeldeten Benutzer aus, dein Dienst läuft in
einer anderen Nutzersession.
Benutze folgenden Code:
(Annahme der Server auf dem N: gemappt wird heisst Server_1
die Freigabe heisst Daten)
if FileExists('\\Server_1\Daten\POST.Msg') then {u.s.w.}
Um den genauen Dateiname herauszufinden rufe als Benutzer mit
gemapptem Laufwerk N: (nicht als Dienst) die Funktion:
showmessage(ExpandUNCFileName('N:\POST.Msg'));
auf.
Ciao Peter
Warum kann man Atommüll nicht auf dem Mars lagern?
Mars bringt verbrauchte Energie sofort zurück!
|