Script als Dienst / Fehler 1053

gmmg

schon die sc.exe probiert?
http://support.microsoft.com/kb/251192/de

zum prüfen hättest auch ein autoit script schreiben können und das dann einfach per task ausführen

[autoit]

If ProcessExists("test.exe") Then

Else
Run("C:\test.exe")
EndIf

[/autoit]

gruß gmmg

rose0805

Moin.
Ja, sc create und diverse Scripts hab ich auch schon durch.
Registry Einträge werden erstellt und der Dienst ist auch da.
Die Fehlermeldung bleibt aber, und das macht mich wuschich. Schnauze voll

An autoit hab ich jetzt nicht mehr gedacht :):):) höhö.
Aber da siehste mal, wenn was nicht funktioniert gehen die Augenklappen runter.

Danke

rose0805

PS: Einen Haken hat mein Projekt, bzw. mein Script...

Wenn der Anwender die PDF Datei aus dem Acrobat Reader in dem Zielordner speichern, und die Datei nicht geschlossen wird... na was passiert?
Die Datei kann nicht gelöscht werden, weil ist ja gesperrt/geöffnet .
Und das heißt, na? Die Datei wird alle x Sekunden gedruckt.
Dumm wenn der Drucker am anderen Ende des Flurs steht und die PDF 50 Seiten hat

Egal was man macht, DIE schaffen es immer wieder Ideen auszuhebeln.

Eigentlich müsste ich mir jetzt eine Protokolldatei erstellen, die den gleichen Namen hat, und wenn die da ist darf die Datei.pdf nicht mehr gedruckt werden. Und wenn die Originaldatei nicht mehr gesperrt ist, müssen beide gelöscht werden.

Jetzt wirds mir zu kompliziert.

**AspirinJunkie**

Zitat von rose0805

Eigentlich müsste ich mir jetzt eine Protokolldatei erstellen, die den gleichen Namen hat, und wenn die da ist darf die Datei.pdf nicht mehr gedruckt werden. Und wenn die Originaldatei nicht mehr gesperrt ist, müssen beide gelöscht werden.

Jetzt wirds mir zu kompliziert.

Deswegen mein Vorschlag statt mit einer Permanent-Schleife mit FileSystem-Events zu arbeiten.
Dann wird, wenn man SHCNE_CREATE registriert, das Event nämlich nur ein einziges mal beim Erstellen der Datei ausgeführt.

rose0805

OK.
Ich habs umgestrickt. Läuft gut.
Wie und wann werd ich die Datei setzt los, wenn sie geöffnet ist?
Gibbet da auch eine bessere Lösung?
Wenn Sie zu ist kann ich sie ja löschen, aber wenn sie offen ist, hab ich zwar nicht das Problem das sie noch einmal druckt, aber die bleibt dann da auch stehen bis zum geht nicht mehr.
Und wenn ich eine Schleife über die Verzeichnisse laufen lasse (wobei mir das jetzt nichts elegantes einfällt), löscht er mir im ungünstigsten Fall noch nicht gedruckte Dateien,oder?

C

#RequireAdmin
#include <APIShellExConstants.au3>
#include <GUIConstantsEx.au3>
#include <WinAPI.au3>
#include <WinAPIShellEx.au3>


HotKeySet("q", raus) ; mit "q" Programm beenden


;$program = "C:\Programme\SumatraPDF"
$program = "c:\Program Files (x86)\SumatraPDF"


$P1 = "P040_lokal"
$P2 = "P006"


;$status = DriveStatus( "T:" )
;If $status = "INVALID" Then
;DriveMapAdd("T:", "\\xxx.xxx.xxx.xxx\daily", 0,"local\###loginname###","###passwort###")
;EndIf


; Pfad der auf neue Dateien überwacht werden soll (Freigabename)
; Recht muss vorhanden sein
;$source = "T:\_PDF_Druck\"
$source = "c:\Temp\PDF\Druck\"


