启动画面（弹出窗口，RGE最适合） - Project1

#==============================================================================
# ■ Splash by YiJL
#------------------------------------------------------------------------------
# 　启动画面。
#
# - Splash.init
# 初始化
#
# - Splash.redraw(str)
# 改变显示文字
#
# - Splash.release
# 释放窗口
#
#==============================================================================
module Splash
#--------------------------------------------------------------------------
# ● Win32API
#--------------------------------------------------------------------------
M2W = Win32API.new("kernel32", "MultiByteToWideChar", "ilpipi" , "i")
CreateWindowEx = Win32API.new("user32", "CreateWindowExW", "lpplllllllll", "l")
ShowWindow = Win32API.new("user32", "ShowWindow", "ll", "l")
LoadImage = Win32API.new("user32", "LoadImageW", "lpllll", "l")
GetCurrentProcess = Win32API.new("kernel32", "GetCurrentProcess", "v", "l")
SelectObject = Win32API.new("gdi32", "SelectObject", "ll", "l")
DeleteObject = Win32API.new("gdi32", "DeleteObject", "l", "l")
GetDC = Win32API.new("user32", "GetDC", "l", "l")
ReleaseDC = Win32API.new("user32", "ReleaseDC", "ll", "l")
DestroyWindow = Win32API.new("user32", "DestroyWindow", "l", "l")
GetSystemMetrics = Win32API.new("user32", "GetSystemMetrics", "l", "l")
TextOut = Win32API.new("gdi32", "TextOutW", "lllpl", "l")
CreatePatternBrush = Win32API.new("gdi32", "CreatePatternBrush", "l", "l")
CreateFont = Win32API.new("gdi32", "CreateFontW", "lllllllllllllp", "l")
FillRect = Win32API.new("user32", "FillRect", "lpl", "l")
SetBkMode = Win32API.new("gdi32", "SetBkMode", "ll", "l")
Sleep = Win32API.new("kernel32", "Sleep", "l", "v")
SetLWndAttri = Win32API.new("user32", "SetLayeredWindowAttributes", "llll", "l")
PeekMessage = Win32API.new("user32", "PeekMessageW", "pllll", "l")
#--------------------------------------------------------------------------
# ● 常量
#--------------------------------------------------------------------------
BMPW = 600 # 位图长度
BMPH = 360 # 位图高度
BMPP = "Splash.bmp" # 位图路径
FONT = "Microsoft YaHei" # 显示字体
WAIT = 1 # 等待时间(s)
TXTX = 30 # 字体显示 x 坐标
TXTY = 210 # 字体显示 y 坐标
FNTS = 24 # 字体大小
#--------------------------------------------------------------------------
# ● 初始化
#--------------------------------------------------------------------------
def self.init
if @hSplashWnd.nil?
hInstance = GetCurrentProcess.call
@hSplashWnd = CreateWindowEx.call(0x80000, wchar("#32771"), wchar("Splash"),
0x80000000, (GetSystemMetrics.call(0) - BMPW) / 2,
(GetSystemMetrics.call(1) - BMPH) / 2, BMPW, BMPH, 0, 0, hInstance, 0)
ShowWindow.call(@hSplashWnd, 1)
SetLWndAttri.call(@hSplashWnd, 0, 220, 2)
hDC = GetDC.call(@hSplashWnd)
@hBitmap = LoadImage.call(hInstance, wchar(BMPP), 0, BMPW, BMPH, 0x10)
@hFont = CreateFont.call(FNTS, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 0, wchar(FONT))
@hBrush = CreatePatternBrush.call(@hBitmap)
FillRect.call(hDC, [0, 0, BMPW, BMPH].pack("l*"), @hBrush)
SetBkMode.call(hDC, 1)
SelectObject.call(hDC, @hFont)
str = " "
TextOut.call(hDC, TXTX, TXTY, wchar(str), str.split(//u).size)
ReleaseDC.call(@hSplashWnd, hDC)
msg = " " * 28
time = Time.now
while Time.now - time < WAIT
# 防止无响应
PeekMessage.call(msg, @hSplashWnd, 0, 0, 0)
Sleep.call(500)
end
end
end
#--------------------------------------------------------------------------
# ● 重画
#--------------------------------------------------------------------------
def self.redraw(str)
unless @hSplashWnd.nil?
hDC = GetDC.call(@hSplashWnd)
FillRect.call(hDC, [0, 0, BMPW, BMPH].pack("l*"), @hBrush)
SetBkMode.call(hDC, 1)
SelectObject.call(hDC, @hFont)
TextOut.call(hDC, TXTX, TXTY, wchar(str), str.split(//u).size)
ReleaseDC.call(@hSplashWnd, hDC)
msg = " " * 28
time = Time.now
while Time.now - time < WAIT
# 防止无响应
PeekMessage.call(msg, @hSplashWnd, 0, 0, 0)
Sleep.call(500)
end
end
end
#--------------------------------------------------------------------------
# ● 释放
#--------------------------------------------------------------------------
def self.release
unless @hSplashWnd.nil?
DeleteObject.call(@hFont)
DeleteObject.call(@hBitmap)
DeleteObject.call(@hBrush)
DestroyWindow.call(@hSplashWnd)
hSplashWnd = nil
end
end
#--------------------------------------------------------------------------
# ● unicode 编码
#--------------------------------------------------------------------------
def self.wchar(str)
length = M2W.call(65001, 0, str, -1, 0, 0) << 1
buffer = " " * length
M2W.call(65001, 0, str, -1, buffer, length)
return buffer
end
end
Splash.init

复制代码

public void SetBits(Bitmap bitmap)
{
//if (!haveHandle) return;
if (!Bitmap.IsCanonicalPixelFormat(bitmap.PixelFormat) || !Bitmap.IsAlphaPixelFormat(bitmap.PixelFormat))
throw new ApplicationException("图片必须是32位带Alhpa通道的图片。");
IntPtr oldBits = IntPtr.Zero;
IntPtr screenDC = Win32.GetDC(IntPtr.Zero);
IntPtr hBitmap = IntPtr.Zero;
IntPtr memDc = Win32.CreateCompatibleDC(screenDC);
try {
Win32.Point topLoc = new Win32.Point(Left, Top);
Win32.Size bitMapSize = new Win32.Size(bitmap.Width, bitmap.Height);
Win32.BLENDFUNCTION blendFunc = new Win32.BLENDFUNCTION();
Win32.Point srcLoc = new Win32.Point(0, 0);
hBitmap = bitmap.GetHbitmap(Color.FromArgb(0));
oldBits = Win32.SelectObject(memDc, hBitmap);
blendFunc.BlendOp = Win32.AC_SRC_OVER;
blendFunc.SourceConstantAlpha = 255;
blendFunc.AlphaFormat = Win32.AC_SRC_ALPHA;
blendFunc.BlendFlags = 0;
Win32.UpdateLayeredWindow(Handle, screenDC, ref topLoc, ref bitMapSize, memDc, ref srcLoc, 0, ref blendFunc, Win32.ULW_ALPHA);
}
finally
{
if (hBitmap != IntPtr.Zero)
{
Win32.SelectObject(memDc, oldBits);
Win32.DeleteObject(hBitmap);
}
Win32.ReleaseDC(IntPtr.Zero, screenDC);
Win32.DeleteDC(memDc);
}
}

复制代码