最好用的全屏脚本【 - Project1

#COMPILER PBWIN 9
#COMPILE DLL
%USEMACROS = 1
#INCLUDE "Win32API.inc"
GLOBAL ghInstance AS DWORD
'-------------------------------------------------------------------------------
' Main DLL entry point called by Windows...
'
FUNCTION LIBMAIN (BYVAL hInstance AS LONG, _
BYVAL fwdReason AS LONG, _
BYVAL lpvReserved AS LONG) AS LONG
'maxwindow=0 '0 no 1 yes
SELECT CASE fwdReason
CASE %DLL_PROCESS_ATTACH
'Indicates that the DLL is being loaded by another process (a DLL
'or EXE is loading the DLL). DLLs can use this opportunity to
'initialize any instance or global data, such as arrays.
ghInstance = hInstance
FUNCTION = 1 'success!
'FUNCTION = 0 'failure! This will prevent the EXE from running.
CASE %DLL_PROCESS_DETACH
'Indicates that the DLL is being unloaded or detached from the
'calling application. DLLs can take this opportunity to clean
'up all resources for all threads attached and known to the DLL.
FUNCTION = 1 'success!
'FUNCTION = 0 'failure!
CASE %DLL_THREAD_ATTACH
'Indicates that the DLL is being loaded by a new thread in the
'calling application. DLLs can use this opportunity to
'initialize any thread local storage (TLS).
FUNCTION = 1 'success!
'FUNCTION = 0 'failure!
CASE %DLL_THREAD_DETACH
'Indicates that the thread is exiting cleanly. If the DLL has
'allocated any thread local storage, it should be released.
FUNCTION = 1 'success!
'FUNCTION = 0 'failure!
END SELECT
END FUNCTION
'-------------------------------------------------------------------------------
' Examples of exported Subs and functions...
'
SUB SetMaxWindow ALIAS "SetMaxWindow" (BYVAL hWnd AS LONG,BYVAL maxwindow AS LONG,r AS RECT) EXPORT
DIM lstyle AS DWORD
' code goes here
IF maxwindow=0 THEN
maxwindow=1
GetWindowRect(hwnd,r)
DIM w AS DWORD,h AS DWORD
w = GetSystemMetrics(0)
h = GetSystemMetrics(1)
SetWindowPos(hWnd,0,0,0,w,h,&H20)
ShowWindow(hWnd,3)
lstyle=GetWindowLong(hWnd, -16)
lstyle = lstyle AND NOT &H80000
lstyle = lstyle AND NOT &H10000
lstyle = lstyle AND NOT &H20000
lstyle = lstyle AND NOT &HC00000
SetWindowLong hwnd,-16,lstyle
ELSE
maxwindow=0
ShowWindow(hWnd,9)
lstyle=GetWindowLong(hWnd, -16)
lstyle = lstyle OR &H80000
lstyle = lstyle OR &H10000
lstyle = lstyle OR &H20000
lstyle = lstyle OR &HC00000
SetWindowLong hwnd,-16,lstyle
w = GetSystemMetrics(0)
h = GetSystemMetrics(1)
SetForegroundWindow(hwnd)
SetWindowPos(hWnd,0,r.nleft,r.ntop,r.nright-r.nleft,r.nbottom - r.ntop,&H20)
SetForegroundWindow(hwnd)
DIM hmenu AS DWORD
hmenu=GetSystemMenu(hwnd,0)
EnableMenuItem (hMenu, 4, 1025)
END IF
END SUB

复制代码