Schließen einer "ge - run() - ten" Anwendung deaktivieren

AutoItler

Hallo liebe Gemeinde,
ich möchte gerne ein pdf - Dokument mit mehreren Reitern auf meinem Bildschrim so präsentieren, dass der AcroReader nicht durch Klick aufs "Kreuzchen" geschlossen werden kann.
Das Schließen soll später nur über einen von mir gewählten Tastendruck erfolgen.
Dazu hier folgende Gdanken

Spoiler anzeigen

AutoIt

#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\..\..\Icons\diab00.ico
#AutoIt3Wrapper_AU3Check_Stop_OnWarning=y
#AutoIt3Wrapper_Run_Tidy=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <File.au3>
#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt('WinTitleMatchMode', 2)
Opt('WinWaitDelay', 500)


Local $_oFileToLoad = "" ; nimmt später die zu startende pdf-Docs auf
Local $_titelMsg = 'Öffnungszeiten & Kontaktinformationen'
Local $_path = 'C:\x_Alter_PC\Eigene Dateien\Winword\Privat\Med\Öffnungszeiten' ; pfad zu den zu startenden pdf-Docs
Local $_acroPath = RegRead('HKLM\Software\Classes\Software\Adobe\Acrobat\exe', '') & ' ' ; Pfad zum installierten AcroReader


;prüfen, ob AcroReader installiert ist
If $_acroPath = '' Then
    MsgBox(64, $_titelMsg, 'Das benötigte Programm' & @LF & _
            '"' & 'Adobe Acrobat Reader' & '"' & @LF & _
            'ist offenbar nicht installiert' & @LF & _
            'Das Programm wird beendet.')
    Exit
EndIf


; alle anzuzeigenden pdf-Doc's in ein Array und eventuelle Fehlerbehandlung
Dim $_fArray = _FileListToArray($_path, '*.pdf', 1)
Local $_err = @error
If $_err > 0 Then
    Select
        Case $_err = 1
            MsgBox(64, $_titelMsg, 'Der Ordner' & @LF & '"' & $_path & '"' & @LF & _
                    'existiert nicht.' & @LF & _
                    'Das Programm wird beendet.')
            Exit
        Case $_err = 2
            MsgBox(64, $_titelMsg, 'Keine entsprechenden "PDF-Dateien" im' & @LF & _
                    'angegebenen Ordner vorhanden.' & @LF & _
                    'Das Programm wird beendet')
            Exit
        Case $_err = 4
            MsgBox(64, $_titelMsg, 'Im Ordner' & @LF & '"' & $_path & '"' & @LF & _
                    'sind keine entsprechenden Dateien enthalten.' & @LF & _
                    'Das Programm wird beendet.')
            Exit
        Case Else
            MsgBox(64, $_titelMsg, 'Unbekannter interner Fehler.' & @LF & _
                    'Das Programm wird beendet.')
            Exit
    EndSelect
    Exit
EndIf


; Array sortieren und Erstellung des Parameterstrings für den Start mit AcroReader weiter unten
If _ArraySort($_fArray, 0, 1) Then
    For $i = 1 To $_fArray[0]
        Select
            Case $i < $_fArray[0]
                $_oFileToLoad &= '"' & $_fArray[$i] & '"' & ' '
            Case $i = $_fArray[0]
                $_oFileToLoad &= '"' & $_fArray[$i] & '"'
        EndSelect
    Next
; Start AcroReader & Parameterstring und Fehlerbehandlung
    Local $_run = Run($_acroPath & $_oFileToLoad, $_path)
    If $_run = 0 Then
        MsgBox(64, $_titelMsg, 'Bei der Ausführung ist ein unbekannter Fehler aufgetreten!' & @LF & _
                'Das Programm wird beendet.')
        Exit
    Else
        Local $_wWait = WinWait('[CLASS:AcrobatSDIWindow]')
        WinSetState($_wWait, '', @SW_SHOWDEFAULT)
        Send('!n1') ; Erster Reiter im AcroReader wird aktiviert
        ; kleine GUI mit "Schließen"-Button, soll später durch "_ispressed" ersetzt werden
        Local $_hGUI = GUICreate($_titelMsg, 100, 50, 0, 0, BitOR($WS_SIZEBOX, $WS_THICKFRAME, $WS_SYSMENU, $WS_POPUP), -1, $_wWait)
        Local $_Button = GUICtrlCreateButton('Schließen', 10, 10, 80, 30)
        GUISetState(@SW_SHOW)
        While 1
            Local $_msg = GUIGetMsg($_hGUI)
            If $_msg = $_Button Then ExitLoop
        WEnd
        ProcessClose($_run)
        GUIDelete($_hGUI)
    EndIf
Else
    MsgBox(64, $_titelMsg, 'Bei der Ausführung ist ein unbekannter Fehler aufgetreten!' & @LF & _
            'Das Programm wird beendet.')
    Exit
EndIf
Exit

Alles anzeigen

Nun suche ich einen Weg, beim gestarteten AcroReader das Schließen-"X" und wenn möglich auch "ALT+F4" / "Strg+F4" zu deaktivieren.
Leider kann ich die entsprechenden pdf-Docs nicht mitliefern. Ist aber, glaube ich, für meine Anfrage auch gar nicht nötig.
Vielleicht kann mir jemand helfen.

"In guter Hoffnung" und bis neulich ..
AutoItler

Ps.: Bin auch dankbar für jede Verbesserung am gesamten Code.

Floops

AutoIt

#include <GuiMenu.au3>


HotKeySet("!{F4}", "_alt_f4")
HotKeySet("{ESC}", "_exit")


Run("Notepad")
WinWait("Unbenannt - Editor")


$handle = WinGetHandle("Unbenannt - Editor")


