Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: arcon am 29.01.04 - 11:57:02

Titel: Close Notes
Beitrag von: arcon am 29.01.04 - 11:57:02

Hallo, gibt es eine möglichkeit von Script heraus den Notesclient zu schliessen ?

THX, Arcon

Titel: Re:Close Notes
Beitrag von: koehlerbv am 29.01.04 - 12:08:24

Declarations:
Public Const WM_CLOSE = &H10
Declare Function GetActiveWindow Lib "user32" Alias "GetActiveWindow"  ( ) As Long
Declare Function PostMessage Lib "user32" Alias "PostMessageA" (Byval hwnd As Long, Byval wMsg As Long, Byval wParam As Long, lParam As Any) As Long

Code:
Messagebox "Sie sind es nicht wert, mit Notes zu arbeiten !"
wh = GetActiveWindow()
Call PostMessage(wh, WM_CLOSE, 0&, 0&)


HTH,
Bernhard

Titel: Re:Close Notes
Beitrag von: arcon am 29.01.04 - 12:17:01

Jo, das wahrs !

Geht super THX

Titel: Re:Close Notes
Beitrag von: koehlerbv am 29.01.04 - 12:17:58

 ;)