$sP1 = $source & $P1
$sP2 = $source & $P2


DirCreate($source)
DirCreate($sP1)
DirCreate($sP2)


#Region ShellEvent registrieren
Global $h_GUI = GUICreate("")
Global $h_Msg = _WinAPI_RegisterWindowMessage('PDFDruck') ; Die Message "PDFDruck" wird an das Fenster $h_GUI gesendet wenn ein Event auftritt
GUIRegisterMsg($h_Msg, 'ReactOnEvents')


; Die verschiedenen Ordner zur Überwachung registrieren:
Global $h_ShellNotify1 = _WinAPI_ShellChangeNotifyRegister($h_GUI, $h_Msg, $SHCNE_CREATE, 0x3, FileGetLongName($sP1))
Global $h_ShellNotify2 = _WinAPI_ShellChangeNotifyRegister($h_GUI, $h_Msg, $SHCNE_CREATE, 0x3, FileGetLongName($sP2))
#EndRegion ShellEvent registrieren


; Endlosschleife
Do
    Sleep(100)
Until 0


; Funktion die aufgerufen wird wenn ein Event auftritt:
Func ReactOnEvents(Const $hWndGUI, Const $MsgID, Const $wParam, Const $lParam)
    ; vollständigen Pfad der erstellten Datei auslesen:
    Local $s_FullPath = DllCall("Shell32.dll", "BOOLEAN", "SHGetPathFromIDListW", "ptr", DllStructCreate("PTR A; PTR", $wParam).A, "wstr", "")[2]
    Local $s_Path = StringLeft($s_FullPath, StringInStr($s_FullPath, "\", 1, -1) - 1)
    Local $s_Filename = StringTrimLeft($s_FullPath, StringInStr($s_FullPath, "\", 1, -1))
    Local $s_FileExtension = StringTrimLeft($s_Filename, StringInStr($s_Filename, ".", 1, -1))


    If $s_FileExtension = "pdf" Then ; nur bei pdf-Dateien reagieren
        ; Abhängig vom Pfad anders reagieren:
        Switch $s_Path
            Case $sP1
                  RunWait('"' & $program & '\SumatraPDF.exe" -print-to '& $P1 &' -silent -exit-when-done "' & $sP1 & '\' & $s_Filename & '"')
                  FileDelete($sP1 & '\' & $s_Filename)
            Case $sP2
                ;MsgBox(0, "", 'Datei in "T:\_PDF_Druck\P006" erstellt: ' & $s_Filename)
                MsgBox(0, "", 'Datei in' & $sP2 & 'erstellt: ' & $s_Filename)
        EndSwitch
    EndIf
EndFunc   ;==>ReactOnEvents


Func raus()
    _WinAPI_ShellChangeNotifyDeregister($h_ShellNotify1)
    _WinAPI_ShellChangeNotifyDeregister($h_ShellNotify2)
    Exit
EndFunc   ;==>raus

Alles anzeigen

rose0805

Hallo, und Frohes Neues Jahr.

Ich möchte das Thema noch einmal aufwärmen.

Im obigen Script wird eine, in ein Verzeichnis kopierte/gespeicherte Datei gedruckt und gelöscht.

Wie muss der Code aussehen (ich kenne mich damit nicht aus), dass wenn die Datei noch geöffnet ist (dann wird die Datei nur gedruckt und kann nicht gelöscht werden), NACH DEM SCHLIESSEN gelöscht wird.

Wenn es ein CREATE gibt muss es doch auch ein CLOSE und dann den FileDelete geben, oder?

Wenn so ein doofi das Verzeihnis zwischenzeitlich löscht, muss das auch wiederhergestellt werden.
Geht das auch?

Ansonsten wäre es nett, wenn mir jemand den Weg zeigen könnte mein Originalscript mit dem letzten Script sinnvoll zu vereinen... da hört es bei mir leider auf

Vielen Dank.