; German forum: http://robsite.de/php/pureboard/viewtopic.php?t=629&highlight= ; Author: Franco ; Date: 20. April 2003 ;Systemmenü-Einträge verändern #HOMEPAGE = 1 #INFO = 2 hWnd.l = OpenWindow(0, 100, 200, 250, 260, #PB_Window_SystemMenu , "Systemmenü-Modifikation") ;Handle zum Systemmenü abrufen hSysMenu.l = GetSystemMenu_(hWnd, #FALSE) ;Menüeintrag aus dem Systemmenü entfernen (Verschieben...) DeleteMenu_(hSysMenu, 1, #MF_BYPOSITION) ;neue Einträge hinzufügen AppendMenu_(hSysMenu, #MF_STRING, #HOMEPAGE, "www.&pure-board.de") AppendMenu_(hSysMenu, #MF_STRING, #INFO, "&Info...") Repeat EventID.l = WaitWindowEvent() If EventID = #PB_Event_CloseWindow Quit = 1 ElseIf EventID = #WM_SYSCOMMAND Select EventwParam() ;Homepage-Auswahl wurde getroffen Case #HOMEPAGE: ShellExecute_(hWnd, "Open", "http://www.pure-board.de", "", "", 1) ;Info-Auswahl wurde getroffen Case #INFO: MessageRequester("Info", "Das ist eine Info", 0) EndSelect EndIf Until Quit = 1 End ; ExecutableFormat=Windows ; FirstLine=1 ; EnableXP ; EOF