DisableButton($handle, $SC_CLOSE)




While 1
	Sleep(50)
WEnd


Func DisableButton($hWnd, $iButton)
	$hSysMenu = _GUICtrlMenu_GetSystemMenu($hWnd, 0)
	_GUICtrlMenu_RemoveMenu($hSysMenu, $iButton, False)
	_GUICtrlMenu_DrawMenuBar($hWnd)


EndFunc


Func EnableButton($hWnd, $iButton)
	$hSysMenu = _GUICtrlMenu_GetSystemMenu($hWnd, 1)
	_GUICtrlMenu_RemoveMenu($hSysMenu, $iButton, False)
	_GUICtrlMenu_DrawMenuBar($hWnd)
EndFunc


Func _alt_f4()
	; blockiert
EndFunc


Func _exit()
	WinClose("Unbenannt - Editor")
	Exit
EndFunc

Alles anzeigen

Probier mal aus ob das mit Acrobat geht, mit Notepad klappt es bei mir.

Quelle

AutoItler

Hallo Floops,
vielen Dank für Deine umfassenden Anregungen.
bis auf die Deaktivierung von "ALT+F4" beim AcroReader hat alles nach entsprechender Modifikation funktioniert.
"X" - deaktiviert
"Strg+F4" - deaktiviert (Schließen einzelner Tabs im AcroReader)
nur

AutoIt

HotKeySet("!{F4}", "_alt_f4")
;
;
;
Func _alt_f4()
; nichts (ich hab Return genommen ...)
EndFunc

funktioniert nicht. Irgendeinen genialen Einfall?

**BugFix**

Wenn HotKey nicht hilft, musst du in der Messageverarbeitung systemnah ansetzen und <Alt+F4> nicht an das System durchreichen. Das macht man mit einem Hook.
Wichtig ist, die Hookfunktion zu verlassen, wenn das gewünschte Fenster nicht aktiv ist. Auch die Systembereinigung beim Beenden ist ein absolutes Muss!

AutoIt

#include <WinAPI.au3>
#include <WindowsConstants.au3>
#include <StructureConstants.au3>


Opt("GUIOnEventMode", 1)
OnAutoItExitRegister('OnAutoItExit')


Global $hStub_KeyProc = DllCallbackRegister("_KeyProc", "long", "int;wparam;lparam")
Global $hmod = _WinAPI_GetModuleHandle(0)
Global $hHook = _WinAPI_SetWindowsHookEx($WH_KEYBOARD_LL, DllCallbackGetPtr($hStub_KeyProc), $hmod)


Global $hWin   ; = Handle des AcrobatReader
Global $fActive = False  ; <== to allow hook only on this gui
;~ Global $isAlt = False   -- besser als Static in der Callbackfunktion


;==== DEMO
$hWin = GUICreate('None <Alt>+<F4>')
GUISetOnEvent(-3, '_end')


$dummy = GUICtrlCreateDummy()
GUICtrlSetOnEvent(-1, '_dummy')


GUISetState()




Global $a[1][2] = [['{F4}',$dummy]]
GUISetAccelerators($a)




While 1 ; bei dir sinnvoll: While ProcessExists($PID_AcrobatReader)
	_checkWinState()
	Sleep(100)
WEnd


Func _checkWinState() ; Hook wird somit auf das gewählte Fenster begrenzt
	If Not $fActive And BitAND(WinGetState($hWin), 8) Then
		$fActive = True
	ElseIf $fActive And Not BitAND(WinGetState($hWin), 8) Then
		$fActive = False
	EndIf
EndFunc


Func _dummy()
	ConsoleWrite('F4 clicked!' & @CRLF)
EndFunc

Alles anzeigen

EDIT:

Ich habe den Code nochmal abgeändert. In der ersten Version wäre <F4> immer "verschluckt" worden.
Sind auch noch ein paar Kommentare bei.

AutoItler

Hallo Bugfix,
danke für Deine Anregung. Die Lösung sieht für mich erst mal sehr kompliziert aus, obwohl den Ansatz schon verstehe.
Ich muss mir das alles in Ruhe "zur Brust nehmen". Ich will ja nicht nur einfach Code kopieren und einfügen, sondern auch verstehen, was ich da copy&paste.
Noch 'nen schönen Abend allen, die sich hier engagiert haben.
Ich melde mich auf jeden Fall, wenn's Prob gelöst ist....

MfG., AutoItler

**BugFix**

@AutoItler Ich habe das Bsp. nochmal etwas abgeändert und kommentiert.

AutoItler

Hallo BugFix,
das bedeutet, dass ich folgenden Teil Deines Scripts:

Code

OnAutoItExitRegister('OnAutoItExit')
Global $hStub_KeyProc = DllCallbackRegister("_KeyProc", "long", "int;wparam;lparam")
Global $hmod = _WinAPI_GetModuleHandle(0)
Global $hHook = _WinAPI_SetWindowsHookEx($WH_KEYBOARD_LL, DllCallbackGetPtr($hStub_KeyProc), $hmod)
Global $hWin   ; = Handle des AcrobatReader
Global $fActive = False  ; <== to allow hook only on this gui
;~ Global $isAlt = False   -- besser als Static in der Callbackfunktion

gar nicht brauche. Der Rest - Umleitung v. ALT+F4 auf einen Dommy - ist auch für mich als Anfänger verständlich ....
Ich bedanke mich bei Dir. Wieder was gelernt.
MfG., AutoItler

**BugFix**

Zitat von AutoItler

gar nicht brauche.

Das siehst du falsch.
Der Dummy diente nur zur Verdeutlichung. dass <F4> normal funktioniert, <Alt+F4> aber ohne Wirkung ist. Und dazu ist der Hook zwingend notwendig.