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 Aus einem Dienst einen Ordner anlegen (https://www.delphipraxis.net/77055-aus-einem-dienst-einen-ordner-anlegen.html)

Baeuerle 14. Sep 2006 08:14


Aus einem Dienst einen Ordner anlegen
 
Hallo zusammen,

ist es möglich aus einem Dienst einen Ordner auf einem fremden Rechner anzulegen? Wenn ja wie?

Lokal funktioniert das ganze nur auf einem externen Rechner gehts nicht.

Bsp:

Delphi-Quellcode:
// Lokales Verzeichnis funktioniert
Forcedirectories('c:\test\');
// Externes gemapptes Laufwerk "y:\" funktioniert nicht
Forcedirectories('y:\test\');
Danke Baeuerle

Daniel B 14. Sep 2006 08:15

Re: Aus einem Dienst einen Ordner anlegen
 
Auch nicht mit CreateDir?
Hast du auch die Rechte auf dem anderen Rechner?

Baeuerle 14. Sep 2006 08:18

Re: Aus einem Dienst einen Ordner anlegen
 
ForceDirectories ist eine Kapselung von CreateDir !!! D.h. es wird bereits CreateDir aufgerufen. Rechte sind da, der Dienst läuft als Admin.

Luckie 14. Sep 2006 08:20

Re: Aus einem Dienst einen Ordner anlegen
 
Dienste haben nur begrenze Berechtigungen im Netzwerk. Funktioniert es denn lokal?

Daniel B 14. Sep 2006 08:21

Re: Aus einem Dienst einen Ordner anlegen
 
Zitat:

Zitat von Luckie
Dienste haben nur begrenze Berechtigungen im Netzwerk. Funktioniert es denn lokal?

Ja, siehe zweiter Satz im ersten Beitrag.

Luckie 14. Sep 2006 08:27

Re: Aus einem Dienst einen Ordner anlegen
 
Oh, dann haben wir es doch. Dem Dienst fehlen einfach die Berechtigungen.

Baeuerle 14. Sep 2006 08:46

Re: Aus einem Dienst einen Ordner anlegen
 
Ich habe den Dienst als lokalen Administrator angemeldet. Der Admin hat aber rechte um auf dem externen zu schreiben. und nu?

Luckie 14. Sep 2006 08:55

Re: Aus einem Dienst einen Ordner anlegen
 
Zitat:

Zitat von Baeuerle
und nu?

Wäre es sehr hilfreich, wenn du uns mal irgendwelche fehlermeldungen mitteilen würdest.

Baeuerle 14. Sep 2006 09:01

Re: Aus einem Dienst einen Ordner anlegen
 
Delphi-Quellcode:
if not CreateDirectory(PChar('j:\test4\'),nil) then
 raise Exception.Create(SysErrorMessage(GetLastError));
Liefert "Zugriff verweigert".

Liegt wohl am NIL für LPSECURITY_ATTRIBUTES doch wie kann ich die LPSECURITY_ATTRIBUTES ermitteln?

dp_bertel 21. Sep 2006 22:31

Re: Aus einem Dienst einen Ordner anlegen
 
Es ist nur eine Vermutung, aber ich denke, es liegt daran, dass Du ein Netzlaufwerk angibst. Der Dienst meldet sich ja nicht interaktiv am Rechner an und kann somit auch keine Netzlaufwerke mappen. Versuch mal, über den UNC-Pfad (\\Server\Freigabe\...) zuzugreifen.


Alle Zeitangaben in WEZ +1. Es ist jetzt 20:26 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